(求助)请问大神们以下源码如何改成输入命令后提示输入比例

999999

求助:请问大神们以下源码如何改成输入命令后提示输入比例再生生排板框
切换图层后生成排板框
(defun C:TG ()
      (setq aa (getpoint))
      (command "-layer" "m" "layer9"  "")  
      (command "RECTANGLE" aa "@1180,980")
(PRINC))

kwok

(defun C:TG ()
     (setq sc(getreal"\n输入 比例")
            )
      (command "-layer" "m" "layer9"  "")  
      (command "RECTANGLE" pause (strcat "@" (rtos (* sc 1180) 2) "," (rtos (* sc 980) 2)))
(PRINC))

999999

kwok 发表于 2020-8-25 09:35
(defun C:TG ()
     (setq sc(getreal"\n输入 比例")
            )

谢谢大神的帮助