---

Hallo,
weiß jemand wie man mit Lisp den Umfang von Ellipsenbögen berechnen kann?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das geht z.B. mit folgender Funktion
(defun DT:CURVE-GET-LENGTH (OBJ)
  (if(and(setq OBJ(cond
                       ((=(type OBJ) 'VLA-object) OBJ)
                       ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ))   
                     )
         )
         (not(vl-catch-all-error-p 
               (setq L (vl-catch-all-apply
                         'vlax-curve-getDISTAtPARAM
                         (list OBJ (vlax-curve-getEndParam OBJ))
                       )
               )     
             )
         )
    )
   L
  )   
)

Aufruf z.B.:
(DT:CURVE-GET-LENGTH (car(entsel)))

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bum, das ging aber schnell.
Funzt diese Funktion für alle Elemente?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Für alle Kurvenelemente ... Linien, Polylinien, Splines, Bögen KReise, Kreisbögen, Ellipsen, Ellispsenbögen ...

------------------
- Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke an alle!
U's sind unterwegs.

Gibt es in dieser Art auch etwas um Start und Endpunkt zu finden?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

  

Zitat:

---

Original erstellt von SHP:

Gibt es in dieser Art auch etwas um Start und Endpunkt zu finden?

---

Sicher: guckst du
(defun DT:Curve-GET-Start (OBJ / P )
  (if(and(setq OBJ(cond                              
                       ((=(type OBJ) 'VLA-object) OBJ)
                       ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ))   
                     )
         )
         (not(vl-catch-all-error-p                   
               (setq P(vl-catch-all-apply
                         'vlax-curve-getStartPoint
                         (list OBJ)
                      )
               )     
             )
         )
    )
   P
  )   
)

(defun DT:Curve-GET-Ende (OBJ / P )
  (if(and(setq OBJ(cond                              
                       ((=(type OBJ) 'VLA-object) OBJ)
                       ((=(type OBJ) 'Ename) (vlax-ename->vla-object OBJ))   
                     )
         )
         (not(vl-catch-all-error-p                   
               (setq P(vl-catch-all-apply
                         'vlax-curve-getEndPoint
                         (list OBJ)
                      )
               )     
             )
         )
    )
   P
  )   
)

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.
    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP