求教 怎么画部分椭圆

q18842906221

只会画整个椭圆还不会打断，怎么样通过中心和长短轴，起始点，终点或者起始角，画椭圆弧。

自贡黄明儒

逆时针选择两点，就打断了。

q18842906221

自贡黄明儒 发表于 2025-5-30 15:53
逆时针选择两点，就打断了。

新手，不会打断啊，VBA代码怎么写？

332398174

不会写？？？？？？？？？？？？

332398174

水个贴，升级用

edata

RetVal = object.AddEllipse(Center, MajorAxis, RadiusRatio)
创建的是椭圆,椭圆弧得设置起始角和终点角.

你参考官方例子

1. Sub Example_AddEllipse()
   
2.     ' This example creates an ellipse in model space.
   
3.    
   
4.     Dim ellObj As AcadEllipse
   
5.     Dim majAxis(0 To 2) As Double
   
6.     Dim center(0 To 2) As Double
   
7.     Dim radRatio As Double
   
8.    
   
9.     ' Create an ellipse in model space
   
10.     center(0) = 5#: center(1) = 5#: center(2) = 0#
    
11.     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
    
12.     radRatio = 0.3
    
13.     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    
14.     ZoomAll
    
15.    
    
16. End Sub

Sub Example_AddEllipse()<br />     ' This example creates an ellipse in model space.<br />     <br />     Dim ellObj As AcadEllipse<br />     Dim majAxis(0 To 2) As Double<br />     Dim center(0 To 2) As Double<br />     Dim radRatio As Double<br />     <br />     ' Create an ellipse in model space<br />     center(0) = 5#: center(1) = 5#: center(2) = 0#<br />     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#<br />     radRatio = 0.3<br />     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)<br />     ZoomAll<br />     <br /> End Sub

起始角参考

1. Sub Example_EndAngle()
   
2.     ' This example creates an ellipse and enters the start and
   
3.     ' end angles to create an elliptical arc.
   
4.     Dim ellObj As AcadEllipse
   
5.     Dim majAxis(0 To 2) As Double
   
6.     Dim center(0 To 2) As Double
   
7.     Dim radRatio As Double
   
8.    
   
9.     ' Create an ellipse in model space
   
10.     center(0) = 5#: center(1) = 5#: center(2) = 0#
    
11.     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#
    
12.     radRatio = 0.3
    
13.     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)
    
14.    
    
15.     'Enter a start angle of 45 degrees, and an end angle of 270 degrees
    
16.     ellObj.startAngle = 45 * (3.14 / 180)
    
17.     ellObj.endAngle = 270 * (3.14 / 180)
    
18.     ZoomAll
    
19.     MsgBox "This ellipse has a start angle of " & ellObj.startAngle * (180 / 3.14) & " and the end angle of " & ellObj.endAngle * (180 / 3.14) & " degrees.", vbInformation, "EndAngle Example"
    
20. End Sub

Sub Example_EndAngle()<br />     ' This example creates an ellipse and enters the start and<br />     ' end angles to create an elliptical arc.<br />     Dim ellObj As AcadEllipse<br />     Dim majAxis(0 To 2) As Double<br />     Dim center(0 To 2) As Double<br />     Dim radRatio As Double<br />     <br />     ' Create an ellipse in model space<br />     center(0) = 5#: center(1) = 5#: center(2) = 0#<br />     majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0#<br />     radRatio = 0.3<br />     Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio)<br />     <br />     'Enter a start angle of 45 degrees, and an end angle of 270 degrees<br />     ellObj.startAngle = 45 * (3.14 / 180)<br />     ellObj.endAngle = 270 * (3.14 / 180)<br />     ZoomAll<br />     MsgBox "This ellipse has a start angle of " & ellObj.startAngle * (180 / 3.14) & " and the end angle of " & ellObj.endAngle * (180 / 3.14) & " degrees.", vbInformation, "EndAngle Example"<br /> End Sub