查找重叠的线段

wide

在dwg图中如何找出选择部分线段中完全重叠的直线，即首尾（或尾首）点重合，不是删除。部分重合不包含在内。有这样的代码更好，谢谢。

杨小五

2. (defun c:cc()
   
3.   (setq ss(ssadd))
   
4.   (prompt "\n选择处理直线对象：")
   
5.   (setq ss1(ssget '((0 . "line"))))
   
6.           (setq i (1- (sslength ss1)))
   
7.           (while (>= i 0)
   
8.             (setq ll(ssname ss1 i))
   
9.             (setq p10(cdr (assoc 10 (entget ll)))
   
10.                   p11(cdr (assoc 11 (entget ll))))
    
11.             (setq tmp_ss(ssget "x" (list '(0 . "line")(cons 10 p10) (cons 11 p11))))
    
12.             (if (> (sslength tmp_ss) 1)
    
13.               (progn
    
14.               (setq j 0)
    
15.               (repeat (sslength tmp_ss)
    
16.                 (setq ss(ssadd (ssname tmp_ss j) ss)
    
17.                       ss1(ssdel (ssname tmp_ss j) ss1))
    
18.                 (setq j(1+ j))
    
19.                 )
    
20.               )
    
21.               (setq  ss1(ssdel (ssname tmp_ss 0) ss1))
    
22.               )
    
23.             (setq i (1- (sslength ss1)))
    
24.             )
    
25.   (sssetfirst  nil ss)
    
26.   )

(defun c:cc()<br />   (setq ss(ssadd))<br />   (prompt "\n选择处理直线对象：")<br />   (setq ss1(ssget '((0 . "line"))))<br />           (setq i (1- (sslength ss1)))<br />           (while (>= i 0)<br />             (setq ll(ssname ss1 i))<br />             (setq p10(cdr (assoc 10 (entget ll)))<br />                   p11(cdr (assoc 11 (entget ll))))<br />             (setq tmp_ss(ssget "x" (list '(0 . "line")(cons 10 p10) (cons 11 p11))))<br />             (if (> (sslength tmp_ss) 1)<br />               (progn<br />               (setq j 0)<br />               (repeat (sslength tmp_ss)<br />                 (setq ss(ssadd (ssname tmp_ss j) ss)<br />                       ss1(ssdel (ssname tmp_ss j) ss1))<br />                 (setq j(1+ j))<br />                 )<br />               )<br />               (setq  ss1(ssdel (ssname tmp_ss 0) ss1))<br />               )<br />             (setq i (1- (sslength ss1)))<br />             )<br />   (sssetfirst  nil ss)<br />   )

wide

第一个找不全的问题应该是有组码10和11颠倒的，增加一个颠倒的就可以了，不知道怎么写。还望赐教。

weijiewen

我也在寻找

杨小五

wide 发表于 2024-12-13 19:43
第一个找不全的问题应该是有组码10和11颠倒的，增加一个颠倒的就可以了，不知道怎么写。还望赐教。

把前面代码里(setq tmp_ss...那句改成：
(setq tmp_ss(ssget "x" (list '(0 . "line") '(-4 . "<OR")
                                     '(-4 . "<AND")(cons 10 p10) (cons 11 p11)'(-4 . "AND>")
                                     '(-4 . "<AND")(cons 10 p11) (cons 11 p10)'(-4 . "AND>")
                                      '(-4 . "OR>"))))
就可以了

杨小五

杨小五 发表于 2024-12-13 14:12

没有理解你写的第二点，现在代码处理的就是选定的直线查找重叠线的

wide

第二点主要是怕影响速度，因为是全选图形，而后循环。非常感谢大佬的帮助。