ObjectDBX方式预读属性块文件的属性

77077

求帮忙啊，有时候正常有时候错误

2. (vl-load-com)
   
3. ;ObjectDBX方式预读属性块文件的属性
   
4. (defun c:xx()
   
5.   (setq DWGNAME (getfiled "选取图档" (getvar "dwgprefix") "dwg" 2))
   
6.   (setq APP (vlax-get-acad-object))
   
7.   (setq DBXDOC (vla-GetInterfaceObject APP
   
8.                  (if (<= (setq VERSION (atoi (getvar "acadver"))) 15)
   
9.                    "ObjectDBX.AxDbDocument"
   
10.                    (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))
    
11.                    )
    
12.                  )
    
13.         )
    
14.   (vla-open DBXDOC DWGNAME)
    
15.   (setq objs (vla-get-modelspace DBXDOC))
    
16.   (vlax-for xx objs
    
17.     (if (= (vla-get-ObjectName xx) "AcDbAttributeDefinition")
    
18.       (setq LST (cons (cons (vla-get-TagString xx)(vla-get-TextString xx)) LST))
    
19.       )
    
20.     )
    
21.   (vla-Close DBXDOC DWGNAME)
    
22.   (vlax-release-object DBXDOC)
    
23.   (vlax-release-object app)
    
24.   (princ lst)
    
25.   (princ)
    
26.   )
    

(vl-load-com)<br /> ;ObjectDBX方式预读属性块文件的属性<br /> (defun c:xx()<br />   (setq DWGNAME (getfiled "选取图档" (getvar "dwgprefix") "dwg" 2))<br />   (setq APP (vlax-get-acad-object))<br />   (setq DBXDOC (vla-GetInterfaceObject APP<br />                  (if (<= (setq VERSION (atoi (getvar "acadver"))) 15)<br />                    "ObjectDBX.AxDbDocument"<br />                    (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))<br />                    )<br />                  )<br />         )<br />   (vla-open DBXDOC DWGNAME)<br />   (setq objs (vla-get-modelspace DBXDOC))<br />   (vlax-for xx objs<br />     (if (= (vla-get-ObjectName xx) "AcDbAttributeDefinition")<br />       (setq LST (cons (cons (vla-get-TagString xx)(vla-get-TextString xx)) LST))<br />       )<br />     )<br />   (vla-Close DBXDOC DWGNAME)<br />   (vlax-release-object DBXDOC)<br />   (vlax-release-object app)<br />   (princ lst)<br />   (princ)<br />   )<br />

77077

打开预读取之后就关闭不了文件了

鱼与熊掌

2. (vl-load-com)
   
3. ;ObjectDBX方式预读属性块文件的属性
   
4. (defun c:xx()
   
5.   (setq DWGNAME (getfiled "选取图档" (getvar "dwgprefix") "dwg" 2))
   
6.   (setq APP (vlax-get-acad-object))
   
7.   (setq DBXDOC (vla-GetInterfaceObject APP
   
8.                         (if (<= (setq VERSION (atoi (getvar "acadver"))) 15)
   
9.                                 "ObjectDBX.AxDbDocument"
   
10.                                 (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))
    
11.                         )
    
12.                 )
    
13.         )
    
14.   (vla-open DBXDOC DWGNAME)
    
15.   (setq objs (vla-get-modelspace DBXDOC))
    
16.   (vlax-for xx objs
    
17.     (if (= (vla-get-ObjectName xx) "AcDbAttributeDefinition")
    
18.       (setq LST (cons (cons (vla-get-TagString xx)(vla-get-TextString xx)) LST))
    
19.                 )
    
20.         )
    
21.   ;(vla-Close DBXDOC DWGNAME)
    
22.   (vlax-release-object DBXDOC)
    
23.   (vlax-release-object app)
    
24.   (princ lst)
    
25.   (princ)
    
26. )

(vl-load-com)<br /> ;ObjectDBX方式预读属性块文件的属性<br /> (defun c:xx()<br />   (setq DWGNAME (getfiled "选取图档" (getvar "dwgprefix") "dwg" 2))<br />   (setq APP (vlax-get-acad-object))<br />   (setq DBXDOC (vla-GetInterfaceObject APP<br />                         (if (<= (setq VERSION (atoi (getvar "acadver"))) 15)<br />                                 "ObjectDBX.AxDbDocument"<br />                                 (strcat "ObjectDBX.AxDbDocument." (itoa VERSION))<br />                         )<br />                 )<br />         )<br />   (vla-open DBXDOC DWGNAME)<br />   (setq objs (vla-get-modelspace DBXDOC))<br />   (vlax-for xx objs<br />     (if (= (vla-get-ObjectName xx) "AcDbAttributeDefinition")<br />       (setq LST (cons (cons (vla-get-TagString xx)(vla-get-TextString xx)) LST))<br />                 )<br />         )<br />   ;(vla-Close DBXDOC DWGNAME)<br />   (vlax-release-object DBXDOC)<br />   (vlax-release-object app)<br />   (princ lst)<br />   (princ)<br /> )

77077

鱼与熊掌 发表于 2015-5-3 19:32

不明白，不用关闭么？