查看单个帖子
旧 2009-04-27, 12:42 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 请教一个尺寸标注文字替代lisp,谢谢!

请教一个尺寸标注文字替代lisp,谢谢!
www.dimcax.com
请教一个尺寸标注文字替代lisp,谢谢!
例15.000,1.输入命令后,2.输入字符"int” 3.选尺寸15.000(最好可复选)回车尺寸变成int15.000
d
(defun c:tt ()
(if (setq stt (getstring "\n输入字符 :")) (progn
(setq stt (strcat stt "<>"))
(command ".dimoverride" "dimpost" stt "")
))
(princ)
)
踅摸
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)