|
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 15:02 Uhr (0)
Also ich versuche es nochmal.In der Musterzeichnung ist nur die grüne Linie enthalten - damit die Punkte und das Grundelement für das Nachvollziehen identisch sind.Ich habe Anfangs- und Endpunktpunkt (p1 bzw. p2) in den Variablen abgelegt damit ich einfacher das in der Befehlszeile nachstellen kann und auch wiederholen kann.Die Zeichnung befindet sich bei BKS-Welt in der Draufsicht.Wenn ich die grüne Linie mit dem rotate3d-Befehl nur mit der Maus bediente, dann wird die grüne Linie richtig gedreht - das Er ...
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
cadffm am 19.10.2012 um 15:06 Uhr (0)
Können wir dann auch mal die Musterdatei bekommen in der nur eine grüne Linie enthalten istund die Koordinaten (p1 p2) mit den Endpunkten dieser einen Linie übereinstimmen ?------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
Entsorger01 am 19.10.2012 um 15:32 Uhr (0)
Also, wenn ich die Koordinaten des Anfangs- und Endpunktes der grünen/blauen Linie in der geposteten Zeichnung kontrolliere, erhalte ich folgende Werte:X = -8926.1539 Y = 44581.1620 Z = 459.9083X = -8793.9051 Y = 44386.4970 Z = 307.4041Welche definitiv nicht mit Zitat:Ersten Achsenpunkt angeben: !p1(-8794 44386 307)Zweiten Achsenpunkt angeben: !p2(-8797 44579 306)übereinstimmen.------------------GrußMichi"Es ist schon alles gesagt, nur noch nicht von allen." (Karl Valentin)[Diese Nachricht wurd ...
|
| In das Form Lisp wechseln |
|
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 |
