---

Hallo,

ich schreibe zurzeit meine Diplomarbeit. Mein Ziel ist es automatisch Mittelflächen zu vernetzen.

Mit der Funktion "Curve Capture" möchte ich zuvor veröffentlichte Linien (Schweißnähte) im Mesh einfangen. Dies erfordert eine Auswahl mit dem Geometry Selector.

1. Ansatz:
surfPart.SetSpecificationFromPublication "CurveCapture", Product, publications.Item("SN"), 0

2. Ansatz (über Local Specification):
Set meshSpecs = surfPart.AnalysisMeshLocalSpecifications
Set spec = meshSpecs.Add("MSHConstrainCurve")
spec.SetAttribute "Tolerence", "10mm"

Beide führen bis jetzt nicht zum Erfolg. Kann jemand helfen? Hat jemand eine Idee wie ich die Geometrien auswählen kann?

Vielen Dank und Gruß.

Code zum Erstellen des Advanced Surface Mesh:
Sub mesh_surface(pubSurf, publications, Product, oAnalysisMeshParts)

    'Add the new Advanced surface mesh part to the list of mesh parts
    Set surfPart = oAnalysisMeshParts.Add("MSHPartSmartSurf")
    'Add support from the published surface
    surfPart.AddSupportFromPublication Product, pubSurf
    'name mesh
    surfPart.Name = pubSurf.Name
    'Set the global Specifications
    surfPart.SetGlobalSpecification "GlobalMethod", "Frontal quadratic"
    surfPart.SetGlobalSpecification "GlobalSize", "3.0 mm"
    surfPart.SetGlobalSpecification "MinimumSize", "1.0 mm"
    surfPart.SetGlobalSpecification "ElementOrder", "Linear"
    surfPart.SetGlobalSpecification "FaceAngle", "0.0 deg"
    surfPart.SetGlobalSpecification "CurveAngle", "0.0 deg"
    surfPart.SetGlobalSpecification "DetailsElimination", 1
    surfPart.SetGlobalSpecification "StripOptimization", 1
    surfPart.SetGlobalSpecification "CleanSize", "1.0 mm"
    surfPart.SetGlobalSpecification "Offset", "0.0 mm"
    surfPart.SetGlobalSpecification "OffsetFromThickness", "0.0 mm"
    surfPart.SetGlobalSpecification "MinimizeTriangles", 1
    surfPart.SetGlobalSpecification "MinSizeForSag", "1.0 mm"
    surfPart.SetGlobalSpecification "CurveCaptureTol", "1.0 mm"
    surfPart.SetGlobalSpecification "OptimizeRegularity", 1
    surfPart.SetGlobalSpecification "MeshRelSagValue", "1.0 mm"
    surfPart.SetGlobalSpecification "MeshRelSag", 1
    surfPart.SetGlobalSpecification "ConstraintSagValue", "0.5 mm"
    surfPart.SetGlobalSpecification "CurveCapture", 2
    surfPart.SetGlobalSpecification "CurveCaptureTol", "10 mm"
    surfPart.SetGlobalSpecification "MeshCapture", 2
    surfPart.SetGlobalSpecification "MeshCaptureTol", "3mm"
    surfPart.SetGlobalSpecification "MeshAbsSag", 2
    surfPart.SetGlobalSpecification "MeshAbsSagValue", "0.4 mm"
   
    surfPart.Update
   
    set_MeshProperty Product, pubSurf, Surface_2D_Property

End Sub

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