(XD::XML:SetNodeAttributes)设置节点属性

st788796

1. ;;Node ---- xml dom
   
2. ;;lst  ---- String list '((name1 var1) (name2 var2) ...)
   
3. (defun XD::XML:SetNodeAttributes (node lst /)
   
4.   (mapcar '(lambda (x)
   
5.              (if (= (type x) 'STR)
   
6.                (setq lst (list "attribute" x))
   
7.              )
   
8.              (vl-catch-all-apply
   
9.                'vlax-invoke-method
   
10.                (append (list node "setAttribute") x)
    
11.              )
    
12.            )
    
13.           lst
    
14.   )
    
15. )
    

;;Node ---- xml dom<br /> ;;lst  ---- String list '((name1 var1) (name2 var2) ...)<br /> (defun XD::XML:SetNodeAttributes (node lst /)<br />   (mapcar '(lambda (x)<br />              (if (= (type x) 'STR)<br />                (setq lst (list "attribute" x))<br />              )<br />              (vl-catch-all-apply<br />                'vlax-invoke-method<br />                (append (list node "setAttribute") x)<br />              )<br />            )<br />           lst<br />   )<br /> )<br />