Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Annotation (FTA) in 3D verschieben

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Annotation (FTA) in 3D verschieben (414 mal gelesen)
user7
Mitglied



Sehen Sie sich das Profil von user7 an!   Senden Sie eine Private Message an user7  Schreiben Sie einen Gästebucheintrag für user7

Beiträge: 17
Registriert: 26.08.2022

erstellt am: 15. Sep. 2022 12:41    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


pmiverschieben.PNG

 
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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz