pl:vla-tblobjname

Free-Lancer

(pl:vla-tblobjname "Blocks" "_Small")
#<VLA-OBJECT IAcadBlock2 0febd874>

1. ;;(pl:vla-tblobjname "Blocks" "_Small")
   
2. ;;#<VLA-OBJECT IAcadBlock2 0febd874>
   
3. (defun pl:vla-tblobjname (table symbol / tbl it)
   
4.   (if (and (not (vl-catch-all-error-p
   
5.     (setq tbl
   
6.     (vl-catch-all-apply
   
7.       (read (strcat "vla-get-" table))
   
8.       (list (vla-get-activedocument (vlax-get-acad-object)))
   
9.     ) ;_ end of vl-catch-all-apply
   
10.     ) ;_ end of setq
    
11.   ) ;_ end of vl-catch-all-error-p
    
12.     ) ;_ end of not
    
13.     (not (vl-catch-all-error-p
    
14.     (setq it (vl-catch-all-apply
    
15.         'vla-item
    
16.         (list tbl symbol)
    
17.       ) ;_ end of vl-catch-all-apply
    
18.     ) ;_ end of setq
    
19.   ) ;_ end of vl-catch-all-error-p
    
20.     ) ;_ end of not
    
21.       ) ;_ end of and
    
22.     it
    
23.   ) ;_ end of if
    
24. ) ;_ end of defun

;;(pl:vla-tblobjname "Blocks" "_Small")<br /> ;;#<VLA-OBJECT IAcadBlock2 0febd874><br /> (defun pl:vla-tblobjname (table symbol / tbl it)<br />   (if (and (not (vl-catch-all-error-p<br />     (setq tbl<br />     (vl-catch-all-apply<br />       (read (strcat "vla-get-" table))<br />       (list (vla-get-activedocument (vlax-get-acad-object)))<br />     ) ;_ end of vl-catch-all-apply<br />     ) ;_ end of setq<br />   ) ;_ end of vl-catch-all-error-p<br />     ) ;_ end of not<br />     (not (vl-catch-all-error-p<br />     (setq it (vl-catch-all-apply<br />         'vla-item<br />         (list tbl symbol)<br />       ) ;_ end of vl-catch-all-apply<br />     ) ;_ end of setq<br />   ) ;_ end of vl-catch-all-error-p<br />     ) ;_ end of not<br />       ) ;_ end of and<br />     it<br />   ) ;_ end of if<br /> ) ;_ end of defun

/db_自贡黄明儒_

我觉得写成这样，看起来方便些

1. ;;示例(pl:vla-tblobjname "Blocks" "_DotSmall");;#<VLA-OBJECT IAcadBlock2 0febd874>
   
2. (defun pl:vla-tblobjname (table symbol / tbl it)
   
3.   (if (and (setq tbl
   
4.                   (vl-catch-all-apply
   
5.                     (read (strcat "vla-get-" table))
   
6.                     (list (vla-get-activedocument (vlax-get-acad-object)))
   
7.                   )
   
8.            )
   
9.            (setq it (vl-catch-all-apply
   
10.                       'vla-item
    
11.                       (list tbl symbol)
    
12.                     )
    
13.            )
    
14.            (and        (not (vl-catch-all-error-p tbl))
    
15.                 (not (vl-catch-all-error-p it))
    
16.            )
    
17.       )
    
18.     it
    
19.   )
    
20. )
    

;;示例(pl:vla-tblobjname "Blocks" "_DotSmall");;#<VLA-OBJECT IAcadBlock2 0febd874><br /> (defun pl:vla-tblobjname (table symbol / tbl it)<br />   (if (and (setq tbl<br />                   (vl-catch-all-apply<br />                     (read (strcat "vla-get-" table))<br />                     (list (vla-get-activedocument (vlax-get-acad-object)))<br />                   )<br />            )<br />            (setq it (vl-catch-all-apply<br />                       'vla-item<br />                       (list tbl symbol)<br />                     )<br />            )<br />            (and        (not (vl-catch-all-error-p tbl))<br />                 (not (vl-catch-all-error-p it))<br />            )<br />       )<br />     it<br />   )<br /> )<br />