|
CATIA V5 Programmierung : Hilfe mit makro.
xyon126 am 07.11.2011 um 10:39 Uhr (0)
Hallo! Verzeihen Sie meine Sprache ist Deutsch, aber sehr schwierig für mich, obwohl ich zu benutzen, wann immer ich kann es versuchen.Wenn möglich Ich mag würde, um sie in einem Makro helfen, ich habe ein Makro "Parts" und es funktioniert perfekt und ich will es rekursive von einem "Produkt" ausführen und die Antwort aller Teile eines einzigen Klick. Das Makro funktioniert extrahieren einen String in die Datei benennen und speichern auf dem Grundstück "Definition" ersetzt das "_" für Punkte. Das Prob ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hilfe mit makro.
xyon126 am 07.11.2011 um 12:21 Uhr (0)
Hello R. Schulz! Thank you for your prompt response. on the language used, the Spanish do not have much facility with languages (problems of basic education) and is the same English or German.On the macro, the first works for me perfectly, does the following:Filename: 2172D_10_010_000__00___BG_ATORNILLADO_ADAPTER_MHS_29102011.CATPartdraws the string "10_010_000" translates to "10.010.000" and writes it to the window "Properties Product Definition".For this I want to do from a product that has several Pro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
xyon126 am 06.03.2012 um 23:35 Uhr (0)
Hallo Jungs! Ich möchte ein Makro, um Kugeln in allen vorhandenen Punkte einfügen, wie man es an einer Stelle zu tun, aber nicht, wie man alle Elemente auszuwählen und eine Kugel an jedem Punkt zu machen. Können Sie helfen?Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridB ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Fehler 1002
xyon126 am 26.06.2012 um 22:45 Uhr (0)
Hallo Freunde! Ich habe ein Problem. Ich möchte die Stücke eines Produkts am Ende der .0001 der erste, .0002 Name des Baumes, usw, usw. Anzahl aber ich bekomme Fehler 1002 in Zeile 44. Können Sie helfen Bitte und um Vergebung für mein Deutsch.GrußCode:Sub CATMain() Crear objeto, Documento. Dim tmpDoc As Document Dim index as Integer Dim numero As String index = 1000 numero = ".000" Seleccionar todos los documentos abiertos. For Each tmpDoc In CATIA.Documents Modificar solo Parts y Products ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Fehler 1002
xyon126 am 28.06.2012 um 07:29 Uhr (0)
hallo Rick! Ich veränderte den Code für mich die Teilenummer zu benennen, aber meiner Überraschung ist, dass wenn ein Produkt drei gleich große Stücke sie umbenennen, um mich dreimal mit diesem Ergebnis Beispiel. T1234.0001.0002.0003 wenn ich brauche, ist, dass nur einmal berühmtes Beispiel. T1234.0001, T456.0002 usw. Wie kann ich es beheben?Code:Sub CATMain() Dim tmpDoc As ProductDocument Dim ChildDoc As Document Dim index As Integer Dim numero As String Dim i As Integer Set tmpDoc = CATIA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Filename wie Partnumber ohne 3 lezter
xyon126 am 23.08.2012 um 15:54 Uhr (0)
Serbus Bernd!Ich änderte den Code, um Ihre Linie und wenn ich richtig verstanden habe, funktioniert nicht:Neue Code:Option ExplicitSub CATMain() On Error GoTo 0 Dim oRoot As Document Set oRoot = CATIA.ActiveDocument Dim oProduct As Product Set oProduct = oRoot.Product Dim oProducts As Products Set oProducts = oProduct.Products Dim strOldName As String Dim strNewName As String strOldName = oRoot.Name strNewName = Replace(strOldName, ".CATProduct", "") oProduct.PartNumber = strNewName Recurs ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Filename wie Partnumber ohne 3 lezter
xyon126 am 23.08.2012 um 13:48 Uhr (0)
Hallo! Ich versuche, eine rekursive Makro benenne ich alle ein Produkt partNumber seinem Dateiname zu machen, sondern die Beseitigung der letzten 4 Zeichen, aber mach mich nicht falsch auf dieser LiniestrNewName = Replace(strOldName, ".CATProduct", "")strNewName2 = Right(strNewName.Name, 15) ..... Können Sie mir helfen?Das ist code komplet:Option ExplicitSub CATMain() On Error GoTo 0 Dim oRoot As Document Set oRoot = CATIA.ActiveDocument Dim oProduct As Product Set oProduct = oRoot.Product ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Filename wie Partnumber ohne 3 lezter
xyon126 am 23.08.2012 um 16:48 Uhr (0)
Hallo Bernd! Vielen Dank für deine Hilfe ich habe die Fehler bekommt und jetzt funzioniert Gutt ich sende der Code ob jemand braucht auch.Vielen Dank.Code GUT:Sub CATMain() On Error GoTo 0 Dim oRoot As Document Set oRoot = CATIA.ActiveDocument Dim oProduct As Product Set oProduct = oRoot.Product Dim oProducts As Products Set oProducts = oProduct.Products Dim strOldName As String Dim strNewName As String strOldName = oRoot.Name strNewName = Left(strOldName, len(strOldName) - len(".CA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros nicht nach Windows-Version arbeiten
xyon126 am 27.08.2012 um 13:13 Uhr (0)
Hallo Ritz! Vielen Dank für Ihre Antwort, Makros von verschiedenen Typen sind, CatScript, CatVBA und Catvbs, ich habe die. NET 2005pro und 2010Start (für testen) installiert ist, was Sie sagen, ich bin fehlende Paket? Ist Windows oder Catia?.M.f.G.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros nicht nach Windows-Version arbeiten
xyon126 am 28.08.2012 um 10:01 Uhr (0)
Hallo Rick!Ich verstehe, was Sie sagen, aber ich nicht verstehe, ist, dass der Laptop ich es installiert auf dem PC daselbe CATIA; ein mit XP und dem PC mit W7, VB.net 2005 und 2010 und XP habe ich das gleiche VB.net 2005 und VB6.0 von Microsoft, warum XP und W7 funktionieren, wenn in der Theorie die gleiche nur, dass die XP auf W7 VB6.0 und VB.net 2010?M.f.G.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro para ejecutar CATScript
xyon126 am 17.09.2012 um 20:21 Uhr (0)
Hallo Bernd! Danke für den Link, ich wäre perfekt. Ich bewarb mich für das rekursive Makro gibt mir Fehler, aber könnten Sie mir helfen und mir sagen, es funktioniert nicht?Das ist mein code rekursive:Code:Sub CATMain() create document object Dim tmpDoc As Document Dim EmptyPar() Dim ScPath ScPath = "A: 1_CLIENTES 3_PRAE-TRADE 4_Proyectos 2_PLATAFORMA HTP C919 2_PROYECTOMACROS" each opened document should be selected For Each tmpDoc In CATIA.Documents only parts and products should be chang ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro para ejecutar CATScript
xyon126 am 18.09.2012 um 09:54 Uhr (0)
Hallo Bernd! Nun, wenn ich völlig verpasst, diese Zeilen Code, in dem man gehen sollte? Beispiel: Wenn ich das richtig verstandencomac_part.CatscriptCode:Sub CATMain()Dim PartNa as stringPartNa = "XXXXX"Dim ID As IntegerID = 0Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = partDocument1.GetItem("part_number")Dim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodies Dein codeSet hybridBodies1 = part1.HybridBodies De ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ändern makro für CATProduct
xyon126 am 19.09.2012 um 13:03 Uhr (0)
Hallo! Ich habe versucht, mehrere Möglichkeiten, aber ich kann das nicht rekursive Makro, mir von einem CATPart CATProduct statt, können Sie helfen?Code:Sub CATMain()Dim PartNa as stringPartNa = "XXXXX"Dim ID As IntegerID = 0Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = partDocument1.GetItem("part_number")Dim part1 As PartSet part1 = partDocument1.PartDim IDName As String Set partDocument1 = CATIA.ActiveDocument Set product1 = par ...
|
| In das Form CATIA V5 Programmierung wechseln |
