CAD中的相切 相切 相切画圆的快捷命令

相切 相切 相切画圆还是circle命令，只是加了参数3p而已，要想把它搞成快捷命令方式，只有用LISP编点代码来实现了。。。

例如：

(defun S::STARTUP ()
(setvar "cmdecho" 0)
;;相切 相切 相切画圆
(defun C:xc ()
(command ".circle" "3p")
(princ)
)
(princ)
)

将以上代码复制在记事本中，另存为acad.lsp，放在CAD安装目录内重打CAD后即可使用命令xc来画相切 相切 相切圆了。

相切 相切 相切画圆还是circle命令，只是加了参数3p而已，要想把它搞成快捷命令方式，只有用lisp编点代码来实现了。。。

例如：

(defun S::STARTUP ()
(setvar "cmdecho" 0)
;;相切 相切 相切画圆
(defun C:xc ()
(command ".circle" "3p")
(princ)
)
(princ)
)

将以上代码复制在记事本中，另存为acad.lsp，放在CAD安装目录内重打CAD后即可使用命令xc来画相切 相切 相切圆了。

相切 相切 相切画圆，最快的方法是选择绘图菜单-圆-相切 相切 相切画圆。