研究过最大包围框的，请进

ll_j

llsheng_73 发表于 2014-5-12 09:47
我觉得可以求出所有图元的包容盒，设置一个容差值，对所有包容盒进行处理
如果两个包容盒相交或者包含或者 ...

我也觉得这种算法好一点，问题的归根结底就是算出那些实体是在同一个模糊范围内的，除了要求作图相对规范外，也无法提更高要求，当然，人为做块是一种方法，但耗时、耗力是肯定的，对于实体，求包围盒其实就是求最大最小坐标，速度差异是很小的，因此，我感觉你这个方法是合理的。

xyp1964

cxjzxh 发表于 2014-5-12 16:50
具体描述为：
1.选择集a,第一个图元外框ssget（外框四点点集）
2.以选择到的图元作为一个新的外框；

这样的图会出现啥效果？

xyp1964

来个比较特殊的例子：

xyp1964

焊接演变：

邹锋

  再来试试这些图   
boundary     你们都是用这命令来的吗

xyp1964

xyp1964

Gu_xl

邹锋 发表于 2014-5-12 18:36
再来试试这些图   
boundary     你们都是用这命令来的吗

程序:

游客，本帖隐藏的内容需要发帖数高于 30 才可浏览，你当前发帖数只有 0

langjs

测试图纸没通过


(defun c:qqq ( / i lst lst1 lst2 lst3 n nn nnn ss)
  (setq lst '()        lst1 '() lst3 '())
  (setq ss (ssget '((0 . "LINE"))))
  (repeat (setq i (sslength ss))
    (setq lst (cons (ssname ss (setq i (1- i))) lst))
  )
  (while (setq n (car lst))
    (setq lst (vl-remove n lst)         lst2 (list n)  lst3 (cons n lst3))
    (foreach nn lst
      (if (inters (cdr (assoc 10 (entget n)))  (cdr (assoc 11 (entget n)))
                  (cdr (assoc 10 (entget nn))) (cdr (assoc 11 (entget nn))))
        (setq lst2 (cons nn lst2))
      )
    )
    (setq lst1 (cons lst2 lst1))
  )
  (while (setq n (car lst3))
    (setq lst2 '())
    (foreach nn lst1
      (if (member n nn)
        (setq lst2 (append lst2  nn ))
      )
      (foreach nnn lst2
        (setq lst2 (cons nnn (vl-remove nnn lst2)))
      )
    )
    (foreach nn lst2
      (setq lst3 (vl-remove nn lst3))
    )
    (setq lst (cons lst2 lst))
  )
)

langjs

cxjzxh 发表于 2014-5-12 16:50
具体描述为：
1.选择集a,第一个图元外框ssget（外框四点点集）
2.以选择到的图元作为一个新的外框；

这个思路很好哈