CAD画圆能不能先生成再指定基点

alexmai · 发表于 2018-6-10 08:23:05

搞这么复杂，画完圆后，用 copy 该圆就搞定了

lrd1861 · 发表于 2018-6-10 08:40:07

试一试gbhsu 大师的智能命令

elitefish · 发表于 2018-6-10 20:36:58

本帖最后由 elitefish 于 2018-6-10 20:38 编辑

序号	代码
01. 02. 03. 04. 05. 06. 07. 08. 09.	(defun C:CC ( / elast r) (setq elast (entlast)) (setq r (getreal "\n输入圆半径")) (command "CIRCLE" '(0 0) r ) (princ (getvar 'CMDACTIVE)) (if (not (equal (entlast) elast)) (command "move" (ssadd (entlast)) "" '(0 0)) ) )

账号		自动登录	找回密码
密码			注册

[讨论] CAD画圆能不能先生成再指定基点