sharksun 发表于 2004-3-8 12:22:00

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

Private Sub Command1_Click()


Dim acadApp As AcadApplication<BR>Set acadApp = GetObject(, "AutoCAD.Application")<BR>Set acadApp = CreateObject("AutoCAD.Application")


Dim acadDoc As AcadDocument<BR>Set acadDoc = acadApp.ActiveDocument


Dim lineObj As AcadLine<BR>Dim startPoint(0 To 2) As Double<BR>Dim endPoint(0 To 2) As Double<BR>startPoint(0) = 1<BR>startPoint(1) = 1<BR>startPoint(2) = 0<BR>endPoint(0) = 5<BR>endPoint(1) = 5<BR>endPoint(2) = 0


Set lineObj = acadDoc.ModelSpace.AddLine _<BR>(startPoint, endPoint)<BR>ZoomAll


End Sub



这是一个在cad中画线的程序,我在vb中执行并通过了,但是用的是autocad2004.但是cad中没有生成线条啊.大家看看为什么啊, 谢谢了.

neteasy 发表于 2004-3-8 13:26:00

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


Set acadApp = CreateObject("AutoCAD.Application")


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


acadApp.Visible=True


才能显示出CAD窗口.

sharksun 发表于 2004-3-8 13:57:00

原来是可见的问题.


十分感谢.

randyhuang 发表于 2004-3-10 16:15:00

请教高手，我的情况更奇怪。我也是


Dim acadApp As AcadApplication<BR>Set acadApp = GetObject(, "AutoCAD.Application")


但运行时提示“activex控件不能创建object”，有时还出现“类型不匹配”，奇怪。
页: [1]
查看完整版本: 新手请教一个vb访问cad的问题