| |
| 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: Linienwinkel ermitteln (539 / mal gelesen)
|
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 15. Jun. 2022 11:33 <-- editieren / zitieren --> Unities abgeben:
Hallo in die Gemeinde, ich habe folgendes Problem mit meinem kleinen Lisp. Mit dem Lisp kann ich eine Linie zeichnen und dann gleich versetzen und die markierte löschen. Nun mein Problem, ich kann mit dem Lisp die Linien nur Orthogonal zeichnen. Würde aber sehr gern den Winkel ( UCS ) der ausgehenden Linie auswählen können. Habe schon so einiges ausprobiert, aber ich bekomme es nicht hin. Kann mir da jemand behilflich sein ? ;Linie zeichnen ;und versetzen (defun C:LinAng() (setq anf (getpoint "Start:")) ;Anfangspunkt der Linie bestimmen (setq end (getpoint anf "Ende:")) ;Endpunkt der Linie bestimmen (command "_line" anf end "") ;Linie vom Anfangs- zum Endpunkt zeichnen (setq lin1 (entlast)) ;Linie merken (setq seite (getpoint "Seite?")) ;Seite zum versetzen auswählen (command "_offset" "3" lin1 seite "") ;Linie um drei zeichnungseinheiten versetzen (entdel lin1) ;ursprüngliche Linie löschen (princ) ) 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: 15. Jun. 2022 13:19 <-- editieren / zitieren --> Unities abgeben: Nur für stk
Hallo stk, wenn Du Anfang und Ende der Line wählst, sind diese doch frei wählbar, somit sollte auch die Linie irgendwie liegen können und nicht nur othogonal. Es sei denn Du hast generell den Orthiomodus an (F8). Wenn Du den Winkel der Linie ermitteln willst, geht dies mit: (angle anf end) Angabe ist in Radiant. HTH Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 15. Jun. 2022 13:24 <-- editieren / zitieren --> Unities abgeben:
|
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: 15. Jun. 2022 13:41 <-- editieren / zitieren --> Unities abgeben: Nur für stk
Zitat: Original erstellt von stk: Danke für die Antwort.Ich möchte die Schräge der gewählten Linie ermitteln, damit die neu gezeichnete Linie dann im 90 Grad Winkel zur gewählten Linie steht.
(+ (angle anf end) (/ pi 2.)) oder auch (- (angle anf end) (/ pi 2.)) in die andere Richtung liefert Dir die Richtung(en) senkrecht zur Linie. Ausgehend von einem Punkt P1 auf Deiner Linie (z. B. anf, oder end oder ...) liefert (setq p2 (polar p1 (+ (angle anf end) (/ pi 2.))) abstand) einen 2. Punkt im Abstand abstand vom P1 und (command "linie" p1 p2 "") die zur Ersten senkrechte Linie.
Gruß Thomas
[Diese Nachricht wurde von spider_dd am 15. Jun. 2022 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 15. Jun. 2022 13:51 <-- editieren / zitieren --> Unities abgeben:
|