|
CATIA V5 Programmierung : Brauche Hilfe Makro umbenennen Geo Sets im Part
olleiCAD am 30.11.2018 um 08:29 Uhr (1)
Folgendes Makro soll mir alle Körper, umbenennen, beginnend mit einer Zahl die ich eingebe.Code:Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection Dim Eingabe1 As String Eingabe1 = InputBox ("Bitte geben Sie eine Startnummer ein.", "Eingabe Startnummer", Eingabe1) selection1.Search "CATPrtSearch.BodyFeature,all" Dim Imax As Integer Imax = selection1.Count ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Brauche Hilfe Makro umbenennen Geo Sets im Part
olleiCAD am 30.11.2018 um 10:40 Uhr (1)
Hab das ganze jetzt etwas anders gelöst. Bei deiner Variante weiß ich nicht wie ich die Startvariable, die ich bei beiden Schleifen verwende, erhöhen muss. Wenn die Erste Schleife fertig ist, dann ist diese Startvariable ja wieder um die Anzahl der Körper zu hoch... Könntest du mir deinen Vorschlag mal schreiben?Code:Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection Dim Eingabe1 As St ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Brauche Hilfe Makro umbenennen Geo Sets im Part
ausie-r-n am 11.02.2010 um 10:21 Uhr (14)
Hallo Leute,vielen Dank an Alle, die mir geholfen haben. Es funktioniert und zwar mit folgendem Code:Language = "VBSCRIPT"Sub CATMain() Dim productDocument1 As PartDocument Set productDocument1 = CATIA.ActiveDocument Dim selection1 As selection Set selection1 = productDocument1.selection selection1.Search "CATGmoSearch.OpenBodyFeature,all" Dim Imax As Integer Imax = selection1.Count For I = 1 To Imax selection1.Item(I).Value.Name = "Geometrical Set." & CStr(I) & ".temp_rename" Next ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nochmals Hilfe bei einem Makro Dateigröße
DanielFr. am 11.02.2010 um 11:36 Uhr (0)
Hallo,erstens darfst du nicht durch "1000000" teilen sondern durch "1048576" den 1KByte = 1024Byte und zweitens würde ich das auch noch runden sonst bekommst einen riesigen Nachkommawust Hier mal das Script:Code:Sub CATMain() Dim intDoc As Document Dim intFilePathStr As String Dim FileSizeLng As Long Dim intFileObj As File Set intDoc = CATIA.ActiveDocument intFilePathStr = intDoc.FullName Set intFileObj = CATIA.FileSystem.GetFile(intFilePathStr) FileSizeLng = intFileObj.Size MsgBox "Filesize: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nochmals Hilfe bei einem Makro Dateigröße
ausie-r-n am 11.02.2010 um 11:10 Uhr (0)
Hallo Leute,ich mal wieder. Habe hier das Makro gefunden (s.u.) und etwas modifiziert, damit mir das Ergebnis gleich in MB angezeigt wird.Jetzt meine Frage: Wie bekomme ich es hin, daß er in die Klammer gleich den aktuellen Modellnamen einträgt ohne ihn erst mühsam aus dem Scratch zu suchen.Kann mir jemand helfen? Grußausie-r-nLanguage = "VBSCRIPT"Sub CATMain()Dim s As LongDim f As file------------------------------------------------------------In ("B:work???.CATPart") ??? den Model Namen eintragen------ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection nur auf den tree begrenzen
DanielFr. am 11.02.2010 um 09:26 Uhr (0)
Hallo,IMHO gibt es hierzu keine Möglichkeit. Du kannst aber das ganze mit einer Fehlerbehandlung und einer Funktion lösen. Sprich der Anwender selektiert nicht die ganze Boundray. Das führt zu einem Fehler der mit einem "On Error Goto xyz" abgefangen wird. Die Selektion selber steckt in einer Funktion die durch die Fehlerbehandlung wieder aufgerufen wird. Dem Anwender wird dann beim zweiten Anlauf mitgeteilt das er darauf achten soll alles zu selektieren------------------MFG DanielSysteminformation | Inoff ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection nur auf den tree begrenzen
Jens Hansen am 11.02.2010 um 09:33 Uhr (0)
Hallo,eine radikale Möglichkeit wäre, alle Geometrie auszublenden und in einem Meldungsfenster auf die Selektion im Baum hin zu weisen und nach erfolgter Selektion die Geometrie wieder ein zu blenden.Nur so als Idee ...SGJens Hansen------------------Inoffizielle CATIA-HilfeseiteHomepage von Jens HansenKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Beim einfügen einer PowerCopy ein Hinweisfenster ausgeben
DanielFr. am 11.02.2010 um 11:58 Uhr (0)
Hallo,ich denke nicht das es möglich ist. Da kannst zwar mit VB.NET eine Programm schreiben das einen eigenen Task hat und die Fenster überwacht (CATIA Fenster sind ChildWindows des Desktops (hier hätte man mit einer API Zugriff)) aber wie willst du dann reagieren? Sogen wir mal deine Software erkennt das ein ChildWindows mit der Caption "Insert Object" existiert und läuft an. Du kannst nur einen Text in deiner Ausgabe ausgeben. Du kannst nicht auf unterschiedliche PowerCopies reagieren . Von dem her sehe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
DanielFr. am 12.02.2010 um 12:19 Uhr (0)
Hallo ,das sollte weiterhelfen Code:Sub CATMain()**********************************Abfrage Dokumente********************************** Dim intWindows As Windows Dim intDoc As Document Dim intObjTypeStr As String Dim inPart As Part Dim intSel As Selection Dim intDeakCounterInt As Integer intDeakCounterInt = 0 Set intWindows = CATIA.Windows If intWindows.Count = 0 Then MsgBox "Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!" _ , vbCri ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
DanielFr. am 12.02.2010 um 12:59 Uhr (0)
Hallo,IMHO kann man DesignTables gar nicht isolieren. Also auch nicht per Hand. Von dem her auch nicht per Script ------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
DanielFr. am 12.02.2010 um 14:02 Uhr (0)
Hallo,@Andy: Ah ok über den Desk schon aber interen über das Kontextmenü hast du keine Möglichkeit. Von dem her auch keine ProgrammAPI. Daraus folgt du wirst es mit den SendKeys machen müssen @Norman:Du musst einfach nur die Abfrage nach dem Dokumententyp löschen. Siehe Beispielscript:Code:Sub CATMain() Dim intDoc As Document Dim inPart As Part Dim intSel As Selection Dim intDeakCounterInt As Integer intDeakCounterInt = 0 ***Instanzierungen Set intDoc = CATIA.ActiveDocument Set inPart = intDoc.P ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
AndyMF am 12.02.2010 um 11:09 Uhr (0)
Hallo zusammen,gibt es eine Möglichkeit Designtables zu isolieren ohne den Sendkey Befehl ?Die Problematik : Ein OEM schickt Normatielkataloge raus aber ohne die Designtables. Dadurch gibt es ewig lange ladezeiten der modelle weil Catia nach der Documentsuche alles absucht!Die Lösung wäre nun das Modell zu laden und alle Designtables zu isolieren .Sei es nun xls oder txt. Vielleicht weiß jemand ohne den umweg über sendkey eine Lösung !GrüsseAndy
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Designtables isolieren
DanielFr. am 13.02.2010 um 07:50 Uhr (0)
Hallo ,@Andy: Nein mit VBA keine Chance. Es gibt eine CAA Api soweit ich weiß. Aber in CATVba, CTAVbs und CATScript gibt es keine Möglichkeit diese ContextLinks abzufragen bzw. zu isolieren @Norman: kein Problem ------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)
|
| In das Form CATIA V5 Programmierung wechseln |
