---

Hallo,

ich programmiere gerade ein Makro in welchem ich eine Powercopy mit 3 Eingaben(Punkt/Fläche/Ebene) in ein Part einfüge.
Ziel des Makros ist es die Powercopy so oft in das Part einzubauen wie Punkte in meiner Skizze vorhanden sind. Eben einen dieser Punkte will ich als Eingabeelement der Powercopy zuweisen.

Mein Problem besteht darin, dass ich die Punkte aus der selektierten Skizze nicht als Objekt dem Input(myFactory.PutInputData "Positionspunkt", ref_akt_punkt) zuweisen kann.

Weiss jemand wie das gehen könnte?

Hier der Teilcode:

Code:

---

...
'Auswahl festlegen -----------------------------------------------
Dim Filter(0)
Filter(0) = "Sketch"

'Skizze wählen   ------------
Dim UserSel As Object
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

Dim intSelAbfrageStr As String
Dim intsketch As Sketch

intSelAbfrageStr = UserSel.SelectElement2(Filter, "Skizze wählen!", False)

If intSelAbfrageStr = "Normal" Then
  Set intsketch = UserSel.Item(1).Value
End If

UserSel.Clear
...
'--------------Punkt auslesen aus Skizze--------------------------

Dim akt_punkt As Object
Set akt_punkt = intsketch.GeometricElements.Item(2)

Dim ref_akt_punkt As Reference
Set ref_akt_punkt = myPart.CreateReferenceFromObject(akt_punkt)

'Einzufügendes Part incl. Powercopy wählen-------------------

myFactory.BeginInstanceFactory "PowerCopyName", "S:\1234.CATPart"

myFactory.BeginInstantiate

'Selektierte Geometrie an die PowerCopy senden --------------------
myFactory.PutInputData "Positionspunkt", ref_akt_punkt
...

---

Gruß schorsew

[Diese Nachricht wurde von schorsew am 13. Apr. 2011 editiert.]

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