【对象交点】对象与对象，块与对象

kucha007

好东西分享，原作者：MENZI ENGINEERING GmbH, Switzerland

不好意思自己整理以后出错了，已经修复，请之前下载的小伙伴重新下载！

1. ;计算交点的模式
   
2. 0 / acExtendNone           Does not extend either object.
   
3. 1 / acExtendThisEntity     Extends the Fst object.
   
4. 2 / acExtendOtherEntity    Extends the Nxt object.
   
5. 3 / acExtendBoth           Extends both objects.
   
6. ;返回对象与对象的交点
   
7. (K:VxGetInters
   
8.   (vlax-ename->vla-object (car (entsel "\nSelect Frist Object: ")))
   
9.   (vlax-ename->vla-object (car (entsel "\nSelect Next Object: ")))
   
10.   acextendnone
    
11. )
    
12. ;返回块与对象的交点
    
13. 
    
14. (K:VxGetBLKinters
    
15.   (vlax-ename->vla-object (car (entsel "\nSelect Object: ")))
    
16.   (vlax-ename->vla-object (car (entsel "\nSelect Block: ")))
    
17.   acextendnone
    
18. )
    

;计算交点的模式<br /> 0 / acExtendNone           Does not extend either object.<br /> 1 / acExtendThisEntity     Extends the Fst object.<br /> 2 / acExtendOtherEntity    Extends the Nxt object.<br /> 3 / acExtendBoth           Extends both objects.<br /> ;返回对象与对象的交点<br /> (K:VxGetInters<br />   (vlax-ename->vla-object (car (entsel "\nSelect Frist Object: ")))<br />   (vlax-ename->vla-object (car (entsel "\nSelect Next Object: ")))<br />   acextendnone<br /> )<br /> ;返回块与对象的交点<br /> <br /> (K:VxGetBLKinters<br />   (vlax-ename->vla-object (car (entsel "\nSelect Object: ")))<br />   (vlax-ename->vla-object (car (entsel "\nSelect Block: ")))<br />   acextendnone<br /> )<br />

magicheno

感谢大佬分享

烟盒迷唇

块如果是圆形的，交点还是有偏差

kucha007

烟盒迷唇 发表于 2023-4-17 06:32
块如果是圆形的，交点还是有偏差

我用了还好啊

烟盒迷唇

kucha007 发表于 2023-4-17 08:02
我用了还好啊

可能是精度问题了

sunny_8848

多谢楼主分享，下载试用一下

panliang9

谢谢楼主分享

菜鸟初来乍到

感谢楼主分享

对往事说

一直想要一个这样的按照交点插入的插件。但是这个不会用。加载不成功。

Daihy

很赞很赞，感谢楼主分享