---

Hallo,

ich möchte interaktiv einen Punkt erstellen lassen (also einen Punkt durch anklicken erzeugen) und dessen Koordinaten auslesen, das nennt sich in CATIA "Smart Pick". Leider habe ich nur Funktionen für die Punkteerzeugung gefunden, wo die Koordinaten direkt eingegeben werden müssen. Weiss jemand Rat?

------------------
Karin

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

---

Hallo Karin,

mir fallen zwei Lösungsideen ein, die ich aber beide nicht ausprobiert habe:

1. Bei SelectedElement gibt es die Methode GetCoordinates. Laut Doku (R11 SP03) hat die folgende Eigenschaften:

Sub GetCoordinates( CATSafeArrayVariant  ioPoint)

Returns the coordinates of the pick point.
Parameters: oPoint

The coordinates of the pick point, i.e. the hit between the geometric object and the cursor.
Example:
This example retrieves the coordinates of the pick point in the array myArray:
Dim oSelElem As SelectedElement
Set oSelElem = CATIA.ActiveDocument.Selection.Item(1)
ReDim myArray(2)
oSelElem.GetCoordinates myArray

Das könnte funktionieren, wenn Du z.B. einen Punkt auf einer Fläche erzeugen willst: Du lässt den Anwender die Fläche an der Stelle selektieren, an der er den Punkt erzeugen möchte. Die Selektionskoordinaten sollten sich mit GetCoordinates auslesen lassen.

2. Seit R11 gibt es die Methoden Indicate2D und Indicate3D beim Object Document. Damit kann man den Anwender Indizieren lassen, allerdings nur auf ebene Objekte.

Wie gesagt, ich habe beide Lösungsvorschläge bisher nicht benutzt und habe auch gerade keine Zeit zum Testen. Probier' mal aus, ob sich die Funktionen für Deinen Zweck eignen.

Viele Grüße

Günther

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

---

Hallo,

mit der Methode Indicate2D geht es ganz einfach:

Dim Status As String
Dim Location(1) As Double

Status = CATIA.ActiveDocument.Indicate2D("Bestimmen Sie die Position des Punktes!",Location)
If (StrComp(Status, "cancel")) = 0 Then '- Benutzer hat Auswahl abgebrochen
iError = 1
Else
Set Point2D = Fact.CreatePoint(Location(0), Location(1))
End If

Danke für den Tipp!

------------------
Karin

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