|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 02.04.2013 um 13:59 Uhr (0)
Hallo ZusammenHabe ein VB Script das mir Werte aus Catia in Excel schreibt.Alles in eine Tabelle funktioniert.Ich möchte aber die Werte auf verschiedene Tabellen in der geöffneten Excel Datei verteilen.Wie spreche ich die Tabellen (Tabell1 , Tabell2 , Tabell3 u.s.w.) an?Hier der Auszug aus meinen ScriptFileName = "C:TempABMESSUNG.xlsx"Dim EXCEL As ObjectSet EXCEL = CreateObject("Excel.Application")EXCEL.Workbooks.Open FileNameEXCEL.Application.Visible = TrueEXCEL.Parent.Windows(1).Visible = True___________ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 03.04.2013 um 11:08 Uhr (0)
Hallo ZusammenHabe mein Programm geändert mit Hilfe vom Jens Hansens Kochbuch.Die Zelle Aktivier das Programm aber beim schreiben in die Zelle mit ActiveCell.Value = "Daten" brich das Programm ab.Ich habe mal das Programm aus dem Kochbuch von Jens Hansen (Punktkoordinaten aus V5 nach Excel) laufen lassen.Leider trägt das Programm auch keine Daten in die Tabelle ein.Eine Fehlermeldung kommt nicht das Programm läuft durch.Kann es sein das es daran liegt das ich mit EXCEL 2007 arbeite?GrußRalf---------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 02.04.2013 um 16:41 Uhr (0)
Hallo BerndDanke für die AntwortAber ich bekomme das nicht hin.Ich bin leider nicht so fit im schreiben von Programmen.Kannst du mir das bitte genauer erklären.Da ich oben schon „EXCEL.Workbooks.Open FileName“ stehen habe rebelliert VB wenn ich dort ein „Set oWorkbook =“ vorsetze.GrußRalf------------------KOBUE
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 04.04.2013 um 11:06 Uhr (0)
Hallo ZusammenAnbei für die Allgemeinheit einige Zusätze die ich noch herausgefunden habe.Vielleicht hilft es ja einigen ._______________Texteigenschaften einer Zelle ändern____________________________________________________EXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Bold = True Schrift FettEXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Size = 15 SchrifthöheEXCEL.WorkSheets.Item(1).Cells(1, 2).Font.Name = "Arial" Schriftfont__________________-Text Ausrichtung in der Zelle ändern______________________ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 02.05.2006 um 10:32 Uhr (0)
Hallo LusilnieGenau das ist es .Ist schon KLASSE wie du hier den Leuten auf die Sprünge hilfst.Noch mal VIELEN DANK!!! Ich Habe das Programm jetzt noch vervollständigt.Es schreibt die Werte in eine Excel Tabelle die unter C:/Temp abgelegt wird.Ich verwende es im Mold Tooling Design um Auswerferlängen (Einbaulänge) auszulesen.Es müssen aber in den Parts die Parameter Auswerferlaenge (Einbaulänge) und Ausdurch für den Durchmesser vorhanden sei.Bis dann------------------KOBUE
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Daten auf verschiebene Tabellen in Excel verteilen
Berges am 03.04.2013 um 13:29 Uhr (0)
Hallo Thomas Danke das ist es gewesen.Deinen Code noch etwas geändert und es läuft.Hier die Änderungen.If PosNr = "000-009,010-099,100-199" ThenTabelle = 1End IfIf PosNr = "199,201-299" ThenTabelle = 2End IfIf PosNr = "299,301-399" ThenTabelle = 3End IfIf PosNr = "399,401-499" Then Tabelle = 4End IfIf PosNr = "499,500-599" Then Tabelle = 5End IfEXCEL.Worksheets.Item(Tabelle).Cells(N, 3).Value = EXCELAbmasseEXCEL.Worksheets.Item(Tabelle).Cells(N, 1).Value = PosNrEXCEL.Worksheets.Item(Tabelle).Cells(N, 2).Va ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Länge aus zwei Setten nach dem Komma
Berges am 11.12.2012 um 11:30 Uhr (0)
Hallo BerndAnbei mein Script.Sub CATMain()Dim productDocument1 As documentSet productDocument1 = CATIA.ActiveDocumentDim Name As StringDim Name01 AS StringDim oParameter As StringDim oParameterArray()Dim length1 As ObjectDim length2 As ObjectDim selection1 As selectionSet selection1 = productDocument1.selectionDIM PAName AS StringDim N As DocumentCATIA.DisplayFileAlerts = FalseSet filesys = CATIA.FileSystemN = 1selection1.Search "CATProductSearch.Part,all"Dim Imax As IntegerImax = selection1.CountReDim oPa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Farbe von Masszahlen ändern
Berges am 10.07.2009 um 13:56 Uhr (0)
HalloIch habe mir mal vor einiger Zeit ein Makro geschrieben mit dem ich die Farbe von einem Drafting ändere und diese dann als DXF und DWG Speicher.Jetzt braucht ein Kunde aber die Masszahlen in Rot.Wie kann ich die Masszahl im Makro ansprechen und die Farbe ändern.Language="VBSCRIPT"Sub CATMain()folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","D:Datenin",500,1000)folderoutput = InputBox ("Bitte das Zielordner eingeben","Eingabe","D:Datenout",500,1000)Dim fs, f, f1, fc, s Set fs = C ...
|
| In das Form CATIA V5 Programmierung wechseln |
Product1.zip |
CATIA V5 Programmierung : Datei umbenennen und sichern
Berges am 21.08.2012 um 15:32 Uhr (0)
Hallo ZusammenIch habe ein Script geschrieben welches in einem Product nach Schrauben mit der Bezeichnung DIN 912 sucht.Dann wird der Parameter der Schraube gelesen und der Name des Parts umbenannt.Nun soll das Part unter dem Neuen Namen (DIN912_M8x20)abgespeichert werden.Das funktioniert auch soweit nur das ich immer wieder bestätigen muss dass die Datei überschrieben werden soll.Ich habe schon versucht abzufragen ob die Datei existiert aber mit meinen bescheidenen Kenntnissen bekomme ich das nicht hin.De ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy ändern im Hintergrund
Berges am 08.07.2013 um 08:51 Uhr (0)
Hallo BerndDanke für deine Antwort.Leider ändert sich nichts wenn ich CATIA.RefreshDisplay = false in das Programm einbinde.Muss ich noch etwas anderes berücksichtigen?GrußRalf------------------KOBUE
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy ändern im Hintergrund
Berges am 08.07.2013 um 09:45 Uhr (0)
Hallo BerndIch nochmal.Kann es ein das CATIA.RefreshDisplay unter VBA nicht funktioniert?Habe dieses hier gefunden.http://ww3.cad.de/foren/ubb/Forum137/HTML/004664.shtml#000008GrußRalf------------------KOBUE
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PowerCopy ändern im Hintergrund
Berges am 11.07.2013 um 11:58 Uhr (0)
Hallo zusammen,Habe jetzt die BefehleCATIA.Visible = False CATIA.Visible = TrueEingebunden.So habe ich wenigstens die Fenster nicht.Danke noch mal für Eure HilfeGrußRalf------------------KOBUE
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterausgabe im Product
Berges am 27.04.2006 um 18:08 Uhr (0)
HalloHabe mein Script noch mal geändert da ich aus dem Part was den Parameter Auswerferlaenge hat weitere Parameter ausschreiben möchte.Dieses funktioniert auch soweit bis ein Part kommt was diesen Parameter nicht hat.Wie kann ich das Part abfragen ob dieser Parameter vorhanden ist und dann eine If Schleife starten kann.Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim Name As StringDim oParameter As StringDim length1 As StringDim selection1 As SelectionSet selecti ...
|
| In das Form CATIA V5 Programmierung wechseln |
