[求助]：问一个不能再初级的问题，帮忙

fsq12

如何用VB GETOBJECT 和createobject创建或打开CAD，并且在里面画条线，哪位好心人帮俺写一段呗？多谢了

gjliang

Private Sub Command1_Click()
Dim acadApp As Object
Dim acadDoc 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 acadDoc = acadApp.ActiveDocument
Dim point(0 To 2) As Double
point(0) = 1
point(1) = 1
Dim point1(0 To 2) As Double
point1(0) = 100
point1(1) = 100
Set lineobj = acadDoc.modelspace.addline(point, point1)
End Sub

前提是先建立个窗体，在窗体上加一个command按扭，双击后，把上面的相关代码复制到里面执行就可以了。

asky333

这位兄台也未免太懒了吧，居然要别人为你写代码

fsq12

俺的水平太低只能如此了，呵呵

gjliang

其实到论坛上搜以下，以往有很多相关的讨论的。

liubz

其实，看看acad的帮助就能解决这个问题啦！替他问题帮助里也有许多，我编程时也基本只看帮助文件。那里面有许多实例，挺不错的。