도면 객체의 선가중치를 초기화하는 리습

선가중치를 이용해 작도된 도면의 선가중치를 초기화 시킬 수 있는 리습입니다.

보통은 '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.
 

KiKO_Lineweight.lsp

0.00MB