怎样excelvba绘制cad图形
Ⅰ excel VBA控制AutoCAD作图
’将以下代昌猜郑码拷贝到Excel的vba文档中，即可实现兆皮启动AutoCAD的功能。读取Excel中的数据，需要具体到哪行、哪列之类的,,,,在这里耐颂没有给出。
Sub main()
Dim acadApp As Object
Dim acadDoc As Object
Dim acadline As Object
Dim adoc As Object
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set adoc = acadApp.Documents.Add
Set acadDoc = acadApp.ActiveDocument
End Sub
Ⅱ 请教一下怎么样用excel VBA把excel 表格中的线路坐标数据在CAD中画路线图并标注桩号
方法是引用cad的类型库，在EXCEL VBA中自动化cad。
当然涉及到的坐标计算部分可以编写个模块，专门进行坐标计算。
有了数源祥据之后就好办，画线，标注，添加闭告文字比较容易。 画线的话用addlwpolyline方法雹态搏较好。
Ⅲ 如何利用Excel中的数据直接导入CAD绘图
1、电脑和坦打开Excel表格，先列好X和Y轴数据。
Ⅳ Excel VBA调用CAD2007画图并显示
我这里提供一个函数，是连接获取cad（2004版，其他差不多）
Private Function ConnectToCAD2004() As Boolean
'连接AUTO CAD 2004
On Error Resume Next
Set acadApp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.16")
If Err Then
ConnectToCAD2004 = False
MsgBox "连接Auto CAD 2004没有成功!" & vbNewLine & "请确认安装的版本。或手动打开Auto CAD 2004，然后点击连接按钮。" _
& vbNewLine & vbNewLine & Err.Description, vbInformation, AppName
Exit Function
End If
End If
On Error GoTo 0
'获取Auto CAD 2004当前文档
On Error Resume Next
Set acadDoc = acadApp.ActiveDocument
If Err.number <> 0 Then
ConnectToCAD2004 = False
MsgBox "Auto CAD 2004中滑贺丛没有活动的文档。" _
& "请激活一个文档或新建一个文信樱档。", vbInformation, AppName
Err.Clear
Exit Function
End If
ConnectToCAD2004 = True
acadApp.Visible = True
End Function
需要全局变量或者模块及变量：
Public Const AppName = "----------------"
Public acadApp As AcadApplication
Public acadDoc As AcadDocument
每次执行画图拍散之前：调用函数即可：
'连接CAD2004
If ConnectToCAD2004 = False Then
Exit Sub
End If
Ⅳ 怎样用VBA实现CAD自动读取excel中的数据然后在CAD中自动绘制出比例图。
用测量成消悄图剖面计棚汪算链桥仔展点
Ⅵ 如何实现通过excel传递数据给autoCAD并绘制图形（按行绘制尺寸不同但形状相似的标准件）
假如数据在EXCEL中A、态碧毁B两列中，先进行如下的转化：
1.在C列中输入：＝A&","&B，这样就变成了坐标的形式
2.打慧纯开CAD，输入直线命帆备令，复制EXCEL中C列中的全部据，粘贴在在提示符后，回车即可自动生成图形。
3.注意测量中的大地坐标系与CAD中的坐标系不同，注意转化一下，把x和y坐标换一下位置就好了
Ⅶ 如何使用EXCEL数据绘制CAD图形
EXCEL中的数据是可以绘制CAD图形的，那么大家知道如何使用EXCEL数据绘制CAD图形吗?下面是我整理的如何使用EXCEL数据绘制CAD图形的 方法 ，希望能雀帆给大家解答。
使用EXCEL数据绘制CAD图形的方法
打开 Excel ，输入数据。
复制B列的数据。打开CAD，输入“pl”,回车。然后在命令行直接“Ctrl+V”可以以这些点直接生成一条多段线。
上面的例子相当简单，但是引我们皮岁谨思考。为什么可以直接复制呢?
其实CAD是可以读取从Excel在复制过去的内容的。那么我们就可以把所有可以在命令行输入的内容在Excel中编辑出来然后“Ctrl+C”“Ctrl+V”就OK了。如下面，我们就用上面的那些数据为圆心绘制半径为1的圆。
在Excel中另起一列输入(="C"&" "&C2&" "&1)括号内的内容。其中C是CAD中画圆的快捷键，上式C后跟一空格，在CAD中相当于确定命令，接下来C2为圆心坐标，空格，半径1。&符燃基号在Excel中是连接符号。
下拉上式得到全部数据的命令。复制该列数据，在CAD命令行”Ctrl+V“。
从上面可以看出来使用Excel输入在某些时候比用徒手绘制要来得简洁。我们也可以绘制更复杂的图形。比如上面的数据我就是从咬合桩数据得来的。我要绘制的是咬合桩桩的三维图。我们可以以“圆柱体”命令cyl开头写出咬合桩的通用表达式。然后直接画图。也可以写出标注的表达式然后统一标注。这些就不在详细讲述了，更多的应用还要靠自己去发现。
Ⅷ 如何实现用excel画图（excel生成cad图形）
不知我这个方法对你是否有用。察银团先用Excel把表做好，然后复制，打开CAD图纸，打开编辑菜单
-
选择性粘贴
-
AutoCAD
图元-
确定。这样，Excel表格就粘过来了。表格比例如果不合适，就用SC命令缩放搏薯到合适比例，就可以了，也可以修改。如果认为这样修改不方便，再用X命令将表格炸开，就更容易修改了。
我这个办法可能是个笨办法，抛转引玉，那位高手教个快捷的方法，
我败橘也可以学一招。
Ⅸ 如何利用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中就可以根据表格中的数据实现自动绘图，这只是举了一个简单的例子。希望能够帮助到你。
Ⅹ 用Excel vba编程将EXCEL表格中的数据（坐标值）导入CAD中直接绘图生成平面图形，主要是直线
CAD支持这个功能吗？这个不是Excel VBA来控制的，需要CAD能支持VBA。