AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
有關字型設定的問題 Io15011 有關字型設定的問題 2020-310 有關字型設定的問題 Oiu15010 有關字型設定的問題 2020-211 有關字型設定的問題 Oo-2-110 有關字型設定的問題 BPl3tjj

有關字型設定的問題

向下

有關字型設定的問題 Empty 有關字型設定的問題

發表 由 jeouen 2019-09-02, 23:21

各位先進
我想要用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-文字說明")
(setvar "textstyle" "TEXT_W0.75")
)
jeouen
jeouen
一般會員
一般會員

文章總數 : 52
年齡 : 53
來自 : 高雄市
職業 : 展示設計師
愛好 : 畫畫、手工藝
個性 : 恰北北
使用年資 : 從AUTO CAD R9 到現在
使用版本 : 2012
經驗值 : 4252
威望值 : 3
注冊日期 : 2010-04-26
藍鵲354號
女 摩羯座 羊

回頂端 向下

有關字型設定的問題 Empty 回復: 有關字型設定的問題

發表 由 隨風浮雲 2019-09-03, 19:36

是 -STYLE 不是 _STYLE

是-LAYER 不是 _LAYER

另外 IF的字句,下面這樣比較簡潔一點:
(
if (= (tblsearch "style" "自訂-txt") nil)
(command "-STYLE" "自訂-txt" "isocp,chineset" 0 1 0 "N" "N")
)
隨風浮雲
隨風浮雲
初級會員
初級會員

文章總數 : 81
年齡 : 50
來自 : 新店
職業 : 水處理設計
愛好 : 看美劇
個性 : 忠厚
使用年資 : 2x年
使用版本 : 2014
積分 : 2
經驗值 : 4330
威望值 : 112
注冊日期 : 2010-07-22
男 巨蟹座 狗

回頂端 向下

有關字型設定的問題 Empty 回復: 有關字型設定的問題

發表 由 jeouen 2019-09-04, 12:21

謝謝隨風浮雲的提點,感謝
jeouen
jeouen
一般會員
一般會員

文章總數 : 52
年齡 : 53
來自 : 高雄市
職業 : 展示設計師
愛好 : 畫畫、手工藝
個性 : 恰北北
使用年資 : 從AUTO CAD R9 到現在
使用版本 : 2012
經驗值 : 4252
威望值 : 3
注冊日期 : 2010-04-26
藍鵲354號
女 摩羯座 羊

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
有關字型設定的問題 Uos15010 有關字型設定的問題 BPl3tjj 有關字型設定的問題 Ziao1510 有關字型設定的問題 Oo-2-110 有關字型設定的問題 Oooo-110 有關字型設定的問題 2020-211