(XD::XML:SaveAs)另存XML文档

st788796

1. (defun XD::XML:SaveAs (oXML file)
   
2.   (or (and (= (vlax-get-property oXML 'nodeTypeString) "element")
   
3.            (not        (vl-catch-all-error-p
   
4.                   (vl-catch-all-apply
   
5.                     'vlax-invoke-method
   
6.                     (list (vlax-get-property oXML 'ownerDocument)
   
7.                           'save
   
8.                           file
   
9.                     )
   
10.                   )
    
11.                 )
    
12.            )
    
13.       )
    
14.       (not (vl-catch-all-error-p
    
15.              (vl-catch-all-apply
    
16.                'vlax-invoke-method
    
17.                (list oXML 'save file)
    
18.              )
    
19.            )
    
20.       )
    
21.   )
    
22. )

(defun XD::XML:SaveAs (oXML file)<br />   (or (and (= (vlax-get-property oXML 'nodeTypeString) "element")<br />            (not        (vl-catch-all-error-p<br />                   (vl-catch-all-apply<br />                     'vlax-invoke-method<br />                     (list (vlax-get-property oXML 'ownerDocument)<br />                           'save<br />                           file<br />                     )<br />                   )<br />                 )<br />            )<br />       )<br />       (not (vl-catch-all-error-p<br />              (vl-catch-all-apply<br />                'vlax-invoke-method<br />                (list oXML 'save file)<br />              )<br />            )<br />       )<br />   )<br /> )

aeo

和 xml较上劲了:lol

st788796

aeo 发表于 2014-2-7 17:02
和 xml较上劲了

呵呵, XML 用作保存外部数据还是不错滴
("A" ("B" (1 2 ("C" 3 4))) ...)
检索用 GetElementByName 比 Lisp 方便

ysq101

st788796 发表于 2014-2-7 17:23
呵呵, XML 用作保存外部数据还是不错滴
("A" ("B" (1 2 ("C" 3 4))) ...)
检索用 GetElementByName 比  ...

过年了还那么高产啊