各位先進
我想要用lisp偵測是否有TEXT_W0.75字型及-0-文字說明圖層，如果沒有就設定字型及圖層
程式如下，其執行時常常會同時出現help的畫面，或是會出現問用什麼字型的字句，
煩請各位先進，幫我看一下，是哪裡出錯，
謝謝
(defun chk_style()
(setq chksty(tblsearch "style" "TEXT_W0.75"))
(if (null chksty)
(command "_style" "TEXT_W0.75" "TXT,genie" "" "0.75" "0" "n" "n" "n" "" "")
)
(setq chklay(tblsearch "layer" "-0-文字說明"))
(if (null chklay)
(command "_layer" "m" "-0-文字說明" "c" "7" "-0-文字說明" "")
)
(setvar "clayer" "-0-文字說明")
...
↧