|
Lisp : 3drotate in Lisp
cadffm am 19.10.2012 um 15:33 Uhr (0)
Da ich jetzt Feierabend mache kürze ich hier ab:1. Deine Koordinaten sind, woher auch immer, falsch !2. Die blaue Linie ist NICHT korrekt gedreht ! (wenn auch nur "knapp-falsch", aber falsch ist falsch im CAD) ------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
cadffm am 19.10.2012 um 15:50 Uhr (0)
Auf deinem Bild ist alles so wie es sein soll ,prüfe mal das andere Ende.------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 16:01 Uhr (0)
aber wieso wird bei ID für Z=307.... ausgegeben und in den Eigenschaften 0 bzw. bei Erhebung 27903... Irgendwie habe ich gerade etwas vor den Augen ...!Gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
cadffm am 19.10.2012 um 16:11 Uhr (0)
Das ist wegen dem verschobenen Normalvektor, in DXF GC210, Befehl Liste wirft das so aus:Hochzugsrichtung relativ zum BKS: X= 0.4407 Y= 0.7197 Z= -0.5365Aber da du ja die beiden Punkte laut Posting mit 307 und 306 angegeben hast, istdie Geschichte (NOCH) nicht Schuld am Chaos, denn beide Angaben entsprechen nichtdem was in der Eigenschaftenpalette angezeigt wird.Also: Woher hast du die Koordinaten für das andere Ende ?Oder: Warum testest du nicht einfach "noch mal" die richtigen Koordinaten ?--- ...
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
spider_dd am 19.10.2012 um 16:29 Uhr (0)
Hallo Jan,mach doch mal mit Civil eine 3D-Polylinie aus Deiner 2D-Polylinie und probier dann noch mal was passiert.GrußThomas
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
CADmium am 19.10.2012 um 16:54 Uhr (0)
oder frage die Endkkodinaten mit vlax-curve Funktion ab, die liefern dir absolute globale Koordinaten.... die kannst du dann ins aktuelle bks transen und dann dein 3drotate ausfürhren.. ..und wenn du spider_dds Vorschlag verfolgst, aber kein Civil hast ... gibt auch Tools, die sowas können ...------------------Also ich finde Unities gut ...--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desse ...
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
tappenbeck am 22.10.2012 um 09:46 Uhr (0)
hi !ich sage erst einmal Danke - aber irgendwie stehe ich völlig im Wald.Muss nochmal etwas ausprobieren.Gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
CADmium am 22.10.2012 um 10:00 Uhr (0)
Hmm .. ist das echt so kompliziert ? (if(and(setq OBJ(car(Entsel "
Polyline : "))) (setq VOBJ(vlax-ename-vla-object OBJ)) (setq A (vlax-curve-getstartpoint VOBJ)) (setq B (vlax-curve-getEndpoint VOBJ)) (setq Winkel 60.0) ) (command "_rotate3d" OBJ "" "_2p" (trans A 0 1)(trans B 0 1) Winkel))------------------Also ich finde Unities gut ...--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lö ...
|
| In das Form Lisp wechseln |
rotate3d_a.dwg.txt |
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 15:34 Uhr (0)
hi !erst einmal stelle ich jetzt nur eine Datei mit der grünen Linie zur Verfügung.Bei der Überprüfung ist mir nämlich etwas aufgefallen. Wenn ich die Koordinaten der ersten Punktes abfrage dann bekomme ich einen anderen Wert angezeigt als in der Eigenschaftspalette.Wenn diese Werte nun falsch sind, dann kann das Ergebnis natürlich nicht passen.Das dargestellte Objekt soll im übrigen eine Art durchhängendes Seil sein.Gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
Entsorger01 am 19.10.2012 um 16:10 Uhr (0)
cadffms Erklärung ist ausführlicher (siehe nächster Beitrag)------------------GrußMichi"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)[Diese Nachricht wurde von Entsorger01 am 19. Okt. 2012 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Kreuzprodukt und Norm eines Vektors
MagACAD am 23.10.2012 um 11:04 Uhr (0)
Hallo!Ich möchte mit LISP etwas programmieren und gegeben hab ich zwei Vektoren, die ich mit list definiert habe.Mit diesen Vektoren möchte ich das Kreuzprodukt bilden und davon dann die Norm noch ausrechnen, aber in zwei Schritten.Gibt es einen Befehl im LISP mit dem man das Kreuzprodukt und die Norm berechnen kann oder muss ich mir jetzt selbst eine Funktion schreiben?Ich wär euch für eine Hilfe sehr dankbar!MfG, Mag
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block ändert Namen?
udouk am 24.10.2012 um 14:22 Uhr (0)
Hallo Cad-DE ler.Ich hab da ein Problem mit Dynamischen Blöcken.Ich hab eine LISP geschrieben (mehr zusammenkopiert), die unter anderem einen Block mit bestimmten Namen sucht und dann Attributswerte aus diesem Block ausliest und weiterverarbeitet (in meinem Fall für die Dateinamenerstellung beim DXF-Export)Code:(defun c:IMADXFBATCHNEU () (init) (command "_pasteclip" "0,0,0") (setq ORDNER (strcat "C:Users" (getvar "LOGINNAME") "Favorites")) (setq Blockwahl (ssget "_X" ((0 . "INSERT")(2 . "Nummerierung_1zu10 ...
|
| In das Form Lisp wechseln |
|
Lisp : Dynamischer Block ändert Namen?
CADmium am 24.10.2012 um 14:30 Uhr (0)
...bei Referenzen von Dynamischen Blöcken nicht nach Blocknamen suchen, sondern nach deren Effektivnamen .. dazu die vla-Funktionen nutzen, da es über Normalo-Lisp nicht direkt implementiert und der Zugriff etwas tricki ist ....Mal etwas Bsp-Code für C&P (defun BLOCKSELECT ( NAMEFILTER / BLOCK LISTE SSET SSET2 ITEM VLAITEM INDEX) (vl-load-com) (or(=(type NAMEFILTER)STR)(setq NAMEFILTER "*")) (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (if(and(=(vla-get-isxref BLO ...
|
| In das Form Lisp wechseln |
