Hallo,
ich versuche einen Sketch Punkt zu publizieren. Damit das funktioniert benötige ich eine Reference auf den Sketch Punkt. Den Sketch Punkt hole ich mir als GeometricElement des Sketches. Leider kann ich mit CreateReferenceFromObject keine Referenz auf ein GeometricElement erstellen. Im Forum habe ich dann den Tipp gelesen stattdessen mit CreateReferenceFromName eine Referenz zu erstellen.
' alles catvba:
Dim oNoTypeGeoEl 'As GeometricElement
Set oNoTypeGeoEl = oGeoEl 'oGeoEl enthaelt den 2DPoint des Sketches
oPartSel.Add (oNoTypeGeoEl)
Dim oSelEl As Point2D
Set oSelEl = oPartSel.Item2(1).Value 'nur ein Punkt im Sketch
Dim oRefToSketchPoint As Reference
Set oRefToSketchPoint = oPartRefProd.CreateReferenceFromName(oSelEl.Name)
'oSelEl.Name liefert nur "Point1" statt eines Pfadnamens über die Struktur
MsgBox (oRefToSketchPoint.DisplayName) 'KO
...
Set oPub = oPubs.Add(sNewPubName)
oPub.SetDirect sNewPubName, oRefToSketchPoint
...
oPartSel.Clear
Vielleicht kann ich mir den CreateReferenceFromName-Pfad ja zusammenbauen. Den Pfad zum Sketch könnte ich vermutlich über eine Selection holen. Sketch zu Selection hinzufügen und dessen DisplayName holen. Die Navigation innerhalb des Sketches ist mir jedoch unklar. Das V5 Makro Buch beschreibt glaube ich die Regeln für diese Pfade. Leider habe ich das Buch gerade einem Kollegen verliehen.
Hat vielleicht jemand einen Tipp oder kann hier einen Denkfehler aufdecken?
Viele Grüße,
Logan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP