如何利用Excel中的数据直接导入CAD绘图
举个例子: 假如根据B2单元格中的半径画一个圆
步骤:
打开EXCEL,在B2单元格中输入一个圆的半径100
按快捷键Alt+F11打开VBA编辑器并插入一个模块
引用CAD库(前提是电脑上要装CAD软件):工具--引用-autoCAD 2007 Type Library(不同的版本只是数据有所变化有可能是2008,2009,2010,2012等)
输入代码
Sub tw()
Dim cad As New AutoCAD.AcadApplication '定义cad变量为一个CAD应用程序
cad.Documents.Add '新建CAD文件
cad.Visible = True '显示出来
Dim p(2) As Double '定义一个圆心的坐标
p(0) = 100: p(1) = 100: p(2) = 0 '为圆心赋值,即圆心的X值为100,Y值为100,Z值为0
cad.ActiveDocument.ModelSpace.AddCircle p, Range("b1").Value '以点(100,100)为圆心画圆
End Sub点上面的小三角运行,就可以画出一个圆
不知道你发现没有,其实在我们的EXCEL VBA中就可以根据表格中的数据实现自动绘图,这只是举了一个简单的例子。希望能够帮助到你。
二维在CAD里操作如下:
1、如果坐标文件XY,中间用逗号逗开,可直接复制全部坐标,再打开CAD,如果要把坐标转成CAD点,拾取画点命令,在命令行点击一下,右键,再粘帖,所有坐标就转换成CAD点;如果要把坐标转成CAD图形线段,拾取画多线的命令,在命令行点击一下,右键、粘帖,所有坐标就转换成CAD图形线条。
2、如果坐标文件分别在A列和B列,可在C列输入=A1&","&B1,回车,鼠标移到C1,出现黑十字时按住,往下拉,再复制该列,再按1的方法操作。
注意:测量坐标与CAD坐标的X、Y 相反。
三维坐标在南方CASS里的工具栏点选数据处理,有展点位、展高程点、展点号等选项,按提示操作就是。
推荐于2017-11-23