| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Linienwinkel ermitteln (482 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: 1111
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: 1111
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:
|
Foren auf CAD.de (alle Foren)
| 
