一个修改标注的程序，放大倍数可以，缩小却不行

贱人

比如缩小0.5倍就不行，可以改么？能改就把改好的代码贴一遍，谢谢 (defun C:test()
(prompt "\nSelect Dimension: ")
(setq SS (ssget '((0 . "DIMENSION")))
I 0
)
(if (= KEY NIL)
(setq KEY "Default")
)
(initget "Scale Input Default")
(setq KEY0
(getkword (strcat "\nPlease select option[Scale/Input/Default]<"
KEY
">:"
)
)
)
(if (/= KEY0 NIL)
(setq KEY KEY0)
)
(cond ((= KEY "Scale") (setq SCALE (getint "\ninput the scale:")))
((= KEY "Input") (setq TXT (getstring "\ninput the new txt:")))
)
(repeat (sslength SS)
(setq DIM (entget (ssname SS I))
AA (cdr (assoc 42 DIM))
BB (cdr (assoc 1 DIM))
)
(cond ((= KEY "Scale") (setq NEWTXT (rtos (* AA SCALE))))
((= KEY "Input") (setq NEWTXT TXT))
((= KEY "Default") (setq NEWTXT "<>"))
)
(entmod (subst (cons 1 NEWTXT) (assoc 1 DIM) DIM))
(setq I (1+ I))
)
)

无痕

(setq SCALE (getint "\ninput the scale:"))改为


(setq SCALE (getreal "\ninput the scale:"))

贱人

谢谢，可以用了