namezg 发表于 2018-8-28 08:57:34

本帖最后由 namezg 于 2018-8-28 09:23 编辑

不就是给定中心点、对边画六边形吗？
(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)
)

秋暮衣 发表于 2018-8-28 11:26:31

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

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

lllllja 发表于 2018-8-31 17:29:04

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


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

yshf 发表于 2018-9-1 08:26:36

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

蓝盾设计 发表于 2018-9-1 11:28:06

又学了一丁点
页: 1 [2]
查看完整版本: 我想一段代码里面加入上次输入的默认值，请高手指教