Hallo zusammen,
ich habe automatisiert eine Annotation erstellt und würde diese gerne
Die automatisch erstellte Dimension ist nicht optimal positioniert und ich würde sie gerne programmatisch nach unten verschieben.
Den Befehl "Line-Up" über selektierte Dimensionen kann ich nicht verwenden, da ich das Ganze vollständig im Makro lösen möchte, und der Befehl zwei Klicks als User-Interaction benötigt.
Dieser Code erstellt eine Dimension anhand von zwei selektierten faces (später werden diese nicht mehr von Hand selektiert).
Code:
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Dim oSel as Selection
Set oSel = partDocument1.selection
oSel.Clear
Dim Filter(0)
Filter(0)="Face"
Dim F_Faces as object
F_Faces = oSel.SelectElement3(Filter, "select faces",False, CATMultiSelectionMode.CATMultiSelTriggWhenUserValidatesSelection, False)objcount = oSel.count
Dim ref1 As Reference
Set ref1 = oSel.Item(1).Value
Dim ref2 As Reference
Set ref2 = oSel.Item(2).Value
Set userSurfaces1 = part1.UserSurfaces
Set userSurface1 = userSurfaces1.Generate(ref1)
Set userSurface2 = userSurfaces1.Generate(ref2)
Set userSurfComboNode = userSurfaces1.MakeUserSurfaceNode(userSurface1, userSurface2)
Set annotationSet1 = part1.AnnotationSets.Item(1)
Set annotationFactory = annotationSet1.AnnotationFactory
Set pmi = annotationFactory.CreateNonSemanticDimension(userSurfComboNode,5,0)
oSel.Clear
oSel.Add(pmi)
CATIA.StartCommand("CATDrwDimCheckHorizHdr")
msgBox("DONE!!" & oSel.count)
End Sub
Ich bin dankbar für jeden Hinweis!
Gruß Matt
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP