|
CATIA V5 Programmierung : Erweiterte Stückliste Blechteile
jdahm am 10.08.2011 um 12:06 Uhr (0)
Kleiner Nachtrag zu meinem Hilferuf:Trotz Fehlermeldung wurde die entsprechende Excel-Ausgabe-Datei richtig erzeugt.Vielleicht reicht es erstmal aus, die Fehlermeldung zu unterdrücken und die nächste Zeile abzuarbeiten.Trotzdem würde mich die Ursache interessieren.------------------GrußJürgen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Produkt Eigenschaften auslesen
K-Volkmann am 22.08.2011 um 10:49 Uhr (0)
Hallo zusammenich habe folgendes Problemwenn ich ein part habe, und unter Eigenschaften/Produkt ("hinzugefügte Eigenschaften) einen neuen Paramter Zeichenkette z.B Kunde anlege, kann ich diesen mit meinem Makro auslesen.Wenn ich nur ein produkt habe und lege dort auch diesen Parameter an, kann ich diesen nicht auslesen.Mache ich wiederum ein Unterprodukt und lege dort den Parameter an liest er mir diesen wieder aus.So wie es aussieht funktioniert das nur beim Hauptprodukt nicht.Kann mir da jemand weiterhel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter aus Produkt Eigenschaften auslesen
meisterlumpi am 22.08.2011 um 15:50 Uhr (0)
das hast du richtig verstanden.So könnte dein code aussehen ohne die schleife durch alle dokumente. hier wird nur das aktive hauptprodukt durchsucht. prodInContext ist das produkt, auf das sich der parameter bezieht.Code:Sub CATMain() Dim i As Integer, m As Integer Dim param1 As String, param1Name As String param1Name = "Kunde" Dim prod As Product Set prod = CATIA.ActiveDocument.Product Dim prodInContext As Product Exel öffnen Dim objXL On Error Resume Next Set objXL = GetObject(, "Excel.App ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Baugruppen-Verdehung feststellen
jdahm am 22.08.2011 um 17:11 Uhr (0)
Das script sieht momentan so aus:Code:Sub Position_Test() Dim objDocuments As Documents Dim objExcel As Object Dim oProduct As Product Dim oSelection As Selection Dim strPartNumber As String Partnumber Dim WB As Workbook Dim intZeile As Integer Dim intI As Integer Dim oAxisComponentsArray(11) Set oProduct = CATIA.ActiveDocument.Product Set objDocuments = CATIA.Documents Set objExcel = CreateObject("Excel.Application") Excel starten Set WB = objExcel.Workbooks.Add objExcel.Applica ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
newmann am 23.08.2011 um 10:19 Uhr (0)
Oooh Held, ooh Held du großer Krieger vor deines Schatten-Angesicht, da knie ich nieder..... etc., etc.doppel, dreifach-supi ..................was lange währt wird letztendlich gut...was soll ich sagen es fuunnzt genau so wie ich es haben möchte..ganz ohne irgendein "gezicke".....kurz perfektDanke dir vielmals.... hast du vielleicht einen Tip für mich wie ich an Lektüre herankomme, da ich feststellen mußte das mein Können/Wissen doch sehr weit hinten steht. Habe bisher nur Excel-VBA gefunden (da sta ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 08:37 Uhr (0)
Guten morgen zusammen,ich habe ein Code zum messen von Koordinaten, man kann das Koordinatensystem beliebig auswählen, leider ist das mit VBscript geschrieben, da meine Kenntnis net soweit sind, wollte ich fragen ob mir jemand helfen kann das in VBA zu konvertieren ??Code:oEingabe = "C: mp"oEingabe = InputBox("Bitte den Dateipfad angeben:", "Eingabe Dateipfad", oEingabe)cDateiPfad = oEingabeoEingabe = "Punktkoordinaten.csv"oEingabe = InputBox("Bitte den Dateinamen angeben:", "Eingabe Dateiname", oEingabe) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Konvertieren in VBA
sawah am 30.08.2011 um 09:37 Uhr (0)
Hallo,irgendwie geht das nicht bei mir, in die zielen unten zeigt ein Fehler:Set oDatei = CATIA.FileSystem.CreateFile(cDateiPfad & cDateiName, False)!!!!!FEHLERSet dStrom = oDatei.OpenAsTextStream("ForAppending")!!!!!FEHLERdStrom.Write ("START" & CHR(10))!!!!!FEHLERdStrom.Write ("Element" & ";" & "X-Koordinate" & ";" & "Y-Koordinate" & ";" & "Z-Koordinate" & CHR(10))!!!!!FEHLERaber eigentlich brauche ich das alles nicht, ich will nur ein Punkt selektieren ein Koordinatensystem selektieren und die Koordinat ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Stückliste
ramonline am 31.08.2011 um 16:49 Uhr (0)
Hallo Experten,auch wenn das Thema in ähnlicher Form schon behandelt wurde habe ich noch keine Lösung zu meinem Problem:Ich habe ein Produkt mit diversen Unterprodukten und einer Menge von Parts.Ich möchte nun für alle Parts jeweils die "Mechanical Properties" auslesen, am besten in Excel.Die "Product Properties" bekomme ich problemlos mit folgendem Makro:-------------------Sub CATMain() Dim i As Integer Dim prod As Product Set prod = CATIA.ActiveDocument.ProductSet objXL = CreateObject("Excel.Applicati ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Multivalueparameter ändern
Pietzonka am 06.09.2011 um 07:37 Uhr (1)
Hallo Bernd!Ich habe mich nicht genau ausgedrückt, bitte um Verzeihung.Da der Aufwand für die umfangreiche Tabelle sehr groß ist, wollte ich sie nach und nach ergänzen.Somit wird die Variable "Zeichenfolge.1", die auf eine gleichnamige String-Variable bezogen ist, eine zunehmende Anzahl Einträge bekommen.Aus der Spalte Zeichenfolge.1 wollte ich mir, eventuell mit vertikaler Scrollbar, die Einträge anzeigen lassen.Dann könnte man bestimmt auch noch den gewünschten Eintrag per Klick auswählen. Davon wollte i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartNumber im Zwischenablage Kopieren
meisterlumpi am 14.09.2011 um 18:30 Uhr (1)
Code:CATIA.ActiveDocument.Selectionbezeichnet ausgewählte objekte in catia und hat gar nichts mit der windows zwischenablage zutun.mit einem verweis auf die Microsoft Forms 2.0 Objectlibrary kannst du folgende sub benutzen um text in die windowszwischenablage zu kopieren.Code:Public Sub SchreibeTextInDieZwischenablage() Dim oData As New DataObject Dim sText As String sText = "Hallo Leute" & vbCrLf & "Neues von Online Excel" With oData .SetText sText .PutInClipboard End WithEnd Subquelle: http://www.onlin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten in Excel schreiben
ChrisMaaa am 21.09.2011 um 16:13 Uhr (0)
Hmm, ne das ist es leider auch nicht. Hab Die Excel 12.0 Object Library, ActiveX Data Objects 6.0 und die ActiveX Data Objects(Mulit-dimensional) 6.0 mal aktiviert. Muss ich meinen Editor neu starten? Wenn ja, hat auch nichts gebracht Mich wundert nur, dass es mal funktioniert hat. Hatte, wie gesagt, einmal zum Test irgendwelche Daten in Excel geschrieben.ChrisMaEDIT: Ich hab in der Hilfe noch folgenden Satz zum Fehler gefunden:"You are trying to use the GetObject function to retrieve a reference to clas ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten in Excel schreiben
K.Siebert am 19.09.2011 um 16:02 Uhr (0)
Hallo ChrisMaaahier mal eben aus meinem Code rauskopiert... Code ...Code: Dim objXL As Object Set objXL = GetObject(, "Excel.Application") objXL.Visible = True Set oAWBook = objxl.Workbooks .Add sInputFile = objXL.Cells(2,2).Value msgbox sInputFile... Code ...hier wird die Tabelle noch mal Angesprochenwenn du das .Add wieder hinzunimmst wird eine neue erzeugt------------------ Sei Schlau bleib Dumm !!?!!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten in Excel schreiben
ChrisMaaa am 21.09.2011 um 11:21 Uhr (0)
Danke dir. Leider immer noch das gleiche Problem. Er erkennt den Befehl irgendwie nicht. Die Fehlermeldung:" Run-time error 429:ActiveX component cant create object"Irgendwas klapt mit dem Getobject nicht. Hab leider bisher keine Ahnung an was es liegt. Muss ich noch irgendwas vorher dimensionieren oder bereit stellen, dass ich die Funktion GetObject aufrufen kann?ChrisMa------------------Ehemals Chrisma, leider Accountdaten nicht mehr abrufbar.
|
| In das Form CATIA V5 Programmierung wechseln |
