아래와 같은 리습에서 m단위로 화면출력을 하고 싶습니다.
조언 부탁드립니다.
(defun c:ds()
(setvar “CMDECHO” 0)
(Setq ent (ssget))
(setq n 0)
(setq nu (sslength ent))
(setq a1 0)
(while (/= n nu)
(setq en (ssname ent n))
(command “area” “o” en)
(setq aa (getvar “perimeter”))
(setq a1 (+ a1 aa))
(initget 7)
(setq n (1+ n))
)
(setq a2 (rtos a1 2 2))
(setq base (getpoint “n 길이을 입력할 포인트를 입력하시오. “))
(command “text” base “” “” a2)
(princ)
)