KiKO LISP
도면 객체의 선가중치를 초기화하는 리습
KiKOs
2023. 7. 10. 22:38
반응형
선가중치를 이용해 작도된 도면의 선가중치를 초기화 시킬 수 있는 리습입니다.
보통은 'LINEWEIGHT' 를 입력해서 선가중치 표시를 체크 해제하거나 'LWDISPLAY' 값을 0으로 바꾸는 것만으로도 가능하지만 객체 자체의 선가중치를 없애고자 할때 사용할수 있는 리습입니다.
함수는 필요를 위해 2가지로 만들어져 있습니다.
(KiKO:Lineweight_Reset_Lay) ; 레이어의 선가중치를 초기화하는 리습
(defun KiKO:Lineweight_Reset_Lay (/ w l_name l_weight obj_s)
(setq w T)
(while (setq l_name (cdr (assoc 2 (tblnext "LAYER" w))))
(setq w nil
obj_s (entget (tblobjname "LAYER" l_name))
l_weight (cdr (assoc 370 obj_s))
)
(if (<= 0 l_weight)
(entmod (subst (cons 370 -3) (assoc 370 obj_s) obj_s))
)
)
(princ)
)
(KiKO:Lineweight_Reset_Obj) ; 객체의 선가중치를 초기화하는 리습
위의 2가지를 동시에 실행 가능한 명령과 따로 실행 할수 있게 구분되어 있습니다.
즐거운 하루되시고 오눌도 빨리 퇴근 합시다.
May the force be with you.
728x90
반응형