Arcos com Center Point e Angles.

[olamer]

Ola Pessoal .,

Estava levantando umas informações de um projeto, e vi que erroneamente o técnico me mandou uma especificação de arcos enviando somente o Ponto Central (Center Point) e os angulos inicial (Start Angle) e final (End Angle).
Sei desenha-lo facilmente, só que é preciso usar muitos recursos, como lines e verificação dos angulos, etc ...

Existe alguma opção no commando ARC ou pelo LISP que desenhe estes arcos diretamente via linha de commando ?

[olamer]

Ola pessoal,

Só para matar esse assunto, eu só consegui fazer o arco usando (entmake) e passando os parametros de criação através dos códigos DXF.
Foi meio suado, mas deu certo.

Um item que tem que ficar atento, é o código 210 (Código de Extrusão). Em alguns casos ele está padrão (0,0,1), mas em outros ele está invertido (0,0,-1), e isso faz uma grande diferença na posição do arco.

Valeu

[marcio.cartacho]

Olá olamer!

espero que este exemplo em VBA te ajude:

Public Sub Arc()
Dim CenterPoint As Variant
Dim AngleI As Double
Dim AngleF As Double
Dim raio As Double
Dim Vlayer As String
CenterPoint = ThisDrawing.Utility.GetPoint(, "Centro do Arco: ")
AngleI = ThisDrawing.Utility.GetString(True, "Angulo Inicial: ")
AngleF = ThisDrawing.Utility.GetString(True, "Angulo Final: ")
raio = ThisDrawing.Utility.GetString(True, "Raio do Arco: ")
Vlayer = "0"
AddArc CenterPoint(0), CenterPoint(1), CenterPoint(2), raio, AngleI, AngleF, Vlayer
End Sub
Function AddArc(ByRef Center_ArcX As Variant, ByRef Center_ArcY As Variant, ByRef Center_ArcZ As Variant, ByRef Radius_Arc As Variant, ByRef StartArcAngle As Variant, ByRef EndArcAngle As Variant, ByRef Clayer As String)
Dim arcObj As AcadArc: Dim centerArcPoint(0 To 2) As Double: Dim radius As Double
Dim startAngleInDegree As Double: Dim endAngleInDegree As Double
Dim startAngleInRadian As Double: Dim endAngleInRadian As Double
centerArcPoint(0) = Center_ArcX
centerArcPoint(1) = Center_ArcY
centerArcPoint(2) = Center_ArcZ
startAngleInRadian = StartArcAngle * 3.141592 / 180#
endAngleInRadian = EndArcAngle * 3.141592 / 180#
Set arcObj = ThisDrawing.ModelSpace.AddArc(centerArcPoint, Radius_Arc, startAngleInRadian, endAngleInRadian)
arcObj.Layer = Clayer
ThisDrawing.Regen acActiveViewport
ZoomExtents
End Function

este exemplo constrói um arco solicitando ao usuário o centro, angulo inicial, angulo final e raio, foi o que eu entendi com relação a sua duvida caso eu possa lhe ajudar mais pode me enviar email's..