vb.net开发acad vbnet ide

如何使用vb.net调用cad进行绘图

你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名与空间、网络空间、营销软件、网站建设、东昌府网站维护、网站推广。

VB.Net编程提取CAD中的点坐标,采用AcadApp.ActiveDocument.Utility.GetPoint函数老是报错是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"选择一个点：")

你的参数没有弄对

GetPoint是个方法不是属性必须要括号()

他的两个参数为可选参数（startpoint，prompt）第一个参数是起始点，第二个参数是提示语

怎样用VB对AutoCAD 进行二次开发？急！急！急！

最基本的首先你要在vb中加载autocad库，当然你要装了autocad，可以用vb控制建立cad文件，然后向cad文件中写数据。对于在CAD中建立直角坐标系，建议你看一下wcs对应的cad中的对象是哪一个，然后用vb调用建立wcs。下面是一个vb中创建CAD文件并向模型空间画直线的代码。

前提一定要在vb中加载CAD，记得CAD的帮助文件中有vba的帮助，建议你下载cad vba二次开发的书籍，百度文库有。希望能够采纳我的回答！！！！！

Sub AddLineVB()

On Error Resume Next

' 连接至 AutoCAD 应用程序

Dim acadApp As AcadApplication

Set acadApp = GetObject _

(, "AutoCAD.Application.17")

If Err Then

Err.Clear

Set acadApp = CreateObject _

("AutoCAD.Application.17")

If Err Then

MsgBox Err.Description

Exit Sub

End If

End If

' 连接至 AutoCAD 图形

Dim acadDoc As AcadDocument

Set acadDoc = acadApp.ActiveDocument

' 创建直线的端点

Dim lineObj As AcadLine

Dim startPoint(0 To 2) As Double

Dim endPoint(0 To 2) As Double

startPoint(0) = 1

startPoint(1) = 1

startPoint(2) = 0

endPoint(0) = 5

endPoint(1) = 5

endPoint(2) = 0

' 在模型空间中创建 Line 对象

Set lineObj = acadDoc.ModelSpace.AddLine _

(startPoint, endPoint)

ZoomAll

acadApp.visible = True

End Sub

名称栏目：vb.net开发acad vbnet ide
分享地址：http://6mz.cn/article/dogegdp.html