|
CATIA V5 Programmierung : Balloon links entfernen
NyariG am 18.08.2015 um 09:45 Uhr (1)
Hallo,Kann ich irgendwie das Links des Balloons entfernen/Isolieren natürlich durch den Makro(vba)?Balloon Generation schon geht aber darf kein links haben.
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Balloon links entfernen
NyariG am 20.08.2015 um 08:09 Uhr (1)
HalloIch habe den Problem gefunden.Bei mir der Befehl "Isolate" manchmal aktiv manchmal inaktiv.Wenn das inaktiv ist wird die Balloons nicht isolieren.Wie kann man das prüfen ob das inaktiv ist? Und wie kann man das aktive machen?Gruß Gergö
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Balloon links entfernen
NyariG am 19.08.2015 um 12:22 Uhr (1)
Hallo,Ich habe eine ISO Ansicht.Mittels diese Befehl:Code:Anwendung = "Balloon" & " " & "generation"CATIA.StartCommand Anwendungerstelle ich den Balloons und nach der Erstellung benenne ich das um.Das funktioniert gut. Aber jedes Balloon hat ein Attribute link, das muss man momentan per Hand isolieren. Das möchte ich auch automatisieren.GrüßGergö----Englisch geht leider nicht.[Diese Nachricht wurde von NyariG am 19. Aug. 2015 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Balloon links entfernen
NyariG am 19.08.2015 um 08:28 Uhr (1)
Was ich probiert:1)Makro aufnahmen während Isolirung...2)drawingView1.Texts.Item(1).Isolate3)Code:For j = 1 To drawingView1.Texts.Countselection1.Add drawingView1.Texts.Item(j)NextAnwendung = "Isolate"CATIA.StartCommand Anwendung4)Copy-Paste5)Neue Balloon erstellen.Leaderposition kann ich nicht abfragen. Code:Dim MyText2 As DrawingTextSet MyText2 = drawingView1.Texts.Add("ComplexText", 0#, 0#) MyText2.AnchorPosition = 21 MyText2.FrameType = catCircleDim MyLeader As DrawingLeaderSet MyLeader = MyText2.Leade ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Balloon links entfernen
NyariG am 20.08.2015 um 06:54 Uhr (1)
HalloBei mir funktioniert leider nicht.Kannst du bitte anschauen:Code:Private Sub CommandButton8_Click()Set drawingDocument1 = CATIA.ActiveDocumentSet drawingSheets1 = drawingDocument1.SheetsSet drawingSheet1 = drawingSheets1.ActiveSheetSet drawingViews1 = drawingSheet1.ViewsSet drawingView1 = drawingViews1.ActiveViewSet DrawTexts1 = drawingView1.TextsDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.ClearFor j = 1 To DrawTexts1.Countselection1.Add DrawTexts1.Item(j)NextDim a ...
|
| In das Form CATIA V5 Programmierung wechseln |
