在中自定义默认命令

rocneasta · 发表于 2022-7-6 11:16:24

http://www.cadtutor.net/forum/showthread.php?t=47161

我正在发布一个链接，指向之前提出的一个问题，直到我们得出结论，唯一的方法就是Lisp程序！

可以将AutoCAD设置为按直径而不是按半径自动绘制圆吗。也许在Appload启动中加载它，这样就可以定义如何应用命令循环。。。

有什么可行的想法吗？

alanjt · 发表于 2022-7-6 11:43:08

快速。。。

copy

(defun c:CD (/ pt)
 (if (setq pt (getpoint "\nSpecify center point for circle: "))
   (command "_.circle" "_non" pt "_diameter")
 )
 (princ)
)

rocneasta · 发表于 2022-7-6 12:04:42

干杯，就像一个魅力，需要学习这个Lisp程序

alanjt · 发表于 2022-7-6 12:18:17

不客气。这节省了时间。

[编程交流] 在中自定义默认命令

发表回复

精选推荐