---

Hallo,

hab folgende Problemstellung:

Ich habe eine Bogen in AutoCAD, folgedessen auch Start- Endpunkt, Zentrum, Radius, Winkel... Was ich brauche ist der Mittelpunkt (NICHT Zentrum) des Bogens. Wie kann ich diesen berechnen?

------------------
Grüsse Benny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

wo ist das Problem?

Da gibt's mal jede Menge Geometriemathematik-Seiten im Internet. 

Und im schlimmsten Fall:
- erzeuge eine Linie vom Zentrum zum Startpunkt
- drehe diese in die Mitte zwischen StartAngle und EndAngle (beides Eigenschaften des Bogens)
- nun ist der Endpunkt der Linie der Bogenmittelpunkt

- alfred -

------------------
www.hollaus.at

---

Hallo,

die wird es sicher geben, habe aber leider nicht wirklich was gefunden das ich auch verstehen kann... Deshalb habe ich mir erlaubt hier nachzufragen.

------------------
Grüsse Benny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Experimentier mal hiermit :
Bogenmittelpunkt_X=BogenCenter_X+Radius*cos((Endwinkel+Startwinkel)/2)
Bogenmittelpunkt_Y=BogenCenter_Y+Radius*sin((Endwinkel+Startwinkel)/2)

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Komme leider nicht zurecht damit, da ich abhängig davon ob der Bogen im oder gegen den Uhrzeigersinn dreht den Winkel positiv oder negativ angeben muss...

------------------
Grüsse Benny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

guck mal die Eigenschaft '.Normal' an, die verrät imho was über im- oder gegen den Uhrzeigersinn.

[EDIT] Für Nachlesende:
.Normal..... ist Dummsinn (in diesem Zusammenhang), sorry, dafür unten die Lösung in VBA
[/EDIT]

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 02. Mrz. 2011 editiert.]

---

... und wie wäre die Betrachtung als Curce-Object. Da sollte der Mittelpunkt am Parameter 0.5 zu ermitteln sein.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

IMHO
0,5 * (ENDPARAM-STARTPARAM) .. aber gibts das Curveobjekt in VBA ?

in Lisp wäre das
(defun C:BMP(/ OBJ S E)
  (if(and(setq OBJ(car(entsel "\nBogen Wählen: ")))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (setq S(vlax-curve-getstartparam OBJ))
        (setq E(vlax-curve-getendparam OBJ))
    )
    (vlax-curve-getpointatparam OBJ (*(- E S)0.5))
  )
)

aber aus den anderen Bogeneigenschaften bekommt man das ja mit etwas Mathe auch raus.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die Normal - Eigenschaft ist immer auf 0, 0, 1. Diese Eigenschaft gibt an in welcher Ebene der Bogen gezeichnet ist. Wenn ich einen Bogen in der Vorderansicht zeichne ist der Wert 0, -1, 0. Hat also nichts mit der Drehrichtung zu tun...

------------------
Grüsse Benny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

sorry für die Verwirrung mit der .Normal-Eigenschaft, da hab ich wohl was anderes im Kopf gehabt. Sorry!

Dafür hier was Du suchst:

Code:

---

  Dim tArc As AcadArc
  Dim tPnt As Variant
  Call ThisDrawing.Utility.GetEntity(tArc, tPnt)
 
  Dim tMidPnt(2) As Double
  tMidPnt(0) = tArc.Center(0) + tArc.Radius * Cos(tArc.StartAngle + tArc.TotalAngle / 2#)
  tMidPnt(1) = tArc.Center(1) + tArc.Radius * Sin(tArc.StartAngle + tArc.TotalAngle / 2#)
 
  Dim tText As AcadText
  Set tText = ThisDrawing.ModelSpace.AddText("MID", tMidPnt, tArc.Radius / 10#)

---

- alfred -

------------------
www.hollaus.at