（XD::VLA:Variant->Value）返回VARIANT变体的值

marting

1. (defun XD::VLA:Variant->Value ( var )
   
2.     (cond
   
3.         (   (= 'variant (type var))
   
4.             (XD::VLA:Variant->value (vlax-variant-value var))
   
5.         )
   
6.         (   (= 'safearray (type var))
   
7.             (mapcar 'XD::VLA:Variant->value (vlax-safearray->list var))
   
8.         )
   
9.         (   var   )
   
10.     )
    
11. )
    
12. 
    

(defun XD::VLA:Variant->Value ( var )<br />     (cond<br />         (   (= 'variant (type var))<br />             (XD::VLA:Variant->value (vlax-variant-value var))<br />         )<br />         (   (= 'safearray (type var))<br />             (mapcar 'XD::VLA:Variant->value (vlax-safearray->list var))<br />         )<br />         (   var   )<br />     )<br /> )<br /> <br />

测试：

1. (defun c:tt ()
   
2.   (if (and (setq e1 (car (entsel)))
   
3.            (setq o1 (vlax-ename->vla-object e1))
   
4.            (setq e2 (car (entsel)))
   
5.            (setq o2 (vlax-ename->vla-object e2))
   
6.       )
   
7.     (if (not
   
8.           (vl-catch-all-error-p
   
9.             (vl-catch-all-apply
   
10.               (function
    
11.                 (lambda () (setq ints (vla-intersectwith o1 o2 2)))
    
12.               )
    
13.             )
    
14.           )
    
15.         )
    
16.       (progn
    
17.         (setq ints (xd::vla:variant->value ints)) ;; (2670.65 1428.42 0.0 2354.42 670.308 0.0)
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt ()<br />   (if (and (setq e1 (car (entsel)))<br />            (setq o1 (vlax-ename->vla-object e1))<br />            (setq e2 (car (entsel)))<br />            (setq o2 (vlax-ename->vla-object e2))<br />       )<br />     (if (not<br />           (vl-catch-all-error-p<br />             (vl-catch-all-apply<br />               (function<br />                 (lambda () (setq ints (vla-intersectwith o1 o2 2)))<br />               )<br />             )<br />           )<br />         )<br />       (progn<br />         (setq ints (xd::vla:variant->value ints)) ;; (2670.65 1428.42 0.0 2354.42 670.308 0.0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

sh_h

感谢大师分享！！！！