请高手修改！多谢啦！(已解决)
 

请高手修改！多谢啦！(已解决)
www.dimcax.com
请高手修改！多谢啦！(已解决)
( c:99( ent)
( "cmdecho" 0)
( ent ())
( dea ( "\n提示你请输入新的★线形比例★:"))
( "chprop" ent "" "s" dea "")
( "cmdecho" 1)
())
请教怎么记录dea的数据,就是说如果dea的值一样 ，我就可以按回车选择就完成啦！
多谢啦！
d
储存数据啊，用全局变量、注册表、词典、文本文件等方法皆可
d
另可用user*
d
能否详细一点！多谢啦
d
(defun c:99(/ ent)
(if (= #abcdefghij nil) (setq #abcdefghij 1.0))
(setvar "cmdecho" 0)
(setq ent (ssget))
(setq dea (getdist (strcat "\n提示你请输入新的★线形比例★<" (rtos #abcdefghij 2) ">:")))
(if (= dea nil)(setq dea #abcdefghij) (setq #abcdefghij dea))
(command "chprop" ent "" "s" dea "")
(setvar "cmdecho" 1)
(princ)
);end_defun
d
多谢！ayunger