本帖最后由 交流学习 于 2025-9-30 16:09 编辑
Flamingo 发表于 2025-9-29 15:47
你的cad是那个版本，我在cad2022和cad2020上用是没问题的
2018删了几行变量可以了，但是不知道怎么结束管道绘制，怎么垂直画管道
赞一个！！！！感谢大神分享！
交流学习 发表于 2025-9-30 15:01
2018删了几行变量可以了，但是不知道怎么结束管道绘制，怎么垂直画管道
下载我今天的更新的代码，应该没问题了
Flamingo 发表于 2025-9-30 22:03
下载我今天的更新的代码，应该没问题了
dynamicduct命令怎么设置90度，还有THREE_WAY_ELBOW三通四通命令只能打断其中一条管道，不能三个连接，其他命令没问题
本帖最后由 Flamingo 于 2025-10-3 14:19 编辑
交流学习 发表于 2025-10-3 11:01
dynamicduct命令怎么设置90度，还有THREE_WAY_ELBOW三通四通命令只能打断其中一条管道，不能三个连接，其 ...
dynamicduct命令设置90度在函数osnappt中，
; 第二优先级：极轴捕捉 - 只有当没有垂足时才进行极轴捕捉
(if (and (null nearpt) (getvar "autosnap") (> (logand (getvar "autosnap") 32) 0))
(progn
; 定义所有可能的极轴角度（度）- 基于UCS
(setq polar_angles '(0 45 90 135 180 225 270 315)
angle_tolerance 5); 极轴灵敏度变量（角度）
这里一共设置了8个角度，还有极轴灵敏度也可以调，只要开了极轴，这个八个角度是自动捕捉的，
三通的命令你是执行到哪一步出错的，在函数three_way_elbow里面
命令里面有非常多的调试语句，我暂时找不到问题在哪里，可以加我微信18801908550我来看看
Flamingo 发表于 2025-10-3 14:16
dynamicduct命令设置90度在函数osnappt中，
; 第二优先级：极轴捕捉 - 只有当没有垂足时才进行极轴 ...
基本问题解决了，大佬666
下来试试，感谢大佬的分享
顶一下，暖通专业的好东西分享
继续帮顶，大神威武！
工具箱.lsp 里面的 defun c:ModifyDuctWidth 修改风管宽度会出错，如果可以建议大神把工具箱和源代码分开。代码多了100K