Zeichnung Text einfügen nach bzw. vor (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung) - Lösung vorhanden!

Autor

Thema: Zeichnung Text einfügen nach bzw. vor (1131 / mal gelesen)

joerneman
Mitglied
Konstrukteur

Senden Sie eine Private Message an joerneman

Schreiben Sie einen Gästebucheintrag für joerneman

Beiträge: 140
Registriert: 19.07.2009

Catia V5 R28,29
Intel i7-2600
Quadro 2000
16GB RAM
Win7-64bit

erstellt am: 19. Sep. 2016 10:20

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Text_vor_nach_Frage_CAD_de.JPG

Hallo Zusammen,

ist es möglich mittels Makro auf die Funktion "Text einfügen nach bzw vor" zuzugreifen?

Ich würde mir gerne auf einer Schaltfläche ein Makro hinterlegen mit dem nach Auswahl der Bemaßung z.B die Klammern davor und dahinter Automatisch gesetzt werden.

Danke.

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

Trilemma
Mitglied
staatl. gepr. Techniker

Senden Sie eine Private Message an Trilemma

Schreiben Sie einen Gästebucheintrag für Trilemma

Beiträge: 254
Registriert: 20.08.2010

Catia V5 R19 SP8
Windows7 64bit 12GB 2,93GHz
Dell Precision T3500

erstellt am: 19. Sep. 2016 10:36

<-- editieren / zitieren -->

Unities abgeben:

Nur für joerneman

Moin,

gibt es schon

Code:

Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Set oSelection = CATIA.ActiveDocument.Selection
Dim InputObjectType(0)
InputObjectType(0) = "AnyObject"
Status = oSelection.SelectElement2(InputObjectType, "WÃ€hlen Sie die BemaÃung aus", False)
If (Status <> "Normal") Then
MsgBox "Abbruch"
Exit Sub
Else
Set dimension1 = oSelection.Item(1).Value
Set DrawingDimValue1 = dimension1.GetValue
DrawingDimValue1.SetBaultText 1, "(", ")", "", ""
End If
oSelection.Clear
End Sub