初级求助 三点画相切圆（高手勿近啊哈哈）

freehand8008

三点画圆这样

命令: C CIRCLE
指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p

(defun c:c3()
(command "CIRCLE" "3P")
)

三点画相切圆。。。。怎么搞呢
命令: _circle
指定圆的圆心或 [三点(3P)/两点(2P)/切点、切点、半径(T)]: _3p 指定圆上的第一个点: _tan

lucas_3333

你是想用LISP做？

http://bbs.mjtd.com/thread-100983-1-1.html

freehand8008

lucas_3333 发表于 2014-6-16 16:14
你是想用LISP做？

http://bbs.mjtd.com/thread-100983-1-1.html

我不想要那么高深的功能啊，只是设置个快捷键而已

Gu_xl

(defun c:c3()
(command "CIRCLE" "3P" "tan" pause "tan" pause "tan" pause )
)

ll_j

(command "circle" "3p" "tan" pause "tan" pause "tan" pause)
这是菜单中三切点画圆的过程，不过使用command函数时，过程提示是被屏蔽的。