---

hallo miteinander,

ich möchte gern einen Kreisbogen in den Raum zeichnen. dafür habe ich auch 3 3D-Punkte zur Verfügung, aber wie kann ich jetzt über vba den Kreisbogen zeichnen lassen? ich kenne nur den Befehl AddArc und da kann ich mit 3 Punkten nichts anfangen.

Kann mir da einer helfen. Es würde auch helfen, wenn einer eine Lösung über sendcommand wüsste.

gruss
emara

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

---

aus den 3 Punkten muß du dir mit etwas Mathematik den Mittelpunkt, den Radius , anfangs und Endwinkel und Normale ausrechnen. Dann kannst du via VBA einen Arc erzeugen und dei Eigenschaften entsprechend setzen.

------------------
  - 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

---

das ist ein wenig mein problem. ich weiss nicht wie ich mathematisch das alles berechnen kann. besonders mit den winkeln.

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

---

Hi,

mein Weg in groben Schritten wäre mal:

a) Ebene ermitteln, die sich durch die drei Punkte ergibt (hoffentlich, Problem wird's wenn diese 3 Punkte auf einer Geraden liegen, dann hast Du aber eine Linie und keinen Bogen)

b) mit dieser Ebeneninformation ist die Matrix vorhanden, die Du zum Erstellen eines BKS benötigst

c) dann rechnest Du die 3 WCS-Punkte auf BKS-Punkte um und brauchst 'nur mehr' 2D denken für das Erstellen des Bogens.

- alfred -

[Diese Nachricht wurde von a.n. am 12. Jan. 2009 editiert.]

---

in Lisp würde das (mit Command) so aussehen:

Code:

---

(defun c:3dbogen( / pa pn pe)
  (command "_ucs" "_world")
  (setq pa (getpoint "P1 (Startpunkt):"))
  (setq pn (getpoint "P2 (Punkt auf Bogen):"))
  (setq pe (getpoint "P3 (Endpunkt):"))

  (command "_ucs" "_3p" pa pn pe)
  ; Bogen über 2 Punkte
  (command "_arc" (trans pa 0 1)(trans pn 0 1)(trans pe 0 1))
  (command "_ucs" "_world")
)

---

  

Die commands lassen sich mit Sendcommand in ähnlicher Form einsetzen, für trans kann man die
AutoCAD.Application.ActiveDocument.Utility.TranslateCoordinates-Methode
benutzen
------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 12. Jan. 2009 editiert.]

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

---

danke für die hilfen,
habe mich mit der ebene der 3 punkte und dem bks ans ziel gekämpft.
bestimmt umständlich, aber es funktioniert

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