[分享]VBA程序 快速计算cad2006中直线长度　

打开CAD2006图纸
加载方法1 把line.dvb拖到图纸里,每一次使用VBA都要这样做一次
加载方法2 菜单　工具->加载应用应用程序->内容->添加 　　把VBA添加到里面，每次启动VBA都会自动加载

使用方法:在命令行输入 vbarun 在弹出对话框中选中 Module1.Showwindow 点击运行
弹出一个窗口
在窗口左边控件里可以选择"方法1" 和"方法2" 然后点击 "计算"
方法1 选择任意条的直线或多段线，选择完后按右键就可把任意条的长度之和计算出来
方法2 操作类似绘制多段线，取n个点后，可以按照顺序把n点用直线连接起来，按下右键就可以得到线的长度

有时候执行命令的时候，命令不能得到有效释放，只要多按几次右键或ESC就可以了

[[italic] 本帖最后由 与梦者 于 2008-1-24 04:45 编辑 [/italic]]