補助線用のレイヤーを作成

;;Kim_InfM.lsp
;;Command Name "xm"
;;補助線(構築線)用のレイヤーを作成
;;
;;May 06.2006 Version 1.0
;;
;;Coding by Kim Grossa
;;
;;*****使用方法
;;コマンドラインで"xm"と入力し、Enter
;;
(defun C:xm()

;*****現在のレイヤーを退避
(setq oldLayer (getvar "CLAYER"))

;*****補助線用のレイヤーを作成
(setq flag (tblsearch "LAYER" "AuxLine"))
(if (not flag)
;2回目からはレイヤーの作成をしない
(progn
(command "Layer" "m" "AuxLine" "c" "210" "" "") ;名前　AuxLine 色　210
(command "Layer" "p" "n" "AuxLine" "" ) ;補助線を印刷しない設定
)
)

;*****レイヤーを復旧
(setvar "CLAYER" oldLayer)

)