如圖 用VBA撰寫的繪圖，本來這四段圓弧應該一起畫出來的，但是現在畫完第一段代碼以后第二段就畫不出來了
并且顯示型別不匹配。這四段代碼單獨畫是完全沒有問題的，這是為什么？
求大神幫忙看哈代碼有什么問題
真心求幫助。。。。。我找了好多人問了，，可是都沒人回答我。。。。Dim arcobj1172 As AcadCircle
Dim startangle1172 As Double
Dim endangle1172 As Double
startangle1172 = 270 * 3.1415926 / 180
endangle1172 = 56.18 * 3.1415926 / 180
Set arcobj1172 = ThisDrawing.ModelSpace.AddArc(p19, 4, startangle1172, endangle1172)
Dim arcobj1173 As AcadCircle
Dim startangle1173 As Double
Dim endangle1173 As Double
startangle1173 = 123.82 * 3.1415926 / 180
endangle1173 = 270 * 3.1415926 / 180
Set arcobj1173 = ThisDrawing.ModelSpace.AddArc(p20, 4, startangle1173, endangle1173)
Dim arcobj117 As AcadCircle
Dim startangle117 As Double
Dim endangle117 As Double
startangle117 = 90 * 3.1415926 / 180
endangle117 = 180 * 3.1415926 / 180
Set arcobj117 = ThisDrawing.ModelSpace.AddArc(p28, 2, startangle117, endangle117)
Dim arcobj1171 As AcadCircle
Dim startangle1171 As Double
Dim endangle1171 As Double
startangle1171 = 0
endangle1171 = 90 * 3.1415926 / 180
Set arcobj1171 = ThisDrawing.ModelSpace.AddArc(p29, 2, startangle1171, endangle1171)
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119342.html
標籤：VBA