Hallo,
ich habe das Problem, wenn eine Fläche eines Pads projiziert werden soll (die Kontur der Fläche) und sich eine Bohrung in dem Pad befindet kommt eine Fehlermeldung. Ich habe die Vermutung, dass es daran liegt weil es dann zwei geschlossene Linienzüge sind?
Makro:
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("#Skeleton")
Dim hybridBodies2 As HybridBodies
Set hybridBodies2 = hybridBody1.HybridBodies
Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies2.Item("#Sketches")
Dim UrsprungsElemente, Ebene ' Referenzebene erzeugen
Set UrsprungsElemente = part1.OriginElements
Set Ebene = UrsprungsElemente.PlaneXY
part1.InWorkObject = hybridBody2
Dim sketches1 As Sketches
Set sketches1 = hybridBody2.HybridSketches
Dim skizze88 As Sketch
Set skizze88 = sketches1.Add(Ebene)
Dim Wzk88 As Factory2D ' 2D-Werkzeugkasten erzeugen und Skizze öffnen
Set Wzk88 = skizze88.OpenEdition
Dim geometricElements1 As GeometricElements
Set geometricElements1 = skizze88.GeometricElements
Dim axis2D1 As GeometricElement
Set axis2D1 = geometricElements1.Item("AbsoluteAxis")
Dim line2D1 As CATBaseDispatch
Set line2D1 = axis2D1.GetItem("HDirection")
line2D1.ReportName = 1
Dim line2D2 As CATBaseDispatch
Set line2D2 = axis2D1.GetItem("VDirection")
line2D2.ReportName = 2
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("PartBody")
Dim body2 As Body
Set body2 = bodies1.Item("PCB")
Dim shapes1 As Shapes
Set shapes1 = body1.Shapes
Dim shapes2 As Shapes
Set shapes2 = body2.Shapes
Dim pocket1 As Shape
Set pocket1 = shapes2.Item("Pocket.1")
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("RSur 
Face Brp Pad.2;2);None );Cf11 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MonoFond;MFBRepVersion_CXR15)", pocket1)
Dim geometricElements2 As GeometricElements
Set geometricElements2 = Wzk88.CreateProjections(reference1)
skizze88.CloseEdition
part1.UpdateObject skizze88
skizze88.Name = "Projection"
Set selection2 = CATIA.ActiveDocument.Selection
selection2.Search "Name=Projection*;all"
CATIA.StartCommand ("Isolate")
End Sub
Irgendwas stimmt mit dem BRep nicht. 
Habt ihr eine Erklärung dafür oder eine Lösung, um es zu beheben.
Vielen Dank!
Gruß Timo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
