[原创]：双线裁剪 对#形线打断 通长用于打断墙线

elitefish

自己编写的一个双线裁剪的源程序
可以框选!

tr2 自动打断 (打断方法:按交点次序)
tr3 按用户指定最小打断间距打断 (距离小于指定距离的交点间打断)

其中Tr3当指定间距为0时即可实现在所有交点处打断直线

[TR1]  双线节点修剪 已经完成   [/SIZE] [/COLOR]


其中已包含 [TR2] 和 [TR3]

elitefish

效果如下图

改程序对内部点处理较好 对边线和转角处修剪还不理想

节点修改程序正在写,完成后就可以与之配合达到较好的双线修剪效果了

yoyoho

下不了,不知道什么原因啊!
试了n次,有谁了解喔!

elitefish

昨天上传的    重新修正了

昨天下载的 下载下面的 修正函数

;取得直线弧度 (-1.570796 ~ +1.570796)
(defun EF:GetAngleByeLine (entLine / Pt1 Pt2)替换原来的函数[/COLOR]

[PHP]
;取得直线弧度 (-1.570796 ~ +1.570796)
(defun EF:GetAngleByeLine (entLine / Pt1 Pt2)
        (setq
                Pt1 (cdr (assoc 10 (entget entLine)))
                Pt2 (cdr (assoc 11 (entget entLine)))
        )
        (cond
                (        (= (car Pt2) (car Pt1))
                        (if ( > (cadr Pt2) (cadr Pt1)) (/ pi 2) (/ pi -2) )
                )
                (        T
                        (atan ( / (- (cadr Pt2) (cadr Pt1)) (- (car Pt2) (car Pt1))))
                )
        )
)
[/PHP]

再增加以下函数
;对去除列表中所有单元第一个元素
(defun EF:List:CDRElement ( lstList / lstReturn)

[PHP]
;对去除列表中所有单元第一个元素
(defun EF:List:CDRElement ( lstList / lstReturn)
        (setq lstReturn nil)
        (while lstList
                (setq
                        lstReturn (cons (cdr (car lstList)) lstReturn)
                        lstList (cdr lstList)
                )
        )
        (reverse lstReturn)
)
[/PHP]

daidong013

我要下载！~~~

elitefish

双线节点修剪 完成

elitefish

[TR1] 为节点修剪[/COLOR]

最近写的多个程序打包下载

其中 EF_Loader.lsp为引导程序

将压缩包打开 将文件夹加入 cad 的搜索路径中

加载 EF_Loader.lsp  OK

查看所有命令 执行 EF


##########  EF:Tools 工具箱  ###########

1. 视图转换：  [VS] 目标坐标系视图    [VW] 世界坐标系视图    [VA] 自动视图

                           [V1] 视口锁定    [V2] 视口解锁

2. 视图放大：  [ZZ] 窗选放大视图(无捕捉)    [ZW] 窗选视图(带捕捉)    [ZD] 动??糯笫油?

3. 对象实体：  [XS] 拉伸(显示十字光标)    [Z0] Z轴归0

              [TR1] 双线节点裁剪    [TR2]双线裁剪    [TR3] 双线裁剪(按距离-建议用于修剪墙线)

              [PLM] PL线原位反转    [PLC] PL线闭合

              [R1] 绘点钢筋

4. 图层工具：  [C1] 选层显示    [C2] 选层隐藏    [C3] 选层锁定    [C4] 选层冻结

5. 标注工具：  [D1] 线性标注    [D2] 对齐标注    [DA] 弧长标注    [DC] 连续标??   [D5]区间编号

6. 文本工具：  [AT] 文本对齐    [SD] 万能编辑    [TXT] 沿线输入

7. 其他命令：  [SS] 快速保存    [OO]常用捕捉

其中 [AT] 文本对齐 有问题 暂时不能执行

[SD] 万能编辑 和 [Z0] Z轴归0  是网上收集的

litss

下载链接好像有问题啊，费了一个币，啥也没下到

carrot1983

是源码哦。。。
可惜下载不了。

clearlai

好东西。我下了。。先谢谢你。

jdhszh

只能打断直线不太好用，多线段是否也可以呢？

Archs

真是太好了，支持多选项剪裁。谢谢楼主！

xlmx-whj

我也想要能支持多段线，和矩形交叉点删除的工具，望

ooohen

gdfgsdgsdgsdhsdhshsd

xlmx-whj

老大，我还是比较喜欢用框选的方式来操作。不知能否加入对封闭曲线和多段线的支持呢？