|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
neurosis am 17.12.2008 um 14:28 Uhr (0)
hallo,1. eckpunkte mittels getpoint von flaeche angeben oder punkte der flaechenbegrenzung auslesen (uebergabe mittels entsel)2. alle relevanten linien ueber ssget anklicken3. in einer schleife alle schnittpunkte der flaeche mit einzelnen linien berechnen (siehe dazu auch http://local.wasp.uwa.edu.au/~pbourke/geometry/planeline/ ) und in liste speichern4. polylinie oder linien aus allen schnittpunkten erzeugengrussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
Geos am 18.12.2008 um 07:50 Uhr (0)
Meinst Du sowasCode:(defun c:schnittp ( / P1 P2 P3 P4 P5 P6); by Stefan Schwankner - 2008-04-10(arxload "GEOMCAL") ;;;Rechner muss geladen werden (setq P3 (getpoint "
Erster Punkt der Ebene:")) (setq P4 (getpoint "
Zweiter Punkt der Ebene:")) (setq P5 (getpoint "
Dritter Punkt der Ebene:")) (while (setq P1 (getpoint "
Erster Punkt der Linie:")) (setq P2 (getpoint "
Zweiter Punkt der Linie:")) (setq OSCHNAePP (getvar "osmode")) (command "osmode" 0) (cal "P6=ilp (p1,p2,p3,p4,p5)") (command "_sp ...
|
| In das Form Lisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
StephanJP am 18.12.2008 um 08:28 Uhr (0)
Vielleicht sowas...Code:;by Stephan Vette - 2006-09-13(defun c:vme () ;verschneidet alle Linien mit einer Ebene (arxload "geomcal" T) (setq as (ssget ((0 . "LINE"))) ebene (getreal "zu erreichende Ebene eingeben: ") ep1 (list 0.0 0.0 ebene) ep2 (list 0.0 10.0 ebene) ep3 (list 10.0 0.0 ebene) n 0 en (ssname as n) ) (while en (setq p1 (cdr (assoc 10 (entget en))) p2 (cdr (assoc 11 (entget en))) ) (kal "vp=ilp(p1,p2,ep1,ep2,ep3)") (cond (( (nth 2 p1)(nth 2 p2))(entmod (list (car (entget en))(cons 10 vp)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
autocart am 18.12.2008 um 09:25 Uhr (0)
Hallo!Gibt es eine einfache (in Autocad eingebaute) Möglichkeit, ein LISP-Selection-Set in ein VBA-Selection-Set-Object umzuwandeln (und umgekehrt)? Danke.(In der Suche fand ich dazu noch nichts, obwohl man meinen sollte, dass das eher zu den Grundlagen gehört.)------------------Gruß, Stephanwww.stbartl.at
|
| In das Form Lisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
treffi75 am 18.12.2008 um 09:43 Uhr (0)
Hi zusammen,habe aus den informationen, die ihr mir gegeben habt eine lsp zusammengestellt und sie funktioniert!programmiertechnisch sicherlich nicht das feinste, denn man könnte, so wie stephan meinte zuerst alle linien anklicken und dann die berechnung durchführen, aber so auf die schnelle funzt meins auch.Danke nochmal für die anregungen, habs angehängt.gruß, treffiP.S.: Übrigens, Ernst, ich glaube wir kennen uns!!
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
CADmium am 18.12.2008 um 09:58 Uhr (0)
..muß man sich programmieren..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
alfred neswadba am 18.12.2008 um 10:01 Uhr (0)
Hi Stephan,ein paar Dinge könnten mir da schon einfallen, hängt aber sehr von der Arbeitsweise ab.Da wären für SelectionSet in DVB die Parameter acSelectionSetPrevious, acSelectionSetLast == abhängig von dem, wie Du in Lisp selektiert hast, kannst Du das eventuell direkt verwendenDann wäre noch das ImpliedSelectionSet oder Suchbegriff PickFirstxxx == aktuell selektierte ElementeSind mal ein paar Ideen, wenn ein wenig mehr Beschreibung Deines Workflows kommt, dann kommen vielleicht noch mehr Ideen- alfred -
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
autocart am 18.12.2008 um 10:23 Uhr (0)
Danke Cadmium für die Info (Absicherung), dass es nicht internes (fix-fertiges) gibt.Noch größerer Dank an Alfred für die Idee mit acSelectionSetPrevious, da es für mich funktioniert, z.B.: Zitat:(setq selsetLisp (ssget "_X"))(setq selsetVBA (vla-Select(vla-Add(vla-get-SelectionSets(vla-get-ActiveDocument(vlax-get-acad-object))) "selset01")acSelectionSetPrevious))So muss ich nicht händisch jedes einzelne Element durchgehen. Toll. Danke.------------------Gruß, Stephanwww.stbartl.at
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
alfred neswadba am 18.12.2008 um 10:40 Uhr (0)
Hi Stephan,vorweg ich verstehe 0 (in Worten NULL) von Lisp, aber Deine Lösungsbeschreibung ist mit nicht klar, vielleicht fehlt mir nur LISP-Verständnis, vielleicht mach ich Dich mit diesem nur auf etwas aufmerksam. Das in VBA reservierte Wort acSelectionSetPrevious hat in Lisp IMHO keine Bedeutung, und aus meiner Sicht hat Deine 2.te Zeile auch für das Funktionieren in VBA keine Auswirkung.Wenn Du zuerst in Lisp dieses machst: (setq selsetLisp (ssget "_X"))Und unter der Voraussetzung, dass der Anwender di ...
|
| In das Form Lisp wechseln |
|
Lisp : Selection Set LISP -> VBA
autocart am 18.12.2008 um 11:02 Uhr (0)
@Alfed: Zitat:... vielleicht fehlt mir nur LISP-Verständnis ... Lass mich wissen, wenn ich irrehehe... was soll ich noch mehr sagen? vielleicht nur so viel: probiers doch mal aus:Befehl: vlideund dann am einfachsten in der "Visual LISP-Konsole" zuerst(vl-load-com) ENTERund dann die 2 Zeilen Code hintereinander. Dass bei der 2.Zeile "nil" zurückgegeben wird, macht nichts - ist so.Mit (vla-dump-object selsetVBA) siehst du dann, dass im VBA-SelSet die selbe Anzahl an Objekten drin ist, wie mit ssget gewählt ...
|
| In das Form Lisp wechseln |
|
Lisp : Daten von verschachtelten XData auslesen
mAciD am 18.12.2008 um 14:55 Uhr (0)
Hallo Leute,ich möchte gerne in Blöcke Punkte einbauen, und diese mit div. XData versehen damit ich sie später nach diesen Attributen aus der Zeichnung lesen kann und somit ihre Koordinaten verwenden kann.Ich bin schon so weit, die Punkte zu erstellen. Ich habe ihnen auch einen eindeutigen Text zugewiesen. Gruppencode 1000.Diese Punkte kann ich auch finden, aber nur wenn sie nicht in einem Block stecken.Ich kann via entget vom Block die Daten ansehen, aber wie komme ich an die Block-Unterelemente ran.Also ...
|
| In das Form Lisp wechseln |
|
Lisp : 3D Objekte ausfiltern und speichern
mundal am 19.12.2008 um 12:32 Uhr (0)
Hallo Zusammen,ich möchte eine AutoCAD 3D Zeichnung (Zusammenbauzeichnung) in Einzelbauteile zerlegen.Dabei sind die Teilegruppen auf je einer Layer gezeichnet.Es sollen zumindest die Geometrien der einzelnen Layer als separates File in eine eigene DWG besser ACIS-Datei (SAT) gespeichert werden.Optimal wäre wenn die einzelnen 3D Teile auf den Layern extrahiert werden.Beispiel:Zusammenbauzeichnung: ein komplettes AutoTeilegruppe: Motor, Karosserie, Innenausstattung, Räder etc liegen auf eigenen Layern.Das L ...
|
| In das Form Lisp wechseln |
|
Lisp : Finde Fehler nicht ...
cadffm am 30.12.2008 um 10:30 Uhr (0)
Was verwirrt dich denn - die fehlende Z-Koordinate bei dem gc10-Filter(" aber bei gc-4 werden 3 Koordinaten geprüft =,=,= ") oder ist es dieTatsache das die gc-4 Geschichte nicht wieder "geschlossen" wird, alsokein abshließendes gc-4 kommt ?Dein Zitat stammt von "Logical Tests" und da geht es um = AND OR XOR und NOT undda stimmt das auch, die Aussage bezieht sich jedoch nicht auf die Verwendung von "Relational Tests"welche man ebenfalls über gc-4 angibt.Schau dir das Hilfethema "Relational Tests" der Entw ...
|
| In das Form Lisp wechseln |
