[求助]：如何提取块内经过同一点各个对象的数据

hsslyl

应用(entget (car (nentselp pt)))可以提取块内经过pt点的一个对象的数据。如图，为一个块，经过pt点有三个对象A、B、C，如何点取pt点提取A、B、C三个对象的数据。

aeo

炸开
取数据
undo

hsslyl

捕捉模式“延伸”处于打开状态时，捕捉pt点，可得直线A、B、C各自的延伸线。请问，CAD没有炸开块，是如何得到三根直线角度的？

dandee

简单的方法是炸开
不炸开的方法就复杂多了：
1，点击后 可以知道块名--》遍历块内所有实体 --》可以获得块内所有直线
2，nentselp可以提供一个数组，可以把点转换成块内的p点坐标。
3，知道了块内直线 和p点 --》可以知道通过p点的直线--

fsxm

方法对了说来也不太复杂~！~~！
(nentselp pt)关键在于调用一次返回经过这点的图元
再次调用时还是返回经过这点的图元（是同一个）

当然这里面就有文章可做了啦！
第一次(nentselp pt)返回一个图元 ：将这个图元隐藏（用什么方法隐藏就仁者见仁了）
同理第二次也一样隐藏返回图元
第三次就取的了第三个经过这点的图元了吧·
将隐藏的显示出来就行了！！~
比炸开取数据还要简单可行的多吧！

eachy

将点转换到块内部-〉遍历图块内部线-〉点是否在直线上

雨箭风刀

6楼eachy的方法应该比较好
5楼的不知道会不会引起块更新，如果是，那会很耗时

fsxm

呵呵！可能是吧！
不过说到引起块更新
eachy 说到的"将点转换到块内部"
就不分引起块更新的吗？？？

雨箭风刀

eachy说的方法可以不用更新，但是可能要用上矩阵变换，论坛在这方面有能力涉猎的人数也不多。可见其难度。其实块简单的旋转，等比缩放，用坐标系再推算一下，也可能可以解决。但是遇到块是镜像或不等比缩放（多种变换叠加），那还是用矩阵。
如果让我来写，我也宁愿选择用炸开的方法，写起来轻松愉快多了。

fsxm

楼上说的对啊！！
刚在CAD中试过了隐藏图块中的图元时
不regen一下就不行 在图元较少还可以多了肯定会很慢
当然这样也不失是一个最简代码的方法！~可惜很慢啦没多大用了！

雨箭风刀

2. 
   
3. (defun c:bb (/ el pt ss i e lst)
   
4.   (setq el(entsel "\n 选块内实体：")
   
5.         pt(osnap (cadr el) "int,nea"))
   
6.   (command ".explode" (car el) "")
   
7.   (setq ss (ssget "c" pt pt)
   
8.         i -1)
   
9.   (while (setq e (ssname ss (setq i(1+ i))))
   
10.     (setq lst(cons (entget e) lst))
    
11.   )
    
12.   (mapcar 'print lst)
    
13.   (command ".u")
    
14.   (princ)
    
15. )
    

<br /> (defun c:bb (/ el pt ss i e lst)<br />   (setq el(entsel "\n 选块内实体：")<br />         pt(osnap (cadr el) "int,nea"))<br />   (command ".explode" (car el) "")<br />   (setq ss (ssget "c" pt pt)<br />         i -1)<br />   (while (setq e (ssname ss (setq i(1+ i))))<br />     (setq lst(cons (entget e) lst))<br />   )<br />   (mapcar 'print lst)<br />   (command ".u")<br />   (princ)<br /> )<br />

hsslyl

最初由 eachy 发布
[B]将点转换到块内部-〉遍历图块内部线-〉点是否在直线上 [/B]

请问6楼，如何遍历图块内部对象？谢谢！

eachy

在 Help 中发现 SSGET 的两个参数，不过不知其用法

:U Enables subentity selection. Cannot be combined with the duplicate (":D") or nested (":N") selection modes. In this mode, top-level entities are selected by default, but the user can attempt to select subentities by pressing the CTRL key while making the selection. This option is supported only with interactive selections, such as window, crossing, and polygon. It is not supported for all, filtered, or group selections.

:V Forces subentity selection. Treats all interactive, graphic selections performed by the user as subentity selections. The returned selection set contains subentities only. This option cannot be combined with the duplicate (":D") or nested (":N") selection modes. This option is supported only with interactive selections, such as window and crossing. It is not supported for all, filtered, or group selections

雨箭风刀

好家伙，ea你是在帮助的什么地方找到的？

dandee

1； 经 过 实 验 ， 好 像 ssget 变 得 很 神 秘 了  
ssget 后 面  可 以 直 接 加 : 和 任 意 字 母  如 (ssget :a) (ssget :k)等 等
用 法 含 义 无 法 找 到 (私 下 估 计 桌 面 公 司 预 留 开 发 中 功 能 )