As shown in figure drawing written in VBA, originally this four arc should draw together, but now finished second period after the first piece of code can't draw out
And display type does not match, the four code alone is no problem, is this why?
Pray god help to see what's the problem with the code sincerely for help,,,,,,, I found a lot of people ask, but no one answer me,,,,
Dim arcobj1172 As AcadCircle
Dim startangle1172 As Double
Dim endangle1172 As Double
Startangle1172 3.1415926/180=270 *
Endangle1172 3.1415926/180=56.18 *
The Set arcobj1172=ThisDrawing. ModelSpace. AddArc (p19, 4, startangle1172, endangle1172)


Dim arcobj1173 As AcadCircle
Dim startangle1173 As Double
Dim endangle1173 As Double
Startangle1173 3.1415926/180=123.82 *
Endangle1173 3.1415926/180=270 *
The Set arcobj1173=ThisDrawing. ModelSpace. AddArc (p20, 4, startangle1173, endangle1173)



Dim arcobj117 As AcadCircle
Dim startangle117 As Double
Dim endangle117 As Double
Startangle117 3.1415926/180=90 *
Endangle117 3.1415926/180=180 *
The Set arcobj117=ThisDrawing. ModelSpace. AddArc (were, 2, startangle117, endangle117)


Dim arcobj1171 As AcadCircle
Dim startangle1171 As Double
Dim endangle1171 As Double
Startangle1171=0
Endangle1171 3.1415926/180=90 *
The Set arcobj1171=ThisDrawing. ModelSpace. AddArc (p29, 2, startangle1171, endangle1171)