请教一个尺寸标注文字替代LISP，谢谢！

abtjy · 发表于 2008-12-2 13:47:00

例15.000，1.输入命令后，2.输入字符"int” 3.选尺寸15.000（最好可复选）回车尺寸变成INT15.000

ZZXXQQ · 发表于 2008-12-3 21:07:00

(defun c:tt ()
(if (setq stt (getstring "\n输入字符 :")) (progn
(setq stt (strcat stt "<>"))
(command ".DIMOVERRIDE" "DIMPOST" stt "")
))
(princ)
)

sjzm · 发表于 2016-10-20 10:23:36

ZZXXQQ 发表于 2008-12-3 21:07
(defun c:tt () (if (setq stt (getstring "\n输入字符 :")) (progn  (setq stt (strcat stt " ...

你好，用了这段代码后在原标注尺寸前加了修改的尺寸，原来是1405，我修改成1400后变成14001405了

ll_j · 发表于 2016-10-20 10:46:12

sjzm 发表于 2016-10-20 10:23
你好，用了这段代码后在原标注尺寸前加了修改的尺寸，原来是1405，我修改成1400后变成14001405了

那个代码是加前缀的，修改文字看看我这个古旧而简单的：
(defun c:nt()(command "dim1" "newtext"))

sjzm · 发表于 2016-10-20 11:00:32

ll_j 发表于 2016-10-20 10:46
那个代码是加前缀的，修改文字看看我这个古旧而简单的：
(defun c:nt()(command "dim1" "newtext"))

简单粗暴而且有效

账号		自动登录	找回密码
密码			注册