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))
    )
)
页: 1 [2]
查看完整版本: CAD画圆 能不能先生成再指定基点