UG爱好者

标题: 利用LISP实现直接画2圆切线（无需去设置点选切点） [打印本页]

作者: zhaojunzs 时间: 2020-1-8 09:16
标题: 利用LISP实现直接画2圆切线（无需去设置点选切点）
CAD中经常会画2圆的切线，用直线命令后，大多是用按住CTRL+鼠标右键选择“切点”，或在捕捉中设置切点，但比较麻烦，复杂图形会选择错误。。。

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

文字内容：
(defun c

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

解释以上文字内容如下：

(defun c

TT() =定义这个功能命令为：LTT 当然，你可时改为自己喜欢的
(command "line" "tan" "\\" "tan" "\\" "") =执行命令直线切点（选择切点）（选择切点）
“” 中间有空格代表输入空格或回车

解释完毕

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

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

(, 下载次数: 81)

点击右下角”启动组“将LISP"文件加入
(, 下载次数: 90)

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

(, 下载次数: 84)

开始享受简单的2圆切线吧{:shy:}

附件：

作者: zhaojunzs 时间: 2020-1-9 14:36
此论坛没戏了

作者: alian5337* 时间: 2020-1-9 15:14
提示: 作者被禁止或删除内容自动屏蔽

作者: zhaojunzs 时间: 2020-1-10 07:36

alian5337* 发表于 2020-1-9 15:14
顶一个，这里都是玩3D的，你跑来搞平面2D，所以没人气啦!

谢谢，你说的有道理，但这是AUTOCAD版块，还是2D的多啊

作者: alian5337* 时间: 2020-1-10 08:16
提示: 作者被禁止或删除内容自动屏蔽

作者: wenyoufang 时间: 2020-11-16 15:10
楼主你好，请问怎么实现若干个圆之间连续的选切点，这个数量不一定

作者: zhaojunzs 时间: 2020-11-17 09:16

wenyoufang 发表于 2020-11-16 15:10
楼主你好，请问怎么实现若干个圆之间连续的选切点，这个数量不一定

命令：直线快速按CTRL+T，快速选圆，再快速按CTRL+T，快速选圆

作者: jdl11 时间: 2023-2-23 12:39
谢谢分享

欢迎光临 UG爱好者 (https://www.ugsnx.com/)