快速画圆切线lisp_AUTOCAD中快速画2圆切线的LISP,无需设置选择切点

CAD中经常会画2圆的切线，用直线命令后，大多是用按住CTRL+鼠标右键选择“切点”，或在捕捉中设置切点，但比较麻烦，复杂图形会选择错误。。。

利用LISP语言(AUTOCAD自带，无需额外安装)编辑一段文字，设置AUTOCAD启动时自动加载，直接输入命令LTT即可直接画切线，鼠标放在圆形上时自动显示切点符号，太方便了。

文字内容：

(defun c:LTT()

(command "line" "tan" "\\" "tan" "\\" "")

)

解释以上文字内容如下：

(defun c:LTT()  =定义这个功能命令为：LTT        当然，你可时改为自己喜欢的

(command "line" "tan" "\\" "tan" "\\" "") =执行命令 直线  切点  (选择切点)    (选择切点)

“” 中间有空格 代表输入空格或回车

解释完毕

此命令可以像其它CAD命令一样，结束一个后直接空格或回车继续执行

使用办法：

1、在CAD界面中输入“AP"调出以下界面：

2、点击右下角”启动组“将LISP"文件加入

3、重新启动AUTOCAD，允许每次加载就可以了

像平时的CAD命令一样，输入“LTT",选择第一个圆的切点，再选择第二个圆的切点，公切线 就画好了，简单吧。

附件：

ll.rar

(132 Bytes, 下载次数: 15)

2020-1-8 14:00 上传

点击文件名下载附件

LISP附件

下载积分: 吾爱币 -2 CB