(XD::XML:GetChildNodes)获取字节点Object列表

st788796

1. ;|
   
2. NodeType  Named Constant
   
3.   1       ELEMENT_NODE
   
4.   2           ATTRIBUTE_NODE
   
5.   3           TEXT_NODE
   
6.   4           CDATA_SECTION_NODE
   
7.   5           ENTITY_REFERENCE_NODE
   
8.   6           ENTITY_NODE
   
9.   7           PROCESSING_INSTRUCTION_NODE
   
10.   8       COMMENT_NODE
    
11.   9           DOCUMENT_NODE
    
12.   10           DOCUMENT_TYPE_NODE
    
13.   11           DOCUMENT_FRAGMENT_NODE
    
14.   12           NOTATION_NODE
    
15. |;
    
16. (defun XD::XML:GetChildNodes (xmlobj NodeType / lst)
    
17.   (if (= (vlax-get-property xmlobj 'nodeType) 9)
    
18.     (setq lst (XD::XML:Obj->list
    
19.                 (vlax-get-property
    
20.                   (vlax-get-property xmlobj 'documentElement)
    
21.                   'childNodes
    
22.                 )
    
23.               )
    
24.     )
    
25.     (setq
    
26.       lst (XD::XML:Obj->List (vlax-get-property xmlobj 'childNodes))
    
27.     )
    
28.   )
    
29.   (if (and lst NodeType)
    
30.     (vl-remove-if-not
    
31.       '(lambda (x) (= (vlax-get-property x 'nodeType) mod))
    
32.       lst
    
33.     )
    
34.     lst
    
35.   )
    
36. )
    

;|<br /> NodeType  Named Constant<br />   1       ELEMENT_NODE <br />   2           ATTRIBUTE_NODE <br />   3           TEXT_NODE <br />   4           CDATA_SECTION_NODE <br />   5           ENTITY_REFERENCE_NODE <br />   6           ENTITY_NODE <br />   7           PROCESSING_INSTRUCTION_NODE <br />   8       COMMENT_NODE <br />   9           DOCUMENT_NODE <br />   10           DOCUMENT_TYPE_NODE <br />   11           DOCUMENT_FRAGMENT_NODE <br />   12           NOTATION_NODE <br /> |;<br /> (defun XD::XML:GetChildNodes (xmlobj NodeType / lst)<br />   (if (= (vlax-get-property xmlobj 'nodeType) 9)<br />     (setq lst (XD::XML:Obj->list<br />                 (vlax-get-property<br />                   (vlax-get-property xmlobj 'documentElement)<br />                   'childNodes<br />                 )<br />               )<br />     )<br />     (setq<br />       lst (XD::XML:Obj->List (vlax-get-property xmlobj 'childNodes))<br />     )<br />   )<br />   (if (and lst NodeType)<br />     (vl-remove-if-not<br />       '(lambda (x) (= (vlax-get-property x 'nodeType) mod))<br />       lst<br />     )<br />     lst<br />   )<br /> )<br />

434939575

终于坐沙发了。通用函数很好。学习了！希望大师们加点注释。让菜鸟级也能吸收点养分！