|
CATIA V5 Programmierung : Translate
Bertel am 14.03.2007 um 13:58 Uhr (0)
Hallo L_C,packe doch alle zu verschiebenden Elemente in eine Selection,dann kannst Du das Verschieben in einer Schleife machen.Beispiel für selection: selection.Search "Name:Linie*+Name:Kreis*" sucht alle Linien und Kreise For i = 1 to selection.count text = selection.item(i).Value.Name textneu = "neu_"+text selection.item(i).Value.Name = textneu NextGrußBertel
|
|
CATIA V5 Programmierung : Verzeichniswahl
Bertel am 26.04.2007 um 16:57 Uhr (0)
Hallo Goosnargh,meinst du sowas? Dim Ordner As Folder Set Ordner = CATIA.FileSystem.GetFolder("C:irgendeinOrdner") Dim Dateien As Files Set Dateien = Ordner.Files Dim Datei As File------------------------------------------ Schleife über alle Dateien in Dir-------------------------------------------For i = 1 to Dateien.count Set Datei = Dateien.Item(i) if (InStr(Datei.Name,"CATDrawing")) then wenn Datei ein CATDrawing irgendwas mit der Datei machen end ifNextGrußBertel
|
|
CATIA V5 Programmierung : Textgröße ändern oh graus
Bertel am 09.08.2007 um 13:55 Uhr (0)
Hallo lucky_30,mir ist nicht ganz klar, welche Objekte Du ändern willst.Für normale Texte geht das so:For i = 1 to DrwTexts.count Set MyText = DrwTexts.Item(i) size = MyText.GetFontSize(0, 0) If size = 4 Then MyText.SetFontSize 0, 0, 5 End IfNextGrußBertel[Diese Nachricht wurde von Bertel am 09. Aug. 2007 editiert.]
|
|
CATIA V5 Programmierung : Anzeigemodus Analyse deaktivieren
Bertel am 25.06.2014 um 12:53 Uhr (1)
Hallo Thomas,leider bekomme ich einen Fehler: "Das Verfahren Item ist fehlgeschlagen".Mit GetItem ebenfalls.GrußBertel
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
