通过选择属性，如何能得到块的插入点？

Lisphk

我想通过选择属性，得到块的插入点，代码如何写？

/db_自贡黄明儒_

你是怎么得到属性的，nentsel ???
(setq e (entget(car(nentsel))))
(cdr (assoc 10 (entget(cdr(assoc 330 e)))))

Lisphk

/db_自贡黄明儒_ 发表于 2017-5-7 14:37

对，用nentsel 交互

marting

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 (vla-ObjectIdToObject (vla-get-ActiveDocument (vlax-get-acad-object)) (vla-get-OwnerID attobj)))
   
6.   (setq attpt (vlax-get attobj 'InsertionPoint))
   
7.   (setq blkpt (vlax-get blkobj 'InsertionPoint))
   
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 (vla-ObjectIdToObject (vla-get-ActiveDocument (vlax-get-acad-object)) (vla-get-OwnerID attobj)))<br />   (setq attpt (vlax-get attobj 'InsertionPoint))<br />   (setq blkpt (vlax-get blkobj 'InsertionPoint))<br /> )<br />

marting

纯LISP

1. (and
   
2.   (setq att (car (nentsel "\nSelect attribute: ")))
   
3.   (= "ATTRIB" (cdr (assoc 0 (entget att))))
   
4.   (setq blkobj (cdr (assoc 330 (entget att))))
   
5.   (setq blkpt (cdr (assoc 10 (entget blkobj))))
   
6. )
   

(and<br />   (setq att (car (nentsel "\nSelect attribute: ")))<br />   (= "ATTRIB" (cdr (assoc 0 (entget att))))<br />   (setq blkobj (cdr (assoc 330 (entget att))))<br />   (setq blkpt (cdr (assoc 10 (entget blkobj))))<br /> )<br />

Lisphk

/db_自贡黄明儒_ 发表于 2017-5-7 14:37

谢谢黄总，谢谢marting，代码可用。

sh_h

向大神们学习！！！