感谢start4444大侠，解决了我的一个大难题
不过就是当我把字高设置在12，重新修改时，读取的字高明 ...
(defun c:ctxt(/ dxf40 edata ent hig newhig)
(if (and (setq ent (entsel "\n请点选需要修改字高的单行文字：")) (equal "TEXT" (cdr (assoc 0 (setq edata (entget (setq ent (car ent))))))));;判断是否成功选择
(progn
(setq hig (cdr (setq dxf40 (assoc 40 edata))));;获取当前文字字高
(if (setq newhig (getreal (strcat "\n请输入新的高度，当前字高<" (rtos hig) ">：")));;输入新的字高并判断是否为成功输入，成功输入则修改，否则则静默退出
(entmod (setq edata (subst (cons 40 newhig) dxf40 edata)))
(princ "\n无效输入，不作修改！！！")
)
)
(alert "\n没有选择单行文字对象！")
)
(prin1)
) 在明經論壇，人才濟濟，感謝各位大大的分享 fangmin723 发表于 2021-11-11 10:29
(defun c:ctxt(/ dxf40 edata ent hig newhig)
(if (and (setq ent (entsel "\n请点选需要修改字高的单 ...
万分感谢fangmin723大侠，很好用，厉害厉害:victory: fedd 发表于 2021-11-11 07:00
感谢start4444大侠，解决了我的一个大难题
不过就是当我把字高设置在12，重新修改时，读取的字高明 ...
(setq hig (getreal (strcat "\n输入新字高<" (rtos h_mr 3 2) ">:"))) 这句改为(setq hig (getreal (strcat "\n输入新字高<" (rtos h_mr 2 2) ">:"))) 燕秀那个批量修改文字高度好像比这个还方便,单行和多行文字可同时使用.
页:
1
[2]