|
AutoLisp : _TRIM
spider_dd am 17.05.2005 um 10:00 Uhr (0)
Hallo RoyCad, probier mal folgendes. ; Objekte wählen (setq stutz_1 (entget (car (entsel
Erste Stutzkante )))) (setq stutz_2 (entget (car (entsel
Zweite Stutzkante )))) (setq objekt_1 (entget (car (entsel
Erste Objekt )))) (setq objekt_2 (entget (car (entsel
Zweite Objekt )))) ;ermittle Anfang und Endpunkte der Objekte (setq anf1 (cdr (assoc 10 stutz_1))) (setq end1 (cdr (assoc 11 stutz_1))) (setq anf2 (cdr (assoc 10 stutz_2))) (setq end2 (cdr (assoc 11 stutz_2))) (setq anf_o1 (cdr (assoc 10 ...
| | In das Form AutoLisp wechseln |
|
Lisp : Zentrumsmarke
spider_dd am 11.01.2007 um 09:56 Uhr (0)
Hallo Dorfy,ich denke ich würde zwei Linine zeichnen. Die Endpunkte lassen sich ja enfach mit (polar ..) bezüglich dem Mittelpunkt des Bogens ermitteln.LGThomas
| | In das Form Lisp wechseln |
|
Lisp : Linienwinkel ermitteln
spider_dd am 15.06.2022 um 13:41 Uhr (1)
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 Richtungliefert 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 vo ...
| | In das Form Lisp wechseln |
 |
Lisp : tatsächlicher Winkel einer Linie
spider_dd am 16.11.2017 um 09:50 Uhr (15)
Hallo Jörg,da hat es wohl Interpretationsunterschiede zum Begriff "Symmetrielinie" gegeben. Ich hätte es auch wie Thomas (CADmium) interpretiert. Aber zu Deiner Interpretation fällt mir folgendes ein:Den Schnittpunkt Deiner beiden Linien und damit einen Punkt der gesuchten findest Du mit (inters ...)Von diesem Punkt aus ermittels Du mit (angle ...) die Winkel zu jeweils einem Punkt der beiden Linien (egal welcher) und der Mittelwert von beiden gibt Dir den Winkel Deiner gesuchten Linie. Mit (polar ...) kan ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
