我想一段代码里面加入上次输入的默认值，请高手指教

namezg

不就是给定中心点、对边画六边形吗？
(defun c:6b (/ newdbdist cen)
        (princ "\n功能：指定中心点、对边画六边形。")
        (setvar "cmdecho" 0)
        (if (not newdbdist1)
                        (setq newdbdist1 10.0)
        )
        (while (setq cen (getpoint "\n请指定六边形的中心点<退出>: "))
                (if  (not (setq newdbdist (getdist (strcat "\n请输入六边形的对边距离<" (rtos newdbdist1) ">: "))))
                                (setq newdbdist newdbdist1)
                                (setq newdbdist1 newdbdist)
                )
                (command "_polygon" "6" "non" cen "c" (/ newdbdist 2.0))
        )
        (setvar "cmdecho" 1)
        (princ)
)

秋暮衣

namezg 发表于 2018-8-27 08:45
(defun c:dbx( / newdbdist cen)
        (setvar "cmdecho" 0) ;指令执行过程不响应
        (princ "\n画六边形工具") ...

能向您请教下这方面的问题吗？

lllllja

yshf 发表于 2018-8-27 22:19

请教一下用USERR，如果存储的数据较多怎么办，会不会不够用，如果其他程序也用的话会不会冲突，应该会被覆盖掉吧

yshf

请教一下用USERR，如果存储的数据较多怎么办......

系统变量USERR1～USERR5每个仅能储存一实数值，如果其它程序也在用，会被覆盖。如数据多，可采用扩展数据(XData)、Xrecord、图形词典等来处理。

蓝盾设计

又学了一丁点