캐드 분류
길이합 리습 수정 부탁드립니다.
컨텐츠 정보
- 247 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun c:lle ()
(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))
(setq diss (/ dis 1000))
)
(prompt (strcat "n***** 선택 객체수 = "(rtos n)" 길이합계 = " (rtos diss 2 3)))
(setq xx (getpoint "n문자 시작점 :"))
(setq yy (getreal "n문자 크기 :"))
(command "text" xx yy "" (strcat "길이(m) : "(rtos diss 2 3)))
(setvar "cmdecho" 0)
(princ)
)
현재는 캐드상 문자크기를 지정하라고 명령창에 뜨는데….
문자크기를 리습에서 쓸수있게 할 수 있을까여?
제가 리습언어는 몰라서 눈대중으로 조금식 바꿔서 사용하는 실력이라서…
관련자료
댓글 3