做一个无所不能的选择集外包围

snsj

近期大家一直在讨论图形外包围的问题
干脆玩大一点
大家一块努力做一个无所不能的外包围，让XD放到小东工具箱的201位:lol
我提供自己的思路：首先支持所有CAD的图元，各类线、光栅图、块、填充、文字。。。。。。
SPLINE的错误问题（这个其实很简单，用点表模拟SPLINE最后排序就行），主要是块的处理，要考虑嵌套块的处理，块里有可能包含SPLINE的情况；支持UCS

XDSoft

贴个图说明问题啊。

Lispboy

其实对于SPLINE也不比那么准确，ACAD内核既然那么做，说明可以满足需要

想想，我们为啥要用包围盒？ 不过是为了定位实体为后面程序处理。得到范围内的实体就够了。

除了特殊指定的需要（个别）的需要准确的。

snsj

这个是vla-getboundingbox SPLINE出错的图片，这个主题就是把以前大家做的所有关于外包围的帖子总结，考虑到SPLINE的问题和块内SPLINE的问题，甚至嵌套块内SPLINE的问题，需要遍历图块内所有图元，支持CAD包含的所有图元，不经常用的图元没有测试，不知道vla-getboundingbox是不是也会出错

snsj

SPLINE误差很大的，处理也不复杂，既然要做外包围，就要做到最好，等忙完了，我贴上我的代码，完全可以考虑重写vla-getboundingbox，直接用点表模拟所有ACAD图元，然后排序生成外框，一个更为强大无敌的外包围程序

ysq101

高手过招贴

牢固

snsj 发表于 2013-5-21 11:17
SPLINE误差很大的，处理也不复杂，既然要做外包围，就要做到最好，等忙完了，我贴上我的代码，完全可以考虑 ...

vla-getboundingbox好像只对SPLINE计算包围框不准确！所有对于图块对象，要线检查一下图块嵌套对象是否有Spline,如果没有则直接计算图块的包围盒，如果包含了Spline,则只能对每个嵌套对象计算包围框，然后坐标换算到wcs，这样可以少计算几次vla-getboundingbox！

XDSoft

牢固 发表于 2013-5-21 14:00
vla-getboundingbox好像只对SPLINE计算包围框不准确！所有对于图块对象，要线检查一下图块嵌套对象是否有 ...

另外在加上 CLIP BLOCK 的，论坛有朋友提供代码了。

snsj

[pcode=lisp,true]
;;;判断块内是否包含SPLINE线，有则返回T，否则返回NIL
;;;blkenm为块物体，snsj 2013.5.21
(defun apple-pd-blkspl (blkenm / pd lis obj kn)
  (setq kn (vla-get-name (vlax-ename->vla-object blkenm)))
  (setq pd nil   lis (list kn))
  (while (/= lis nil)
    (setq lis (vl-remove kn lis))
    (vlax-for obj
        (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) kn)
        (cond
             ((=  (vla-get-objectname obj)  "AcDbSpline")
                    (setq pd t)
             )
             ((=  (vla-get-objectname obj) "AcDbBlockReference" )
                 (setq lis (cons  (vla-get-name obj) lis)
             )
         )
     )
   )
    (setq kn (car lis))
  )
  pd
)
[/pcode]先贴一个判断块（含嵌套块）内是否有SPLINE的函数

eachy

你是要处理了Spline 的 Getboundingbox？

cre8or

spline的误差主要来自头尾的两条切线 ms不可避免

pengfei2010

这么准确不知道有没有必要，对于块 接触不深，学习了:lol