我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網站首頁 > CAD教程 > 常見問題

CAD怎樣批量改字體大小的詳細操作方法

時間:2015-12-15 07:30:22 來源:未知

  1. 【快速選擇】方法，選擇文字，在屬性里面修改文字高度。

  2. 寫一個autolisp小插件，快速修改文字高度。代碼如下：
     

    1. (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)
      );批量修改文字高度
      ;復制到記事本，以【.lsp】為后綴命名。AutoCAD打開，autolisp加載，命令【TES】