Question

求VBA程序一个。如图CAD中求交点并列出交点坐标。

主要是想达到这样一个目的。CAD中蓝色的线(可以是任意的平行线)希望在调用程序时一直存在，只要每次画出或者导入红色的任意框线，就希望能得到红色线与蓝色线的交点坐标列表。跪求各位。看过论坛里面的，不过太蠢，没看懂。是否需要AUTOCADVBA写个程序呢？

跪求VBA

Answer 1

1. 使誉指用程序要世界坐标

2. 绘制多段线的时庆拆配候不可以调用程序

3. 调用程序的时候，不可以使用cad里面的命令

4. 直线为一个图层

5. 坐标标注在图纸上？

6. 每次使用程序都要重新御枝选择直线【可以框选】

7. 条件说清楚
   

追问

我不知道要说什么条件，不过我可以描述过程。
1、打开CAD
2、画(或者导入)红色线框；
3、画(最好是能调用）固定的蓝色线；
4、求交点坐标
5、列出坐标集合。例如：
（0,2）；
（1,3）；
（2,4）
这样的，不是也可以，只要能获得坐标并列出就好。

追答

程序是框选多段线就可以得到与直线交点坐标。由于调用直线程序编写复杂，所以就不写了。

操作要求：

1. 图纸要在世界坐标下运行，否则会有错误。

2. 这个程序是直接在图纸上标注坐标【X，Y】

3. 文字的高度及角度你自己调整，里面有说明。

4. 要求蓝线为直线
   

5. 打开cad，加载autoLISP，命令：ZX94，框选多段线，就可以得到坐标。
   

追问

多谢，多谢。不过还得继续问啊

还有两个困惑。

第一个：能不能扩展到直线与直线、直线与曲线，曲线与曲线。比如：不光能选择多线段PLINE，还可以选择SPLINE，ARC等

第二个：能不能将坐标点导出到txt文件，或者excel文件，不要只能在cad中显示。

比如下面这个(来自百度知道），它是选择点，然后将点坐标导入到txt中了。

      

超出字数限制了，只能截图了

追答

1. 曲线要得到交点，程序编写目前我还不会，你可以使用点的方法，然后导入记事本

2. 多段线不可以有圆弧，如果有，也方法同上
   

3. http://zhidao.baidu.com/question/432640565769550484.html选择文字内容到记事本

追问

蓝色线是直线，红色线是SPLINE。也就是直线和曲线的焦点。这样可以么？不需要曲线与曲线的焦点。
是否可以用ZX94修改，将选取多线段改成自由曲线呢。