안녕하세요~
cad layer on/off 리습 관련해서 고수님들께 문의 드립니다~
다른 설계 프로그램 도면을 cad 파일로 변환시켜 작업하는 사람입니다~
근데 지금 쓰고 있는데 cad layer on/off 리습이 먹히질 않습니다 ㅜㅜ
다른 프로그램 설계 도면을 cad파일로 변환시키면 layer 이름 앞에 @가 붙네요…
전에 쓰던 layer 이름은 te, li, ch, co…이런식이었는데…
변환 파일에 layer 이름은 @te1, @ch, default..이런식으로 이름이 생성 됩니다…
제가 쓰는 리습은 인식을 못하는거 같은데 방법이 있을까요…
사용 중인 리습 올려드립니다…^^
부탁드립니다 ( _ _ )
;———— 라인 on/off ————————————————————————–
(defun c:oo ()
(setq selectgroup (ssget))
(if (eq selectgroup nil)
(command “-layer” “on” “*” “thaw” “*” “”)
(progn
(command “-layer” “off” “*” “y” “”)
(setq i 0 layerlist (list))
(repeat (sslength selectgroup)
(if (not (vl-position (vlax-get-property (vlax-ename->vla-object (ssname selectgroup i)) ‘Layer) layerlist))
(setq layerlist (append layerlist (list (vlax-get-property (vlax-ename->vla-object (ssname selectgroup i)) ‘Layer))))
)
(setq i (+ 1 i))
)
(setq i 0)
(repeat (length layerlist)
(command “-layer” “on” (nth i layerlist) “thaw” (nth i layerlist) “”)
(setq i (+ 1 i))
))));end defun
(defun c:ol ()
(setq selectgroup (ssget))
(if (eq selectgroup nil)
(command “-layer” “off” “*” “y” “”)
(progn
(setq i 0 layerlist (list))
(repeat (sslength selectgroup)
(if (not (vl-position (vlax-get-property (vlax-ename->vla-object (ssname selectgroup i)) ‘Layer) layerlist))
(setq layerlist (append layerlist (list (vlax-get-property (vlax-ename->vla-object (ssname selectgroup i)) ‘Layer))))
)
(setq i (+ 1 i))
)
(setq i 0)
(repeat (length layerlist)
(if (eq (nth i layerlist) (getvar “CLAYER”))
(command “-layer” “off” (nth i layerlist) “y” “”)
(command “-layer” “off” (nth i layerlist) “” “”)
)
(setq i (+ 1 i))
))));end defun