-
【快速選擇】方法，選擇文字，在屬性里面修改文字高度。
-
寫一個autolisp小插件，快速修改文字高度。代碼如下：
-
- (defun C:tes ( / &k1 &kw1 &ob1 h1)
(if (null vlax-dump-object) (vl-load-com) )
(if (and
(setq h1 (getdist "n請輸入文字的高度"))
(> h1 0)
(princ "n請選擇文字")
(setq &kw1 (ssget '((0 . "TEXT"))))
)
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq &ob1 (vlax-ename->vla-object &k1))
(vla-put-Height &ob1 h1)
)
)
)
(princ)
);批量修改文字高度
;復(fù)制到記事本，以【.lsp】為后綴命名。AutoCAD打開，autolisp加載，命令【TES】
- (defun C:tes ( / &k1 &kw1 &ob1 h1)
相關(guān)文章
- 2016-02-04AutoCAD批量打印軟件BatchPlot3.5.9下載
- 2012-04-26常青藤CAD輔助插件工具免費下載
- 2012-04-11CAD垃圾批量清理程序V2.5 免費版下載
- 2012-04-02CAD圖紙批量輸出多頁PDF軟件
- 2012-04-02DWG批量分圖工具 V2.0-準確完成CAD分圖、拆圖
- 2012-04-02DWG批量轉(zhuǎn)PDF工具V2.1免費下載
- 2011-11-26楊氏CAD工具箱V1.0下載
- 2011-09-26CAD批量打印大師 V2.5 綠色中文版
- 2011-08-25AutoCAD圖紙批量加密軟件SmartLock4.00
- 2011-01-11A0,A1加長圖紙批量打印程序