999999 发表于 2020-8-25 09:35:44

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

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

kwok 发表于 2020-8-25 09:35:45

本帖最后由 kwok 于 2020-8-25 10:44 编辑

(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 发表于 2020-8-25 12:22:06

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


谢谢大神的帮助
页: [1]
查看完整版本: (求助)请问大神们以下源码如何改成输入命令后提示输入比例