|
CATIA V5 Programmierung : VB-Code beim speichern ausführen
cdt_roger am 11.10.2011 um 09:39 Uhr (0)
Hallo Rick,wir haben 2 Catia-Arbeitsplätze, aber viel mehr Personen, die die dort erstellten Pläne einsehen. Unser Planbestand stammt aus ca. 60 Jahren (wobei auch Pläne, die 30 Jahre alt sind regelmäßig konsultiert werden). Also haben wir handgezeichnete Pläne, mit einem nicht mehr vermarkteten CAD erstellte Pläne und CATIA-erstellte Pläne. Diese liegen auch alle als Tiff-Dateien und in Papierform vor. Wir haben ein in .NET geschriebenes Programm, welches diese Tiff-Dateien im ganzen Werk nur zur Ansicht ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
v5maler am 03.03.2009 um 14:55 Uhr (0)
Aaaahja... Kannst du mir vielleicht noch sagen wie ich die Fenster weg bekomme die doppelt aufploppen... Das "CATIA.ActiveDocument.Close" habe ich erstmal deaktiviert.------------------Es ist nichts zu dumm, es findet doch sein Publikum.[Diese Nachricht wurde von v5maler am 03. Mrz. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
K.Siebert am 03.03.2009 um 15:04 Uhr (0)
Code:CATIA.DisplayFileAlerts = False Fenster ausschalten------------------ Sei Schlau bleib Dumm !!?!!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
v5maler am 03.03.2009 um 15:59 Uhr (0)
Ähm, nicht wirklich oder?Ich bekomme mit... msgbox Name_1 msgbox Name_2...das so hin.Wenn ich "CATIA.DisplayFileAlerts = False" aus mache, fragt er nach überspeichern...------------------Es ist nichts zu dumm, es findet doch sein Publikum.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
v5maler am 03.03.2009 um 17:00 Uhr (0)
Soweit so klar...(es ploppen die Fenster auf mit den Namen).Wie bekomme ich nun noch den Benutzernamen und das aktuelle Datum mit rein?Benutzer:CATIA.ActiveDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = CATIA.SystemService.Environ("USERNAME")Datum:CATIA.ActiveDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = CStr(Date)Etwa mit...Name_1 = mid(vTXT, InStrRev(vTXT, "_") +1) Right Left MidNamex = Left(vTXT, InStrRev(vTXT, "_") -1) Right Left MidName_2 = mid(Namex, InStrRev(Namex, "_") +1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
K.Siebert am 03.03.2009 um 18:17 Uhr (0)
Aaaaaaaaahhhhhhhhhhhhhhh Okdann ist igendwo noch eine Msgbox die du ausklammern musstin meinem Skript ploppt nichts aufJetzt weiß ich was du genau vor hastDu bist auf dem richtigem wegUserNamen auslesenCode:UseName = CATIA.SystemService.Environ("USERNAME")Msgbox UseName"Name_3 = WAS HIER REIN?"Code:Name_3 = CStr(Date)Msgbox Name_3Ich schreibe beides in einen Text auf der Zeichnung deswegen:Code:if UseName = "K.siebert" ThenNameU = "Sieb" + Name_3end ifso jetzt muss für K.Siebert der User eingetragen werden ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
v5maler am 04.03.2009 um 07:56 Uhr (0)
Also irgendwas passt nicht so ganz... das Feld hat die Komponenteneigenschaft "Datum".Code:Public ErrorReturn As IntegerSub CATMain()If CATIA.Documents.Count = 0 Then Box = MsgBox("Es wurde kein aktives Dokument identifiziert" + Chr(10) + "Bitte oeffnen Sie zuerst ein Dokument und starten Sie dann das Makro erneut", vbInformation, "Hinweis") Exit SubEnd IfFor i = 1 To CATIA.Documents.CountDim oDocument As Document If CATIA.Documents.Count = 0 Then Exit Sub End IfSet oDocument = CATIA.ActiveDocumentIf Ty ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
bgrittmann am 11.10.2011 um 16:16 Uhr (0)
ServusZunächst bist du dafür im falschen Unterforum.Dann solltest du dir ggf mal ein paar Bücher zum Thema programmieren besorgen (siehe catia.cad.de). Da du gleich eine Userform angehen willst wären Grundlagen in VBA auch kein Fehler.Grober Ablauf:- Userform starten- Click löst das "New from" abhängig von der Auswahl aus (siehe auch V5Automation)- Userfrom beendenGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : selection aktives sheet
joerneman am 17.04.2015 um 19:34 Uhr (15)
Naben zusammen,wie muss ich den Code anpassen das die selection.search nur im Aktiven Sheet des Drawings sucht und nicht im gesamten.Da das gesamte aus mehreren Sheets besteht.Code: Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Set DrwSheet = DrwSheets.ActiveSheet Dim selection1 As Selection Set selection1 = drwdocument.Selection selection1.Search ("Name=*Test*")
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : selection aktives sheet
bgrittmann am 17.04.2015 um 19:39 Uhr (1)
ServuszB Sheet selektieren und dann nur in der Selektion suchen:Code:Set drwdocument = CATIA.ActiveDocumentSet DrwSheets = drwdocument.SheetsSet DrwSheet = DrwSheets.ActiveSheetDim selection1 As SelectionSet selection1 = drwdocument.Selectionselection1.clearselection1.add DrwSheetselection1.Search ("Name=*Test*,sel")GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA window freezing during makro running
bgrittmann am 20.04.2015 um 11:33 Uhr (1)
Hi Lucas,Do you program in VBA? The you could show a Userform which blocks the Catia windows (Userform not modal).Or you could minimize the window or the applicationregrades,Bernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nummer und Namen aus Teilenummer auslesen und ins Drawing schreiben
bgrittmann am 16.04.2015 um 15:58 Uhr (1)
ServusVersuch mal das Makro zu verstehen.Die Zeile (falls die noch in deinem Code enthalten ist) am Ende:Code:CATIA.ActiveDocument.CloseSchließt das Dokument.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Makro: Selektion Kanten und Extruieren ?
JuliJane am 11.10.2011 um 11:26 Uhr (0)
Hallo!ich komme nicht weiter mein Vorhaben:Die Kanten der Enden eines Rohres (stupider Solid) als Flächen extruieren.- Kante selektieren (BRep) (Selektion während der Laufzeit)- unabhängig ob PartDesign oder GeneralShapeDesign- Kante als Fläche extruieren (Referenzplane über Namen dek.)1. Bekomme Hrn. Ziethens Makro nicht für HybridBodies umgeschrieben:Sub CATMain () Auswahl festlegen ----------------------------------------------- Dim Was(2) Was(0) = "Pad" Was(1) = "Line" Was(2) = "Pocket" #hier ge ...
|
| In das Form CATIA V5 Programmierung wechseln |
