[求助]：从图块中得图元?

HuaiYu

假设一个图块由 一个圆和一根线条构成，如何用 VLisp 语句取出这个圆 或 线条?
注意是用 VLisp 取，不要用 lisp 取。。
求各位达人 help me,
谢谢....

qjcpj

使用lisp取后再转到vlisp。

HuaiYu

谢谢 2  楼的热心参与
请 2 楼 再看看(我想用纯的 Vlisp 语句)

2. 
   
3. (defun test ()
   
4.   ;;        请选择一个包括 一个 Circle 和 Line 所做的块
   
5.   ;;        问怎么用 Vlisp 取里面所组成的图元呢??
   
6.   (while (not (setq en (entsel "\nSpecify a object: "))))
   
7.   (setq vn (vlax-ename->vla-object (car en)))
   
8.   (setq        *AcadDocument* (vla-get-activedocument (vlax-get-acad-object))
   
9.         Blocks               (vla-get-blocks *AcadDocument*)
   
10.   )
    
11.   (setq vBlk (vla-item Blocks (vla-get-name vn)))
    
12.   (vla-item vBlk 1)
    
13.   ;;        此时的 vBlk        有 Count 选项 <Count> 2 这里应该是可以取的吧??
    
14.   ;;        但就是不知道怎么取啊
    
15. )

<br /> (defun test ()<br />   ;;        请选择一个包括 一个 Circle 和 Line 所做的块<br />   ;;        问怎么用 Vlisp 取里面所组成的图元呢??<br />   (while (not (setq en (entsel "\nSpecify a object: "))))<br />   (setq vn (vlax-ename->vla-object (car en)))<br />   (setq        *AcadDocument* (vla-get-activedocument (vlax-get-acad-object))<br />         Blocks               (vla-get-blocks *AcadDocument*)<br />   )<br />   (setq vBlk (vla-item Blocks (vla-get-name vn)))<br />   (vla-item vBlk 1)<br />   ;;        此时的 vBlk        有 Count 选项 <Count> 2 这里应该是可以取的吧??<br />   ;;        但就是不知道怎么取啊<br /> )

eachy

vla-item 取出的是 BlockDeference 中的实体，不是显示的 BlockReference

HuaiYu

请 eachy  大侠说得再清楚一点了，最好是用源代码了
我想要的是用 vlisp  语句取到那个圆 或 线 而已啊，
我知道用 tblobjname 取出然后再 entnext 下去找
但在 vlisp  语句中怎么得到呢??
还是要谢谢版主的参与.....

eachy

2. 
   
3. (defun c:tt (/ e bn blocks blockdef)
   
4.   (if
   
5.     (and (setq e (car (entsel "\nPick Blockref: ")))
   
6.          (= (cdr (assoc 0 e)) "INSERT")
   
7.          (progn
   
8.            (princ (strcat "Block name = ") (setq bn (cdr (assoc 2 e))))
   
9.            t
   
10.          )
    
11.     )
    
12.      (progn
    
13.        (setq blocks   (vla-get-blocks
    
14.                         (vla-get-activedocument (vlax-get-acad-object))
    
15.                       )
    
16.              blockdef (vla-item blocks bn)
    
17.        )
    
18.        (vlax-for obj blockdef
    
19.          (if (wcmatch (vla-get-objectname obj) "*Line")
    
20.            .
    
21.            .
    
22.            .
    
23.            .
    
24.          )
    
25.        )
    
26.      )
    
27.   )
    
28.   (princ)
    
29. )

<br /> (defun c:tt (/ e bn blocks blockdef)<br />   (if<br />     (and (setq e (car (entsel "\nPick Blockref: ")))<br />          (= (cdr (assoc 0 e)) "INSERT")<br />          (progn<br />            (princ (strcat "Block name = ") (setq bn (cdr (assoc 2 e))))<br />            t<br />          )<br />     )<br />      (progn<br />        (setq blocks   (vla-get-blocks<br />                         (vla-get-activedocument (vlax-get-acad-object))<br />                       )<br />              blockdef (vla-item blocks bn)<br />        )<br />        (vlax-for obj blockdef<br />          (if (wcmatch (vla-get-objectname obj) "*Line")<br />            .<br />            .<br />            .<br />            .<br />          )<br />        )<br />      )<br />   )<br />   (princ)<br /> )

HuaiYu

(vlax-for obj blockdef
         (if (wcmatch (vla-get-objectname obj) "*Line")
           .
           .
           .
           .
         )
谢谢了，哈哈，看样子我还是有很不懂的地方了。 Go on...........

xxsheng

最初由 eachy 发布
[B][code]
(defun c:tt (/ e bn blocks blockdef)
  (if
    (and (setq e (car (entsel "\nPick Blockref: ")))
         (= (cdr (assoc 0 e)) "INSERT")
         (progn
           (princ (strcat "Block name = ") (setq bn (cdr... [/B]

斑竹不是开玩笑吧?blocks是块定义组合对不对?blockdef (vla-item blocks bn)得到的还是块组合吧?(vlax-for obj blockdef以后得到的还是BlockDeference 中的实体,,,,,,,,,,,,,,,,,,,,依然不是显示的 BlockReference,,,和三楼用(vla-item)再加判断得出的结果会是一样的.

其实有个概念问题,BlockReference是根据BlockDeference来生成的,用lisp得到的块内的所有子图元其实还是指向BlockDeference的修改的,修改这些子图元你就会发现,所有的BlockReference也会被更新改变的,,就和我们refedit一个块一样,所有的同名块也会改变.所以在vlisp里面BlockReference没有办法得到起内部的子对象,因为我们其实要的还是BlockDeference的子对象.一个BlockReference内部的子对象在不炸开的情况下是没有任何单独的意义的,它只是一个指向BlockDeference相应子对象的符号...应该再详细点的说就是BlockReference其实是没有自己的子对象或者子图元的,它应该只是一个地址引用,添加了属性的块和扩展数据的就和把一个不含属性和扩展数据的块用匿名组组合起来差不多,所以平时我们说的得到一个块的子图元,其实就是得到了BlockDeference的子对象了,原本就没有区别的.

使用块可以节省文件大小的意义就在这里!