(tblobjname table-name symbol-name)
(if (tblobjname "LTYPE" "HIDDEN2")
hidden2 가 로드되어 있는지 확인,,, 없으면 로드하기
다음 코드는 "AA-WALL_DEMO" 레이어가 있으면,
그 레이어의 선종류를 "HIDDEN2"로 지정하기 실행.
;;AA-WALL_DEMO: Set Linetype to HIDDEN2
(setq LyDemoWl "AA-WALL_DEMO")
(if (tblobjname "LAYER" LyDemoWl)
(progn
(setq LtDemoWl "HIDDEN2")
(if (not (tblobjname "LTYPE" LtDemoWl))
(command "-LINETYPE" "LOAD" LtDemoWl "acadiso.lin" "")
)
(command "-LAYER" "LT" LtDemoWl LyDemoWl "")
);progn
);if
;;AA-WALL_DEMO: Set Linetype to HIDDEN2
반응형