CAD直线合并

CAD直线合并
命令：hbzhx

请楼主说明下,你上传的*.lip有什么作用???????

把重的直线合并成一条直线！
这个可以减少重合的线条。

恩 有点意思     有的时候可以避免图层间线太多了

(*^__^*) 嘻嘻……就是有点意思啊！比删掉这个方法好！

想法不错～

我知道输入group命令便可以把多条直线或曲线都可以合并成一条线，pedit可以把它合成一条多段线。

顶~~~学习~~学习~~学习~~学习~~学习~~:D

学习一下,这个比较新鲜一些,我在这方面还的不够

这个方法是不是很有用的， 我也学习一下:D

现在新的CAD2007里，直接用“jion”命令就可以合并了，很方便。

恩 很好的思路啊～～～～～呵呵谢谢

没看明白什么意思把相连的几条线弄成一条多段线
用什么指令
哪为达人教我下

支持一下！！！！！！！！

重线消除.lsp;;;重线消除  ;;;========================================(defun C:TT (/ SS LST I EN ENL PT10 PT11 A N LST_NEW)    (if        (setq SS (ssget '((0 . "LINE"))))        (progn            ;;组织成表  ((en  pt10  pt11)...)            (setq LST '()                  I   0            )            (repeat (sslength SS)                (setq EN   (ssname SS I)                      ENL  (entget EN)                      PT10 (cdr (assoc 10 ENL))                      PT11 (cdr (assoc 11 ENL))                )                (setq LST (cons (list EN PT10 PT11) LST))                (setq I (1+ I))            )            ;;逐个对比            (while LST                ;;取首个                (setq A          (car LST)                      LST (cdr LST)                )                ;;对比                (setq LST_NEW '())                (foreach N LST                    (if        (or (equal (cdr A) (cdr N) 0.1)                            (equal (cdr A) (reverse (cdr N)) 0.1)                        )                        (entdel (car N)) ;_删除实体                        (setq LST_NEW (cons N LST_NEW))                    )                )                ;;                (setq LST LST_NEW)            )        )    )    (princ))