|
Lisp : 3drotate in Lisp
tappenbeck am 18.10.2012 um 09:40 Uhr (0)
Hi !ich möchte via Lisp eine Polylinie um die Achse durch seinen Anfangs/Enpunkt drehen lassen.Wenn man _3drotate aufruft kommt nach der Objektauswahl und dem Bezugspunkt der Gismo wo man eine Achse wählen soll.Bisher habe ich keinen Weg gefunden dieses über die Befehlszeile (=Lisp) zu steuern. Die Beiträge, die ich im Web gefunden habe, beziehen sich alle auf ältere Acad-Versionen wo es Gismo noch nicht gab.Kann einer weiterhelfen ?Gruß Jan :-)------------------jan :-)
|
| In das Form Lisp wechseln |
|
Lisp : 3drotate in Lisp
cadffm am 18.10.2012 um 11:52 Uhr (0)
Na weniger HighTech nehmen und auf altehrwürdige Funktionen zurückgreifen wie zB. _rotate3d(aber bitte nicht von den deutschen Übersetzungen verwirren lassen, ist eh schon schwer genug das _3Drotate zwei Umgebungsabhängige Versionen aufzeigt)------------------CAD.de System-Angaben - CAD on demand - User:FAQ(Acad)
|
| In das Form Lisp wechseln |
rotate3d.dwg.txt |
Lisp : 3drotate in Lisp
tappenbeck am 19.10.2012 um 10:46 Uhr (0)
Moin !ich muss den Fall nochmal aufnehmen da ich irgendwie nicht das Ergebnis bekomme wie ich es erwarte. Zunächst habe ich den Anfangs- und Endpunkt der Polylinie ermittelt im BKS Welt mit Draufsicht.Dann will ich die Polylinie um die Anfangs-End-Achse drehen.Nun habe ich das auf zwei wege versucht - komme aber an der Befehlszeile nicht zum Ergebnis.Die rote Linie ist die Ausgangslinie. Wenn ich das ganze manuell mit anklicken der Endpunkte (blau) und der Option 2Punkte mache, dann dreht sich das wie grün ...
|
| In das Form Lisp wechseln |
|
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 |
