VB与CAD相关的问题，求解答~~

孙东东007 发布于 2015-05-20 09:20， 412 次点击

Dim AcadApp As AcadApplication
Private Sub Command1_Click()
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) = 15#: Endpoint(1) = 15#: Endpoint(2) = 0#:
Set lineObj = AcadApp.ActiveDocument.ModelSpace.Addline_(Startpoint.Endpoint)
ZoomAll
End Sub

Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject("AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub

7 回复

lianyicq2015-05-20 09:25

说说目的和问题

孙东东0072015-05-20 09:28

我想利用VB和CAD连在一起画一条直线，但是运行的时候显示无效限定符

lianyicq2015-05-20 09:38

Set lineObj = AcadApp.ActiveDocument.ModelSpace.Addline_(Startpoint.Endpoint)
把红色下划线删掉

孙东东0072015-05-20 09:43

还是不行，运行后Private Sub Command1_Click()变黄，是不是这个有问题

lianyicq2015-05-20 09:54

回复 5楼孙东东007

Set lineObj = AcadApp.ActiveDocument.ModelSpace.Addline(Startpoint.Endpoint)
这句还有一个错,改"."为","

孙东东0072015-05-20 10:00

又显示实时错误438

lianyicq2015-05-20 10:02

回复 7楼孙东东007

程序代码：

Dim AcadApp As AcadApplication

Private Sub Command1_Click()
  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) = 15#: Endpoint(1) = 15#: Endpoint(2) = 0#:
  Set lineObj = AcadApp.ActiveDocument.ModelSpace.AddLine(Startpoint, Endpoint)
  ZoomAll
End Sub

Private Sub Form_Load()
Set AcadApp = CreateObject("AutoCAD.Application")
AcadApp.Visible = True
End Sub

用这个试吧