选择属性实体，如何能得到属性所属的INSERT的插入点？

Lisphk

1. (setq obj (car (nentsel "\n拾取属性文字: ")))
   
2. (setq objVL (vlax-ename->vla-object obj))
   
3. (setq objVL-Strng (vlax-get objVL 'textstring))
   
4. (setq objVL-inspnt (vlax-get objVL 'insertionpoint))
   

(setq obj (car (nentsel "\n拾取属性文字: ")))<br /> (setq objVL (vlax-ename->vla-object obj))<br /> (setq objVL-Strng (vlax-get objVL 'textstring))<br /> (setq objVL-inspnt (vlax-get objVL 'insertionpoint))<br />

上面'insertionpoint属性得到的是属性文字的插入点，那块的插入点呢？

newer

要从属性实体，得到它所属的块实体，用 vla-get-ownerid ，得到块的对象后，就可以用 insertionpoint 获得块的插入点了

1. (defun c:tt ()
   
2.   (if (and (setq att (car (nentsel "\n选择属性文字: ")))
   
3.            (setq attobj (vlax-ename->vla-object att))
   
4.            (= "AcDbAttribute" (vla-get-objectname attobj))
   
5.            (setq blkobj        (vla-ObjectIdToObject
   
6.                           (vla-get-ActiveDocument (vlax-get-acad-object))
   
7.                           (vla-get-OwnerID attobj)
   
8.                         )
   
9.            )
   
10.       )
    
11.     (progn
    
12.       (setq attpt (vlax-get attobj 'InsertionPoint)) ;;属性插入点
    
13.       (setq blkpt (vlax-get blkobj 'InsertionPoint)) ;;INSERT插入点
    
14.     )
    
15.   )
    
16. )
    
17. 
    

(defun c:tt ()<br />   (if (and (setq att (car (nentsel "\n选择属性文字: ")))<br />            (setq attobj (vlax-ename->vla-object att))<br />            (= "AcDbAttribute" (vla-get-objectname attobj))<br />            (setq blkobj        (vla-ObjectIdToObject<br />                           (vla-get-ActiveDocument (vlax-get-acad-object))<br />                           (vla-get-OwnerID attobj)<br />                         )<br />            )<br />       )<br />     (progn<br />       (setq attpt (vlax-get attobj 'InsertionPoint)) ;;属性插入点<br />       (setq blkpt (vlax-get blkobj 'InsertionPoint)) ;;INSERT插入点<br />     )<br />   )<br /> )<br /> <br />

marting

块对象也可以用组码330得到

1. (and
   
2.   (setq att (car (nentsel "\nSelect attribute: ")))
   
3.   (= "ATTRIB" (cdr (assoc 0 (entget att))))
   
4.   (setq attobj (vlax-ename->vla-object att))
   
5.   (setq blkobj (cdr (assoc 330 (entget att))))
   
6.   (setq attpt (vlax-get attobj 'InsertionPoint))
   
7.   (setq blkpt (cdr (assoc 10 (entget blkobj))))
   
8. )
   

(and<br />   (setq att (car (nentsel "\nSelect attribute: ")))<br />   (= "ATTRIB" (cdr (assoc 0 (entget att))))<br />   (setq attobj (vlax-ename->vla-object att))<br />   (setq blkobj (cdr (assoc 330 (entget att))))<br />   (setq attpt (vlax-get attobj 'InsertionPoint))<br />   (setq blkpt (cdr (assoc 10 (entget blkobj))))<br /> )<br />

st788796

(cdr (assoc 330 (entget att)))

SHUNDocker

已经收藏，感谢楼主的问题