(XD::XML:GetParentNodes) 按层次列出节点的父节点

st788796

1. ;;功  能: 按层次列出节点的父节点
   
2. ;;参  数: xmlobj --- XML DOM
   
3. ;;返回值: 表
   
4. (defun XD::XML:GetParentNodes (xmlObj / lst)
   
5.   (while (vlax-method-applicable-p xmlobj 'getElementsByTagName)
   
6.     (setq lst         (cons (vlax-get-property xmlobj 'NodeName) lst)
   
7.           xmlobj (vlax-get-property xmlobj 'ParentNode)
   
8.     )
   
9.   )
   
10.   lst
    
11. )

;;功  能: 按层次列出节点的父节点<br /> ;;参  数: xmlobj --- XML DOM<br /> ;;返回值: 表<br /> (defun XD::XML:GetParentNodes (xmlObj / lst)<br />   (while (vlax-method-applicable-p xmlobj 'getElementsByTagName)<br />     (setq lst         (cons (vlax-get-property xmlobj 'NodeName) lst)<br />           xmlobj (vlax-get-property xmlobj 'ParentNode)<br />     )<br />   )<br />   lst<br /> )