cad 길이 lisp 관련
-
게시물 수정 , 삭제는 로그인 필요
cad lisp 중 "선 길이" 가 나오는 lisp 을 사용하는데 zwcad 2019 에서는 여러개 선을 잡아도 잘 작동 되는데
autocad 2017 에서는 1개 의 선만 잘 작동되고 여러개 선택하여
쓰면 작동이 안됩니다. lisp 식을 아래 첨부 드립니다. 해결 방법 질문 드립니다.
(defun c:LP (/ ent n dis ent_1 #a #ad #as mp np tang lstobj)
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command "lengthen" ent_l "")
(setq dis (+ dis (GETVAR "PERIMETER")))
(setq n (1+ n))
)
(setq #a(strcat ""(rtos n)" 개 / 합계 : " (rtos dis) "mm"))
(alert #a)
(princ)
)(defun c:LP (/ ent n dis ent_1 #a #ad #as mp np tang lstobj)
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command "lengthen" ent_l "")
(setq dis (+ dis (GETVAR "PERIMETER")))
(setq n (1+ n))
)
(setq #a(strcat ""(rtos n)" 개 / 합계 : " (rtos dis) "mm"))
(alert #a)
(princ)
)
zwcad 2019 에서는 여러개 선을 잡아도 잘 작동 되는데
autocad 2017 에서는 1개 의 선만 잘 작동되고 여러개 선택하여
쓰면 작동이 안됩니다. lisp 식을 아래 첨부 드립니다. 해결 방법 질문 드립니다.
(defun c:LP (/ ent n dis ent_1 #a #ad #as mp np tang lstobj)
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command "lengthen" ent_l "")
(setq dis (+ dis (GETVAR "PERIMETER")))
(setq n (1+ n))
)
(setq #a(strcat ""(rtos n)" 개 / 합계 : " (rtos dis) "mm"))
(alert #a)
(princ)
)(defun c:LP (/ ent n dis ent_1 #a #ad #as mp np tang lstobj)
(setq ent (ssget '((0 . "LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE"))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command "lengthen" ent_l "")
(setq dis (+ dis (GETVAR "PERIMETER")))
(setq n (1+ n))
)
(setq #a(strcat ""(rtos n)" 개 / 합계 : " (rtos dis) "mm"))
(alert #a)
(princ)
)
#cad 길이 측정 #cad 길이 표시 #cad 길이 연장 #cad 길이 줄이기 #cad 길이 단위 #cad 길이 합계 #cad 길이 측정 명령어 #cad 길이 합계 리습 #cad 길이 합
