如何通过块内一点得到该块所有组成图元名？

tm20038175

如有个块名为aa的块，在一张图纸里面有100个，我现在通过一点（此点在某个aa块内部）找到包围此点的块名为aa的图元，并最终得到组成此块的所有图元的图元名表。。。

Gu_xl

可使用 nentselp 函数，具体用法自己去查帮助文件！

tm20038175

Gu_xl 发表于 2012-3-18 12:16
可使用 nentselp 函数，具体用法自己去查帮助文件！

这么快就回复了，太感谢了。。。
如果再有程序可以参考就更好了，呵呵…………

tm20038175

nentselp
在没有用户输入的情况下，本函数的功能与 nentsel 函数类似
(nentselp [msg] [pt])
参数
msg
用作提示的字符串。如果省略该参数，则显示“选择对象”提示。

pt

选择点。该参数允许在没有用户输入的情况下实现对象选择。

返回值

nentselp 函数返回 4 x 4 转换矩阵，定义如下：
矩阵的前三列指定缩放比例和旋转角度，第四列是一个转换矢量。

好深奥，看不懂~~~

tm20038175

好像秋风大侠的批量打印程序有这样的功能，可惜没有源码！
现在也想通过一点得到包围此点名为aa的块，然后得到其包罗线点表，然后得到点表内围成的所有图元名，不知道如何实现！

Gu_xl

简直不知所云！

tm20038175

Gu_xl 发表于 2012-3-29 23:49
简直不知所云！

就是已知一个图框块名，单击一个图框块里面一点，得到此图框的边界。

Gu_xl

tm20038175 发表于 2012-3-30 06:27
就是已知一个图框块名，单击一个图框块里面一点，得到此图框的边界。

1. ;;参数 pt = 点 blockname = 块名
   
2. (defun getinertBypt  (pt BlockName / h p1  ss sl en ll ur)
   
3.   (setq h (getvar 'viewsize)) ;_ 屏幕高
   
4.   (setq        p1 (list (car pt) (+ (cadr pt) (* 0.5 h)) 0))
   
5.   (setq        ss (ssget "F"
   
6.                   (list pt p1)
   
7.                   (list (cons 0 "insert") (cons 2 BlockName))))
   
8.   (if ss
   
9.     (progn
   
10.       (repeat (setq i (sslength ss))
    
11.         (setq sl (cons (ssname ss (setq i (1- i))) s))
    
12.         )
    
13.       (setq sl
    
14.              (vl-sort sl
    
15.                       '(lambda (a b)
    
16.                          (< (distance pt (cdr (assoc 10 (entget a))))
    
17.                             (distance pt (cdr (assoc 10 (entget b))))
    
18.                             )
    
19.                          )
    
20.                       )
    
21.             )
    
22.       ;;得到点位置处的块图元名
    
23.       (setq en (car sl))
    
24.       (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)
    
25.       (setq ll (vlax-safearray->list ll)
    
26.             ur (vlax-safearray->list ur)
    
27.             )
    
28.       (if (<= (cadr ll) (cadr pt) (cadr ur))
    
29.         (progn
    
30.       (redraw en 3) ;_ 亮显
    
31.       ;;返回值
    
32.       en
    
33.       )
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    

;;参数 pt = 点 blockname = 块名<br /> (defun getinertBypt  (pt BlockName / h p1  ss sl en ll ur)<br />   (setq h (getvar 'viewsize)) ;_ 屏幕高<br />   (setq        p1 (list (car pt) (+ (cadr pt) (* 0.5 h)) 0))<br />   (setq        ss (ssget "F"<br />                   (list pt p1)<br />                   (list (cons 0 "insert") (cons 2 BlockName))))<br />   (if ss<br />     (progn<br />       (repeat (setq i (sslength ss))<br />         (setq sl (cons (ssname ss (setq i (1- i))) s))<br />         )<br />       (setq sl<br />              (vl-sort sl<br />                       '(lambda (a b)<br />                          (< (distance pt (cdr (assoc 10 (entget a))))<br />                             (distance pt (cdr (assoc 10 (entget b))))<br />                             )<br />                          )<br />                       )<br />             )<br />       ;;得到点位置处的块图元名<br />       (setq en (car sl))<br />       (vla-getboundingbox (vlax-ename->vla-object en) 'll 'ur)<br />       (setq ll (vlax-safearray->list ll)<br />             ur (vlax-safearray->list ur)<br />             )<br />       (if (<= (cadr ll) (cadr pt) (cadr ur))<br />         (progn<br />       (redraw en 3) ;_ 亮显<br />       ;;返回值<br />       en<br />       )<br />         )<br />       )<br />     )<br />   )<br />

tm20038175

Gu_xl 发表于 2012-3-30 09:27
**** 本内容被作者隐藏 ****

赞一个，就是这个，好！！！

lz123456

G版的程序是比看的