(XD::XML:AddChildNodes)增加同级子节点

st788796

1. (defun XD::XML:AddChildNodes (parent namelst / xmlDoc root)
   
2.   (if (and (= (vlax-get-property parent 'nodeType) 9)
   
3.            (not (vlax-get-property parent 'documentElement))
   
4.       )
   
5.     (progn
   
6.       (setq xmldoc parent
   
7.             root   (vlax-invoke-method parent 'createElement (car namelst))
   
8.       )
   
9.       (vlax-put parent 'documentElement root)
   
10.       (setq parent  (vlax-get-property parent 'documentElement)
    
11.             namelst (cdr namelst)
    
12.       )
    
13.     )
    
14.     (setq xmlDoc (vlax-get-property parent 'ownerDocument))
    
15.   )
    
16.   (if (not parent)
    
17.     (setq parent xmlDoc)
    
18.   )
    
19.   (mapcar '(lambda (x / newElement)
    
20.              (if (setq newElement
    
21.                         (vl-catch-all-apply
    
22.                           'vlax-invoke-method
    
23.                           (list xmlDoc 'createElement x)
    
24.                         )
    
25.                  )
    
26.                (if (not (vl-catch-all-error-p newElement))
    
27.                  (vl-catch-all-apply
    
28.                    'vlax-invoke-method
    
29.                    (list parent 'appendChild newElement)
    
30.                  )
    
31.                )
    
32.              )
    
33.            )
    
34.           namelst
    
35.   )
    
36. )
    

(defun XD::XML:AddChildNodes (parent namelst / xmlDoc root)<br />   (if (and (= (vlax-get-property parent 'nodeType) 9)<br />            (not (vlax-get-property parent 'documentElement))<br />       )<br />     (progn<br />       (setq xmldoc parent<br />             root   (vlax-invoke-method parent 'createElement (car namelst))<br />       )<br />       (vlax-put parent 'documentElement root)<br />       (setq parent  (vlax-get-property parent 'documentElement)<br />             namelst (cdr namelst)<br />       )<br />     )<br />     (setq xmlDoc (vlax-get-property parent 'ownerDocument))<br />   )<br />   (if (not parent)<br />     (setq parent xmlDoc)<br />   )<br />   (mapcar '(lambda (x / newElement)<br />              (if (setq newElement<br />                         (vl-catch-all-apply<br />                           'vlax-invoke-method<br />                           (list xmlDoc 'createElement x)<br />                         )<br />                  )<br />                (if (not (vl-catch-all-error-p newElement))<br />                  (vl-catch-all-apply<br />                    'vlax-invoke-method<br />                    (list parent 'appendChild newElement)<br />                  )<br />                )<br />              )<br />            )<br />           namelst<br />   )<br /> )<br />