캐드 분류
선길이 합산 리습 수정 할수 있을까요?
컨텐츠 정보
- 366 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
(defun c:ll ()
(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)" 길이합계(M) = " (rtos (/ dis 1000.0) 2 2)))
(setq pp (getpoint "nInsert Text Point?: ") dis (rtos (/ dis 1000.0) 2 2))
(command "text" "j" "bc" pp "" "0″ dis)
(princ)
(setvar "cmdecho" 1)
)
선길이 합산 리습입니다.. 과거의 캐드 버젼에서는 잘 사용했었구요.
(간단하게 선의 길이만 m로만 표현되는것이 좋아서 간단한 선길이 합산 리습사용)
이리습을 2015버젼에서도 사용할수 있게 변경 할수 있을까요?
(command → command-s 로도 변경해서 저장해봐도 안되네요…ㅠㅜ)
도움 부탁드립니다….ㅠㅜ