(XD::XML:Save)保存XML文档

st788796

1. (defun XD::XML:Save (oXML / file)
   
2.   (if (/= (vlax-get-property oXML 'url) "")
   
3.     (progn
   
4.       (and (= (vlax-get-property oXML 'nodeTypeString) "element")
   
5.            (setq oXML (vlax-get-property oXML 'ownerDocument))
   
6.       )
   
7.       (vl-catch-all-apply
   
8.         'vlax-invoke-method
   
9.         (list oXML
   
10.               'save
    
11.               (vl-string-subst
    
12.                 "\\"
    
13.                 "/"
    
14.                 (vl-string-left-trim
    
15.                   "file:///"
    
16.                   (vlax-get-property oXML 'url)
    
17.                 )
    
18.               )
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23. )
    

(defun XD::XML:Save (oXML / file)<br />   (if (/= (vlax-get-property oXML 'url) "")<br />     (progn<br />       (and (= (vlax-get-property oXML 'nodeTypeString) "element")<br />            (setq oXML (vlax-get-property oXML 'ownerDocument))<br />       )<br />       (vl-catch-all-apply<br />         'vlax-invoke-method<br />         (list oXML<br />               'save<br />               (vl-string-subst<br />                 "\\"<br />                 "/"<br />                 (vl-string-left-trim<br />                   "file:///"<br />                   (vlax-get-property oXML 'url)<br />                 )<br />               )<br />         )<br />       )<br />     )<br />   )<br /> )<br />