---

Hallo,

ich bin ziemlich Anfänger was die Catia programierung betrifft, deshalb brauchte ich helfen.
Ich möchte bei allen erstellten Ansichten  (ausser Vorderansicht)" die Ansichtsname löschen, sowie den Text "Masstab". Also kurz gesagt.
von diesem Form:
Schnitt B-B, Masstab 1:2"
in dieser Form umwandeln:
"B-B 1:2"

Danke voraus
Petr

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

---

ISt es noch aktuell?

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

---

Egal ob noch aktuell oder nicht. vielleicht brauch ja jemanden in zukunft so was:

CODE = CATScript

Code:

---

SUB CATMain()
DIM DRWSheet As DrawingSheet
DIM oView As DrawingView
DIM ViewScale As String
DIM viewPrefix As String
DIM ViewIdent As String
DIM ViewSuffix As String

ON ERROR RESUME NEXT
SET DRWSheet = CATIA.ActiveDocument.Sheets.ActiveSheet
IF Err.Number <> 0 THEN
MSGBOX "ActiveDocument is not of type CATDrawing or has no view",16,"DOCUMENT ERROR"
EXIT SUB
END IF
ON ERROR GOTO 0

FOR n = 3 TO DRWSheet.Views.Count
SET oView = DRWSheet.Views.Item(n)
oView.GetViewName MyPrefix, MyIdent, MySuffix
ViewScale = Cstr(oView.Scale)
FOR EACH oText IN oView.Texts
IF Instr(oTEXT.Text, MyPrefix) THEN
IF MyIdent = Nul THEN
IF oView.Scale < 1 THEN 'CATCHES 1:2 AS CATIA RETUNS DOUBLE FOR SCALE
ViewScale = Cstr(1/oView.Scale)
oTEXT.Text = MyPrefix & CHR(10) & "1:" & ViewScale
ELSE
oTEXT.Text = MyPrefix & CHR(10) & ViewScale & ":1"
END IF
ELSE
IF oView.Scale < 1 THEN 'CATCHES 1:2 AS CATIA RETUNS DOUBLE FOR SCALE
ViewScale = Cstr(1/oView.Scale)
oTEXT.Text = MyIdent & "-" & MyIdent & CHR(10) & "1:" & ViewScale
ELSE
oTEXT.Text = MyIdent & "-" & MyIdent & CHR(10) & ViewScale& ":1"
END IF
END IF
END IF
NEXT
NEXT

END SUB

---

Tabs werden nicht angezeigt?

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