(setvar "expert" 5) (defun c:tt1 ( / una ) (setvar 'cmdecho 0)
(setvar "expert" 5)
(setq una (getstring "\n设置列表新比例:"))
(command "-SCALELISTEDIT" "A" (strcat "1:" una ) (strcat "1:" una ) "E" )
(princ"\n完成添加!")
(setvar 'cmdecho 1)
(princ)
) x_s_s_1 发表于 2019-12-24 20:15
试试
老师,厉害,就是这个效果,很棒!
页:
1
[2]