数字连续递增
(defun c:no()(SETQ A_GET (getint (STRCAT "\n请输入序号<" (RTOS (IF (= A nil)(setq A 1) A) 2 0) ">:")))
(IF A_GET (setq A A_GET))
(WHILE (setqp1 (getpoint "\n请选择放置位置:"))
(command "text" "J" "M" p1 5 0 A)
(SETQ A (+ 1 A))
)
(princ)
)
哪位高手帮我改下，第2次，3次…… 输入命令no 接着前一次的数字递增。
假如说输入第一次命令 编号从1编到10第二次输入命令直接拾取点编号为11 次程序再第二次输入命令时要回车2次才行。
哪位高手帮我改改
把变量A存到系统变量USERR1-5中，或写入注册表中，第二次读取系统变量或注册表
(defun c:no( / p1)
(IF (= A nil) (setq A 1))
(initget "K k")
(WHILE (setqp1 (getpoint (strcat "\n调整起始数字<k>\\请选择放置位置(" (RTOS A 2 0) "):")))
(if (and (= (type p1) 'STR) (= (strcase p1) "K"))
(SETQ a (getint (STRCAT "\n请输入序号<" (RTOS A 2 0) ">:")))
(progn
(command "text" "J" "M" p1 5 0 A)
(SETQ A (+ 1 A))
(initget "K k")
)
)
)
(princ)
) 谢谢改的很好
页:
[1]