新手请教一个vb访问cad的问题

sharksun

Private Sub Command1_Click() Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application")
Set acadApp = CreateObject("AutoCAD.Application") 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 Set lineObj = acadDoc.ModelSpace.AddLine _
(startPoint, endPoint)
ZoomAll End Sub 这是一个在cad中画线的程序,我在vb中执行并通过了,但是用的是autocad2004.但是cad中没有生成线条啊.大家看看为什么啊, 谢谢了.

neteasy

如果已经启动了CAD,就不能写


Set acadApp = CreateObject("AutoCAD.Application")


这一行,这是重新启动一个新的CAD,必须加上


acadApp.Visible=True


才能显示出CAD窗口.

sharksun

原来是可见的问题.


十分感谢.

randyhuang

请教高手，我的情况更奇怪。我也是 Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application") 但运行时提示“activex控件不能创建object”，有时还出现“类型不匹配”，奇怪。