用VLISP ActiveX求两个实体的交点

Lisphk

1. (defun c:Test ()
   
2.   (vl-load-com)
   
3.   (setq ent1 (vlax-ename->vla-object (car (entsel "First entity: ")))
   
4. ent2 (vlax-ename->vla-object (car (entsel "Second entity: ")))
   
5.   )
   
6.   (vlax-safearray->list
   
7.     (vlax-variant-value
   
8.       (vla-IntersectWith ent1 ent2 acExtendBoth)
   
9.     )
   
10.   )
    
11. )
    
12. 
    

(defun c:Test ()<br />   (vl-load-com)<br />   (setq ent1 (vlax-ename->vla-object (car (entsel "First entity: ")))<br /> ent2 (vlax-ename->vla-object (car (entsel "Second entity: ")))<br />   )<br />   (vlax-safearray->list<br />     (vlax-variant-value<br />       (vla-IntersectWith ent1 ent2 acExtendBoth)<br />     )<br />   )<br /> )<br /> <br />

xvjiex

感谢分享用VLISP ActiveX求两个实体的交点