本帖最后由 jiangen402 于 2009-6-13 08:37 编辑
CAD多段线坐标至EXCEL表(当前UCS坐标).dvb
vba 源代码,自己感觉蛮好用,哈哈!
采用当前UCS坐标系,能指定多段线的相对原点位置;能连续导出多条多段线,excel中的坐标自动按X坐标值从小到大排列,如果多段线上有圆曲线则输出圆曲线半径。
希望大家喜欢!
CAD 的VBA 加载及运行方法:
一般用过VBA程序的应该都会,不过这里还是说一下:
已解压的文件中应有一个扩展名为“.dvb”文件
1、运行CAD
2、菜单:工具->宏->加载工程(或在CAD中键入“VBALoad”命令)
3、在打开文件对框中加载已下载扩展名为“dvb”文件
4、菜单:工具->宏->宏 (或直接用快捷键 Alt+F8) (或在CAD键入“_vbarun”命令)
5、运行每个VBA宏功能
(本程序为 选中“路径\文件名.dvb!ThisDrawing.PlineToExcel”,然后点击“运行”)
注:没有lsp程序那样的命令输入,每次使用都要用户加载
Good Luck! |