|
CATIA V5 Programmierung : Suche höchste Nummer +1
Esterbauer am 29.12.2017 um 08:55 Uhr (1)
Hallo Danke nochmals für deine HilfeHabe jetzt das Script zusammengeschrumpft.Hätte jetzt noch was.Habe Inputbox eingefügt, jetzt soll der Wert aus der nputbox in einen vordefinierten Parameter im Part übertragen werden, wie könnte das funktionieren.DankeSub CATMain() Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom("H: 5_Catia V5Auswerfer\_auswerfer_rund_.CATPart") Antwort = InputBox("Pos Nr.:","Auswerfer Positi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 15:31 Uhr (1)
Soweit hab ich das hinbekommen.Jetzt soll er noch einen Ordner tiefer und dann (Normteileauswerfer.catpart ) hinzufügen.Wie könnte das sein ? Language="VBSCRIPT"Sub CATMain()Dim targetfoldertargetfolder = CATIA.ActiveDocument.Path (?)MsgBox targetfolderEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
bgrittmann am 02.01.2018 um 15:40 Uhr (1)
ServusWie wäre es wenn du dir mal die Grundlagen zu VB(A) anschaust?Beispiel:Code:Strfolder = CATIA.ActiveDocument.PathStrTargetPath = Strfolder & "Normteileauswerfer.CATPart"Bitte in Zukunft vor dem stellen einer Frage auch mal die Suchfunktion verwenden.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 02.01.2018 um 16:00 Uhr (1)
Hallo,Danke nochmals und sorry für meine Fragen.Da Ergebnis aus Strfolder = CATIA.ActiveDocument.Path = C:PartProduktDa Ergebnis aus StrTargetPath = C:PartProduktNormteileauswerfer.CATPartDa Ergebnis sollte aber eine Ordnerebene tiefer sein = C:PartNormteileauswerfer.CATPartwie kann ich so was machen hab nicht gefunden.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zelle in Excel mit Maus markieren
bgrittmann am 03.01.2018 um 08:54 Uhr (1)
Servus StefanDer Ansatz, dass Application hier CATIA ist hört sich vielversprechend an.Schon mal oExcel.InputBox bzw oExcel.Application.InputBox als Aufruf probiert?Falls die Tabelle als Konstruktionstabelle für das geöffnete Teil angelegt ist könntest du ggf auf den Zugriff auf Excel verzichten und die DesignTable direkt ansprechen (ja nach dem was du vor hast)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Finden einer Kantenverrundung
Jerre95 am 03.01.2018 um 09:02 Uhr (1)
Hallo Zusammen,habe das Makro nun mal im Catia V5-6R26 getestet. Nun funktioniert die Methode oFillet.Radius nicht mehr. Anbei die Fehlermeldung. Mir ist aufgefallen, dass die Funktion Kantenverrundung in der neuen Version anderst aufgebaut ist. Hat jemand eine Idee?------------------Viele Grüße,Jerre95
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körper hinzufügen
Esterbauer am 03.01.2018 um 11:23 Uhr (1)
Das suchen Funktioniert schon mal, aber das Hinzufügen der gefunden Körper bekomme ich einfach nicht hin.Hab unten ein Scriptteil gefunden weis aber nicht was ich da falsch mache. Hat wer einen Tipp für mich !Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = partDocument1.Selection selection1.Search "Name=*Abzugskörper,all"End Sub Dim j As Integer For j = 1 To UBound(aSelectedElements) Set oZPBodies = oZP.ReferenceProd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Speicherpfad auslesen
Esterbauer am 03.01.2018 um 11:25 Uhr (1)
Danke jetzt funktioniert es. Datei Neu aus im Produkthier mein CodeSub CATMain() Strfolder = CATIA.ActiveDocument.Path StrPath = Left(Strfolder, InStrRev(Strfolder, "")) StrTargetPath = StrPath & "Startup\_.catpart" MsgBox StrTargetPath Dim PListe As Products Set PListe = CATIA.ActiveDocument.Product.Products Dim oPartDoc As Document Set oPartDoc = CATIA.Documents.NewFrom(StrTargetPath) Antwort_Pos = InputBox("Beispiel: 100 ", " Positionsummer", "") Zahl = Antwort_Pos If Antwort_Pos = "" The ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stückliste Makro
bgrittmann am 04.01.2018 um 11:05 Uhr (1)
ServusBevor du das Makro an deine Vorgaben anpasst, stelle ich ein paar (auch provokante) Fragen:- warum hast du gerade diese Makro rausgesucht?- hast du auch mal andere Makros hier im Forum angeschaut (Stückliste, BOM, ...)?- hast du dir die Catia-internen Möglichkeiten zur Stücklistengenerierung angeschaut?- wenn du die Unterbaugruppen auflöst, müssten dann nicht die Unterbaugruppen an sich aus der Liste verschwinden (bzw auf 0 gehen)? Sonst wäre es ja doppeltGrußBernd------------------Warum einfach, wen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : instanzen von product bzw. products verfügbar machen
catia5beginervbs am 04.01.2018 um 14:41 Uhr (1)
Moin,ich möchte ab einem bestimmten Knoten im Baum alle Informationen (Partname.Instance Name, Position und Ausrichtung) von Parts auslesen.Das funktioniert aber nicht immer durch selection, ab und zu schlägt die Methode fehl.Es kann also sein das der Knoten in product12 ist, mein Zeil ist die Objekte product und products fur diesen knoten zu definieren.Um den Knoten zu finden mache ich das mit:Set my_selection = my_document.Selectionmy_selection.Clearmy_selection.Search "Name= & MeineSuche & ,all"Set my_c ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : instanzen von product bzw. products verfügbar machen
bgrittmann am 04.01.2018 um 15:01 Uhr (1)
ServusDie Suche läuft stabiler wenn du dieser weiter einschränkst.zB:Code:Sub CATMain()Dim productDocument1 As DocumentDim selection1 As SelectionDim oProduct as ProductSet productDocument1 = CATIA.ActiveDocumentSet selection1 = productDocument1.Selectionselection1.Search "CATAsmSearch.Product,all"for i = 1 to selection1.count2 Set oProduct = selection1.item2(i).value MsgBox "PartNumber: " & oProduct.PartNumbernextEnd SubNach einem bestimmten (Exemplar)Namen dann zBCode:selection1.Search "CATAsmSearch.Pr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : instanzen von product bzw. products verfügbar machen
bgrittmann am 04.01.2018 um 15:48 Uhr (1)
ServusWelche Methode schlägt fehl?So würde eine Schleife aussehen:Code:Sub CATMain()Dim productDocument1 As DocumentDim oRootProduct As ProductDim oProducts As ProductsDim oInstance As ProductSet productDocument1 = CATIA.ActiveDocumentSet oRootProduct = productDocument1.ProductSet oProducts = oRootProduct.Productsfor i = 1 to oProducts.Count Set oInstance = oProducts.Item(i) MsgBox oInstance.PartNumbernextEnd SubAuf dem Makrorekorder kann man sich leider nicht immer verlassen. Deshalb auch immer mal in di ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : parameters2.Item (Pfad?)
Esterbauer am 05.01.2018 um 10:52 Uhr (1)
Hallo,Wie kann ich eine Variabel in parameters2.Item Einbauen ?Der Pfad sollte ich aus den Namen des Aktiven Dokumentes und EigenschaftenBauteil Bezeichnung zusammensetzen.Set strParam2 = parameters2.Item(Name, "EigenschaftenBauteil Bezeichnung")was mache ich falsch ?Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet relations1 = part1.RelationsSet parameters1 = part1.ParametersFullName = CATIA.ActiveDocument.NameName = Left(FullName, InStrRev(FullName, "")-8)MsgBox Name ...
|
| In das Form CATIA V5 Programmierung wechseln |
