| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: 3drotate in Lisp (1476 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 18. Okt. 2012 09:40 <-- editieren / zitieren --> Unities abgeben:
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 :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 18. Okt. 2012 10:50 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 18. Okt. 2012 11:47 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 18. Okt. 2012 11:52 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Okt. 2012 10:46 <-- editieren / zitieren --> Unities abgeben:
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 dargestellt. Hier noch die Eingabe an der Befehlszeile:
Code:
Objekte wählen: Ersten Punkt auf Achse angeben oder Achse definieren nach [Objekt/Letztes/ANsicht/X-achse/Y-achse/Z-achse/2Punkte]: 2p Ersten Achsenpunkt angeben: !p1 (-8794 44386 307) Zweiten Achsenpunkt angeben: !p2 (-8797 44579 306)Drehwinkel angeben oder [Bezug]: 50
Kann mir einer weiterhelfen? Eine Ergänzung zum Schluss noch. In einer weiteren Version habe ich zunächst eine Kopie des Ausgangsobjektes gemacht (um das Urspungselemente zu behalten) mit der Kopie über den Punkt (0,0,0). wenn ich dann die Drehung über die Befehlszeile mache, dann landet die neue Polylinie im irgendwo. Gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Okt. 2012 15:02 <-- editieren / zitieren --> Unities abgeben:
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 Ergebnis ist dann die blaue Linie. Der Drehpunkt sind dann Anfangs- und Endpunkt. Wenn ich das über die Befehlszeile mache und die Koordiaten auch dort übergebe, dann dreht sind da Element so um den Anfangspunkt das das Ergebnis aussieht wie die rote Linie. Sollte mir da ansonsten ein Farbfehler unterlaufen sein bitte ich dieses zu entschuldigen. Das mit der Ergänzung stelle ich erst einmal zurück - wichtig wäre das erst einmal überhaupt über die Befehlszeile - sprich LISP in Griff zu bekommen. Gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 19. Okt. 2012 15:06 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Okt. 2012 15:32 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
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.9083 X = -8793.9051 Y = 44386.4970 Z = 307.4041 Welche 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 wurde von Entsorger01 am 19. Okt. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 19. Okt. 2012 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Okt. 2012 15:34 <-- editieren / zitieren --> Unities abgeben:
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 :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 19. Okt. 2012 15:50 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Okt. 2012 16:01 <-- editieren / zitieren --> Unities abgeben:
|
Entsorger01 Ehrenmitglied V.I.P. h.c. Techniker
Beiträge: 3310 Registriert: 07.07.2006 ACAD 2006 ACAD 2008 - SP1 VPstudio (Raster) Acrobat 7.0 Prof. Acrobat Distiller Photoshop CS2 Nvidia Quadro FX1400 Win 2000 Prof.
|
erstellt am: 19. Okt. 2012 16:10 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
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.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 19. Okt. 2012 16:11 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
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.5365 Aber da du ja die beiden Punkte laut Posting mit 307 und 306 angegeben hast, ist die Geschichte (NOCH) nicht Schuld am Chaos, denn beide Angaben entsprechen nicht dem 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 ? ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 19. Okt. 2012 16:29 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 19. Okt. 2012 16:54 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 22. Okt. 2012 09:46 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Okt. 2012 10:00 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 26. Okt. 2012 12:30 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 26. Okt. 2012 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|