level 3
小七落流
楼主
各位大佬，萌新给跪了！
求路过的各位帮忙看看我这个问题
代码目的：通过编写代码调取cad命令进行画弧线。
问题：萌新写的程序能够成功打开cad，但是在cad上没有任何作图痕迹，说明后半部分的命令是不好使的，查了好多种写法都不行，这里列举一种，希望大佬们能给看看。
终极目的：在cad上画出一条弧线
Private Sub Command1_Click()
'Dim myacadapp As AutoCAD.AcadApplication, activedoc As AutoCAD.AcadDocument, acms As AutoCAD.AcadModelSpace
On Error Resume Next
Set myacadapp = CreateObject("autocad.application")
If Err Then
msgboxerr.Number& ":" & Err.Description
Exit Sub
End If
On Error GoTo prcerr
myacadapp.Visible = True
Set activedoc = myacadapp.ActiveDocument
'Dim arcobject As AcadArc
Dim centerpoint(0 To 2) As Double
Dim radius As Double
Dim arcSangle As Double
Dim arcEangle As Double
centerpoint(0) = 15563.6: centerpoint(1) = 10900: centerpoint(2) = 0
radius = 9000
arcSangle = 1.5701
arcEangle = 2.6424
Set arcobject = thisdrawing.mode
lsp
ace.AddArc_(centerpoint, radius, arcSangle, arcEangle)
prcexit:
Set activedoc = Nothing
Set myacadapp = Nothing
Exit Sub
prcerr:
msgboxerr.Number& ":" & Err.Description, vbCritical
Resume prcexit
End Sub
给跪了！！
2019年03月15日 07点03分
1
求路过的各位帮忙看看我这个问题
代码目的：通过编写代码调取cad命令进行画弧线。
问题：萌新写的程序能够成功打开cad，但是在cad上没有任何作图痕迹，说明后半部分的命令是不好使的，查了好多种写法都不行，这里列举一种，希望大佬们能给看看。
终极目的：在cad上画出一条弧线
Private Sub Command1_Click()
'Dim myacadapp As AutoCAD.AcadApplication, activedoc As AutoCAD.AcadDocument, acms As AutoCAD.AcadModelSpace
On Error Resume Next
Set myacadapp = CreateObject("autocad.application")
If Err Then
msgboxerr.Number& ":" & Err.Description
Exit Sub
End If
On Error GoTo prcerr
myacadapp.Visible = True
Set activedoc = myacadapp.ActiveDocument
'Dim arcobject As AcadArc
Dim centerpoint(0 To 2) As Double
Dim radius As Double
Dim arcSangle As Double
Dim arcEangle As Double
centerpoint(0) = 15563.6: centerpoint(1) = 10900: centerpoint(2) = 0
radius = 9000
arcSangle = 1.5701
arcEangle = 2.6424
Set arcobject = thisdrawing.mode
lsp
ace.AddArc_(centerpoint, radius, arcSangle, arcEangle)
prcexit:
Set activedoc = Nothing
Set myacadapp = Nothing
Exit Sub
prcerr:
msgboxerr.Number& ":" & Err.Description, vbCritical
Resume prcexit
End Sub
给跪了！！