(defun c:Bogen_Werte (/)
(vl-load-com)
(setq el (entsel "\Bogen auswählen:")
el_vla (vlax-ename->vla-object (car el))
startpt (vlax-safearray->list (vlax-variant-value (vlax-get-property el_vla 'StartPoint)))
endpt (vlax-safearray->list (vlax-variant-value (vlax-get-property el_vla 'EndPoint)))
center (vlax-safearray->list (vlax-variant-value (vlax-get-property el_vla 'Center)))
laenge (vlax-get-property el_vla 'ArcLength)
radius (vlax-get-property el_vla 'Radius)
winkel1 (vlax-get-property el_vla 'TotalAngle)
winkel2 (/ (* winkel1 180) pi)
)
(princ "\nStartpunkt = ") (princ startpt)
(princ "\nEndpunkt = ") (princ endpt)
(princ "\nMittelpunkt = ") (princ center)
(princ (strcat "\nBogenlänge = " (rtos laenge)))
(princ (strcat "\nRadius = " (rtos radius)))
(princ (strcat "\nWinkel = " (rtos winkel1) " bzw. " (rtos winkel2) "°"))
(princ)
)
kleiner fehler Helmut c:befhel vergessen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP