联系我们
全国咨询热线:0531-87069882
公司电话：0531-87069882
联系人：王经理
公司传真：0531-87087186
公司地址：山东省济南市市中区小纬四路46号
AutoCAD中批量修改字符串的宽度比例的Lisp小程序
文章作者：山东国泰工程检测鉴定有限公司 上传更新：2016-07-22 16:53
;;;================================================
;;; TEXTS 批量修改字符串的宽度比例 ....
;;; 选择时可以用C W等方式，会自动排除非TEXT的元素。
;;; 变通用法：删除图中的文字但保留其它图元，先用该命令
;;; 选择所有，给定修改比例，实际就是生成了所有TEXT的选
;;; 集，然后用删除命令，输入P选择上一选择集，回车即可。
;;;==========山东国泰工程检测鉴定有限公司==============
(defun c:texts( / ss siz n index ss2 omenu ocmde)
(setq omenu (getvar "menuecho"))
(setq ocmde (getvar "cmdecho"))
(setvar "menuecho" 1)
(setvar "cmdecho" 0)
(setq ss (ssget '((0 . "text"))))
(setq siz (getreal "\nEnter new text width factor:"))
(setq n (sslength ss))
(setq index 0)
(repeat n
(setq ss1 (entget (ssname ss index)))
(setq index (1+ index))
(setq ss2 (assoc 0 ss1))
(entmod (subst (cons 41 siz) (assoc 41 ss1) ss1))
)
(gc)
(setvar "menuecho" omenu)
(setvar "cmdecho" ocmde)
)
上一篇：没有了