Habe mit dem Recorder die Erzeugung einer Bohrung mit einem Punkt aus einer Skizze aufgezeichnet VB.
Dann habe ich die Aufzeichnung verändert so das ich auch andere Skizzen verwenden kann.
Die Recorder gibt für die Reference der Koordinate folgendes aus
Set reference1 = part1.CreateReferenceFromBRepName("BorderFVertex BEdge Brp Sketch.6;3);None Limits1 );Limits2 );+1);Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;M FBRepVersion_CXR15)", sketch1)
Ich habe dann das Programm für die abfrage der Skizze so geändert
Dim Filter(0)
Filter(0) = "Sketch"
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
Dim Skizzennamen As String
Skizzennamen = UserSel.Item(1).Value.Name
Dim sketch1 As Sketch
Set sketch1 = sketches1.Item(Skizzennamen)
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("BorderFVertex BEdge Brp Skizzennamen;1);None Limits1 );Limits2 );+1);Cf11 ));WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSuppo rt;MFBRepVersion_CXR15)", sketch1)
Wenn ich die reference1 mit
MsgBox (reference1.Name)
Abfrage kommt sowohl bei der Aufzeichnung wie auch bei meiner Erzeugung der gleich Text.
Bei meiner Version kommt aber immer eine Fehlermeldung bei der Erzeugung der Bohrung.
Set hole1 = shapeFactory1.AddNewHoleFromRefPoint(reference1, Surface1, 10)
Was mache ich falsch?
Die Suche hier im Forum hat mich leider nicht weiter gebrach.
Gruß
Ralf
------------------
KOBUE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP