修改字高函数源码

bzhyong

自己学习lisp语言。
目前刚开始几天，处于照着书本源码照抄阶段
每抄出来一个源码，自己都兴奋万分
现分享一个修改字体高度的小文件，自己写的

shcvip

CAD有专门这个命令的scaletext
在菜单中选择 [修改] -> [对象] -> [文字] -> [比例]
工具栏里也有，不过要到自定义里去拖出来
速度比Ctl+1还快。

shcvip

(defun c:lsp_41()
(setq old_hh (getvar "textsize"))
(setq str_hh (strcat "\n输入新字高<" (rtos old_hh 2) ">: "))
(setq hh (getdist str_hh))
(if (null hh) (setq hh old_hh))
(setq ss (ssget))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (= sstyp "TEXT")
(progn
(setq old_hh (assoc 40 ssdata))
(setq new_hh (cons 40 hh))
(setq ssdata (subst new_hh old_hh ssdata))
(entmod ssdata)
)
)
(setq i (1+ i))
)
(prin1)
)

shcvip

以上代码来源于魔法书

bzhyong

shcvip 发表于 2017-12-4 22:53
以上代码来源于魔法书

我也学习一下魔法书！