CAD怎样批量改字体大小的详细操作方法

时间:2015-12-15 07:30:22 来源:未知

【快速选择】方法，选择文字，在属性里面修改文字高度。
写一个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)
);批量修改文字高度
;复制到记事本，以【.lsp】为后缀命名。AutoCAD打开，autolisp加载，命令【TES】

上一篇： CAD所有线长的总和用什么命令的详细讲解

下一篇：CAD的vba单行文字居中对齐应该怎么写

CAD怎样批量改字体大小的详细操作方法

相关文章