wpsf112 发表于 2008-1-31 14:12:16

CAD直线合并

CAD直线合并
命令：hbzhx

yangxuan0002 发表于 2008-1-31 15:43:43

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

wpsf112 发表于 2008-1-31 16:46:06

直线合并

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

yunzhzi 发表于 2008-1-31 18:42:40

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

Lyn 发表于 2008-2-1 22:33:51

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

小鱼儿 发表于 2008-2-13 09:06:51

想法不错～

fifm 发表于 2008-2-23 13:06:19

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

nitianmo 发表于 2008-3-2 01:41:15

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

smxalsen 发表于 2008-3-4 14:49:58

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

huaxia8282 发表于 2008-3-10 20:30:21

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

killxad 发表于 2008-3-18 15:23:10

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

oudeququ 发表于 2008-3-18 19:04:21

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

路与天 发表于 2008-3-23 17:17:46

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

wwwcchao 发表于 2008-11-29 14:21:34

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

zml84 发表于 2008-11-30 14:48:39

重线消除（源码）

重线消除.lsp;;;重线消除;;;========================================(defun C:TT (/ SS LST I EN ENL PT10 PT11 A N LST_NEW)    (if        (setq SS (ssget '((0 . "LINE"))))        (progn          ;;组织成表((enpt10pt11)...)          (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))
页: [1] 2
查看完整版本: CAD直线合并