리습 고수님들 함봐주시면 감사하겠습니다.
예전에 사용하던 리습인데요. 다시 사용을 해보려고하니깐
작동이 안되서 그러는데 문제점좀 알려주시면 감사하겠습니다.
작동을 시키면 이렇게 나오네요
현재 길이: 3000.00
수치 거리를 요구함, 두 점, 또는 옵션 키워드.
; 오류: 기능을 취소함
———————————————————————————-
(defun c:QW ()
(setvar “cmdecho” 0)
(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))
)
(prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos dis)))(princ)
(setvar “cmdecho” 1)
(command “undo” “e”)
(princ)
)
아아 이부분이 버전마다 다르군요