有關字型設定的問題
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
有關字型設定的問題
各位先進
我想要用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")
)
我想要用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- 一般會員
- 文章總數 : 60
年齡 : 56
來自 : 高雄市
職業 : 展示設計師
愛好 : 畫畫、手工藝
個性 : 恰北北
使用年資 : 從AUTO CAD R9 到現在
使用版本 : 2012
經驗值 : 5570
威望值 : 9
注冊日期 : 2010-04-26
回復: 有關字型設定的問題
是 -STYLE 不是 _STYLE
是-LAYER 不是 _LAYER
另外 IF的字句,下面這樣比較簡潔一點:
(
if (= (tblsearch "style" "自訂-txt") nil)
(command "-STYLE" "自訂-txt" "isocp,chineset" 0 1 0 "N" "N")
)
是-LAYER 不是 _LAYER
另外 IF的字句,下面這樣比較簡潔一點:
(
if (= (tblsearch "style" "自訂-txt") nil)
(command "-STYLE" "自訂-txt" "isocp,chineset" 0 1 0 "N" "N")
)
隨風浮雲- 初級會員
- 文章總數 : 81
年齡 : 54
來自 : 新店
職業 : 水處理設計
愛好 : 看美劇
個性 : 忠厚
使用年資 : 2x年
使用版本 : 2014
積分 : 2
經驗值 : 5606
威望值 : 112
注冊日期 : 2010-07-22
回復: 有關字型設定的問題
謝謝隨風浮雲的提點,感謝
jeouen- 一般會員
- 文章總數 : 60
年齡 : 56
來自 : 高雄市
職業 : 展示設計師
愛好 : 畫畫、手工藝
個性 : 恰北北
使用年資 : 從AUTO CAD R9 到現在
使用版本 : 2012
經驗值 : 5570
威望值 : 9
注冊日期 : 2010-04-26
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章