获取文字属性快的字符串

chengx2000

大家好，向大家请教一个问题，我的附件是一个只含有文字的一个属性快，我今天想问大家的是如何将获取这种插入到图纸上的属性快其中的文字，我的思路是这样的（当然我没有成功，嘿嘿~~）：
1. 首先，点选一个属性快获取dxf表：
     (setq en (entget (car (entsel))))
     得到如下DXF表：
((-1 . <图元名: 7efaf3a8>) (0 . "INSERT") (330 . <图元名: 7ef9bcf8>) (5 . "1BD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbBlockReference") (66 . 1) (2 . "Block_1") (10 1499.7 794.22 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
2. 然后获取块名，即"Block_1"
     (setq blocname (cdr (assoc 2 en)))
   继而
     ( setq inner_b (tblsearch "block" blocname))
   得到：
((0 . "BLOCK") (2 . "Block_1") (70 . 2) (4 . "") (10 0.0 0.0 0.0) (-2 . <图元名: 7efaf358>))
3. 获取属性快中的一个text的表：
      (setq inner_b_list (entget (cdr (assoc -2 inner_b))))
     得到如下表：
((-1 . <图元名: 7efaf358>) (0 . "ATTDEF") (330 . <图元名: 7efaf350>) (5 . "1B3") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbText") (10 1179.48 0.0 0.0) (40 . 100.0) (1 . "Third ") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "") (2 . "Z") (70 . 0) (73 . 0) (74 . 0) (280 . 1))
*************************************************************************************************
我原本希望得到属性快中third的值，可惜在列表中似乎根本找不到我图上的值！！其中点表(3 . "")中字符串是空的。
请问各位大侠，如何能将属性快中的文字意义获取？我做这个的目的是统计明细栏的内容，谢谢！

Gu_xl

去这里看看吧，这里有你想要的东西
http://www.mjtd.com/Functions/ShowClass.asp?ClassID=18

luntan666

   进来顶下......

vlisp2012

Gu_xl 发表于 2011-3-22 14:02
去这里看看吧，这里有你想要的东西
http://www.mjtd.com/Functions/ShowClass.asp?ClassID=18

Gu版，怎么得到属性块的块名呢？

(defun c:tt ()
(setq ss (entget (car(entsel))))
  (if (= (cdr(assoc 0 ss)) "INSERT")
  (command ".insert" (cdr (assoc 2 ss)) pause "1" "1" pause))
  
(print "你所选的不是块")  
)
遇到属性块或动态块的时候，上述程序就不能用了。
因图中的块太多了，我想插入块的时候，用鼠标，点哪个，就插入哪个？

Gu_xl

vlisp2012 发表于 2013-5-20 21:09
Gu版，怎么得到属性块的块名呢？

(defun c:tt ()

参考 LeeMac 的函数！

vlisp2012

嗯，多谢Gu版了。终于做出来了！
(defun c:tt ()
(setq ss  (car(entsel)))
  (if (= (cdr(assoc 0 (entget ss))) "INSERT")
  (插入块 ss)
  
(print "你所选的不是块")  
))
(defun 插入块 (ss)
(command ".insert" (Vlax-Get (Vlax-Ename->Vla-Object ss) 'EffectiveName ) pause "1" "1" pause)
  )

dbgaytsy39185

进来看看，感谢分享

forever111

随便逛逛    谢谢

alexmai

又学到了一招