vla-getpromptstring 在块不行

st788796

只能在 BlockDef 中去找了

1. (defun GetPromptString (att / blkrefid tag blkref blkname blkdef pro)
   
2.   (setq        blkrefId (vla-get-ownerid att)
   
3.         tag         (vla-get-tagstring att)
   
4.         blkref         (vla-ObjectidtoObject
   
5.                    (vla-get-activedocument (vlax-get-acad-object))
   
6.                    blkrefid
   
7.                  )
   
8.         blkname         (vla-get-name blkref)
   
9.         blkdef         (vla-item (vla-get-blocks
   
10.                              (vla-get-activedocument (vlax-get-acad-object))
    
11.                            )
    
12.                            blkname
    
13.                  )
    
14.   )
    
15.   (vlax-for obj        blkdef
    
16.     (if        (and (wcmatch (vla-get-objectname obj) "*Att*")
    
17.              (= (vla-get-tagstring obj) tag)
    
18.         )
    
19.       (setq pro (vla-get-promptstring obj))
    
20.     )
    
21.   )
    
22.   pro
    
23. )

(defun GetPromptString (att / blkrefid tag blkref blkname blkdef pro)<br />   (setq        blkrefId (vla-get-ownerid att)<br />         tag         (vla-get-tagstring att)<br />         blkref         (vla-ObjectidtoObject<br />                    (vla-get-activedocument (vlax-get-acad-object))<br />                    blkrefid<br />                  )<br />         blkname         (vla-get-name blkref)<br />         blkdef         (vla-item (vla-get-blocks<br />                              (vla-get-activedocument (vlax-get-acad-object))<br />                            )<br />                            blkname<br />                  )<br />   )<br />   (vlax-for obj        blkdef<br />     (if        (and (wcmatch (vla-get-objectname obj) "*Att*")<br />              (= (vla-get-tagstring obj) tag)<br />         )<br />       (setq pro (vla-get-promptstring obj))<br />     )<br />   )<br />   pro<br /> )