请教关于天正属性块门窗尺寸内容提取

434939575

请教各位大师,我想提取天正门窗（是分解了的）这种属性块里面的文字内容。不知道怎么能行。望大师指点迷津。谢谢！

st788796

用 getattributes 关键字搜索论坛
其中之一
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=74123

DSX-GetAttributes


http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=672180&pid=3500393

434939575

st788796 发表于 2014-9-17 16:38
用 getattributes 关键字搜索论坛
其中之一
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=74123

我只会LISP 这方面的。感谢大师指点。{:soso_e181:}{:soso_e181:}

hxpsj

不明白什么意思，如果原块没炸开，直接快捷命令就行，ED点击想要获取的对象

newer

434939575 发表于 2014-9-17 17:03
我只会LISP 这方面的。感谢大师指点。

得到图块实体名了，entnext 就是那个属性了，你entget下它，获得祖码1内容就是了。

434939575

newer 发表于 2014-9-20 14:47
得到图块实体名了，entnext 就是那个属性了，你entget下它，获得祖码1内容就是了。

感谢大师指点。因为这个是一个整体块。ENTGET没有看到相关信息。后来在明经找到了。谢谢朋友们的帮助！

2. (defun  c:aa()
   
3. 
   
4. 
   
5. (vl-load-com);取属性块的值简单短
   
6.      (if (setq ent (car (entsel "\n请选取属性块:")))
   
7.          (if (= (cdr (assoc 0 (entget ent))) "INSERT")
   
8.              (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)
   
9.                  (progn
   
10.                     (setq att (vlax-invoke obj "GetAttributes"))
    
11.                     (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")
    
12.                                                            (vlax-get aobj "TextString")
    
13.                                                      )
    
14.                                        )
    
15.                                        att
    
16.                               )
    
17.                     )
    
18.                     ;(princ "\n属性列表=")
    
19.       ; (princ jgb)
    
20.                  )
    
21.              )
    
22.          )
    
23. 
    
24.       
    
25.       )
    
26. 
    
27. ;(setq bb (cdr (nth 0  jgb)))
    
28. 
    
29.   (setq bb (cdr (nth 0  jgb)))
    
30.   (setq cc (car bb));//  "LM3624"
    
31.   (princ "\n属性列表=")(princ cc)
    
32. )
    
33. 
    
34.      ;(princ)

(defun  c:aa()<br /> <br /> <br /> (vl-load-com);取属性块的值简单短<br />      (if (setq ent (car (entsel "\n请选取属性块:")))<br />          (if (= (cdr (assoc 0 (entget ent))) "INSERT")<br />              (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)<br />                  (progn<br />                     (setq att (vlax-invoke obj "GetAttributes"))<br />                     (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")<br />                                                            (vlax-get aobj "TextString")<br />                                                      )<br />                                        )<br />                                        att<br />                               )<br />                     )<br />                     ;(princ "\n属性列表=")<br />       ; (princ jgb)<br />                  )<br />              )<br />          )<br /> <br />        <br />       )<br /> <br /> ;(setq bb (cdr (nth 0  jgb)))<br /> <br />   (setq bb (cdr (nth 0  jgb)))<br />   (setq cc (car bb));//  "LM3624"<br />   (princ "\n属性列表=")(princ cc)<br /> )<br /> <br />      ;(princ)

newer

434939575 发表于 2014-9-20 16:45
感谢大师指点。因为这个是一个整体块。ENTGET没有看到相关信息。后来在明经找到了。谢谢朋友们的帮助！
...

你要 (setq eatt (entnext eInsert))