리습 분류
치수선과 지시선만 선택해서 선가중치 변경하는 리습인데 합칠수가 있을까요
컨텐츠 정보
- 160 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
치수선과 지시선만 선택해서 선가중치 변경하는 리습인데
각각 저장해서 3번 실행해서 하고 있습니다
구글 검색해서 찾은 리습이라 변수 변경을 할줄 몰라 수정을 못하고 있습니다
어떻게하면 3가지 리습을 명령 한번에 실행 할수 있을까요
;;치수선 선가중치 변경
(defun c:DLW()
(if (setq ss (ssget "_x" '((0 . "dimension")(8 . "*"))))
(repeat (setq i (sslength ss))
(setpropertyvalue (ssname ss (setq i (1- i))) "Dimlwd" 13)))
(princ)
)
;;치수보조선 선가중치 변경
(defun c:DLWE()
(if (setq ss (ssget "_x" '((0 . "dimension")(8 . "*"))))
(repeat (setq i (sslength ss))
(setpropertyvalue (ssname ss (setq i (1- i))) "Dimlwe" 13)))
(princ)
)
;;지시선 선가중치 변경
(defun c:LDW()
(if (setq ss (ssget "_x" '((0 . "Leader")(8 . "*"))))
(repeat (setq i (sslength ss))
(setpropertyvalue (ssname ss (setq i (1- i))) "Dimlwd" 13)))
(princ)
)