(defun c:xx (/ #a #b #c #d #e #f #g)
(vl-load-com)
(setq #a(vlax-ename->vla-object (car(entsel))))
(setq #d(apply ‘strcat(mapcar ‘(lambda(#x)(strcat(rtos #x)(chr 9)))(setq #b(vlax-curve-getstartpoint #a)))))
(setq #e(apply ‘strcat(mapcar ‘(lambda(#x)(strcat(rtos #x)(chr 9)))(setq #c(vlax-curve-getendpoint #a)))))
(setq #f(rtos(*(/ 180.0 pi)(angle #b #c))))
(princ (strcat “n≫≫≫Start point: ” #d “n≫≫≫End point: ” #e “n≫≫≫Angle: ” #f “°”))
(princ)
);;defun
;
;
;
;
;
레이어중에 EADamper이라는 레이어를 선택해서 시작점 및 끝점을 인출하고 싶은데…
(setq #g (ssget “x” (list (cons 8 “EADamper”))))
(setq #a(vlax-ename->vla-object (car #g))) ;<- 이런 식으로 하면 하면 안되네요..
그리고 (setq #b(vlax-curve-getstartpoint #a))이기까지만 해도 시작점 및 끝점이 인출되는데…앞의 함수들의 용도도 궁금합니다.