|
CATIA V5 Programmierung : Excel-Aufruf wird nicht erkannt
Tim2007 am 12.01.2012 um 11:26 Uhr (0)
Hallo,habe das Problem, dass unter dem "normalen" Macroeditor (Alt+F8) folgendes nicht erkannt wird:Function ErsteZeile()Set programm1 = Excel.ApplicationSet sheet1 = programm1.ActiveSheetsheet1.Cells(1, 1).ActivateActiveCell.Value = "Comment"sheet1.Cells(2, 1).ActivateActiveCell.Value = "Alles"End FunctionMache ich das Gleiche im Microsoft Visual Baisc Editor (Alt+F11) dann geht das und wird ausgeführt?!?!Ist hier was falsch installiert oder ist der "normale" Macroeditor vom Catia so doof? Bitte um Feedb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Excel-Aufruf wird nicht erkannt
DanielFr. am 12.01.2012 um 16:45 Uhr (0)
Hallo Tim,könntest du uns ev. mal die Screenshots von den Fehlermeldungen geben. Wenn du ein Excel-Objekt mittels GetObject erzeugst dann muss auch das ActiveWorkbook instanzierbar sein. Mit dem Excel-Objekt erhälst du zugang zu allen vererbten Objekten und das ActiveWorkbook ist eines davon.------------------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 : Excel-Aufruf wird nicht erkannt
DanielFr. am 13.01.2012 um 07:01 Uhr (0)
Zitat:Ich wette er hat einfach nur das Excel. vergessen. :-)Ist eigentlich gar nicht mal so abwegig.@Tim: Instanzierst du das ActiveWorkbook mit:Set EXCEL = GetObject(,"Excel.Application")Set WB = EXCEL.ActiveWorkbookFalls das Excel Object nicht richtig registriert ist solltest du eigentlich schon Probleme mit dem GetObject bekommen da dieses eine saubere Registrierung ALLES ESSENTIELLEN Komponenten der Applikation voraussetzt------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia: Notizen
anotona am 13.01.2012 um 10:31 Uhr (0)
Zitat:Original erstellt von HoBLila:Geht auch viel einfacher, wieder über die Selection :-) :call selWork.VisProperties.SetVisibleColor (255, 0, 0, 1)Hallo!Um diesen Code nutzen zu können müsste ich aber mein komplettes Programm umschreiben. Oder habe ich da etwas falsch verstanden?
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Excel-Aufruf wird nicht erkannt
Tim2007 am 13.01.2012 um 11:48 Uhr (0)
Hallo,danke schon mal für die vielen Antworten.Der Fehler liegt meistens vor dem Bildschirm, da nehme ich mich nicht aus.Zum einen, weil mir das gesamte Konstrukt in Zusammenhang von Excel und Catia manchmal nicht ganz klar ist, zum anderen, weil man ja auch Schreibfehler macht.Was ich allerdings nicht verstehe, ist, dass - wie schon erwähnt - im (Alt+F11)-Editor manche Dinge anderst sind als im (Alt+F8)-Editor.Die Referenzen zu den Bibliotheken kann ich nur im (Alt+F11)-Editor direkt unter Tools-Reference ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Generate Catpart from Catproduct
rembit am 14.10.2011 um 11:58 Uhr (1)
Hallo,brauche mal wieder euere Hilfe.Habe mit dem Macrorecorder es probiert aber es funktionirt nicht.Will das "Generate Catpart from Product" in das Macro einbinden. Recorderaufnahme:Set specsAndGeomWindow1 = CATIA.ActiveWindow Set viewer3D1 = specsAndGeomWindow1.ActiveViewer Set viewpoint3D1 = viewer3D1.Viewpoint3D Damit komme ich nicht weiter.MitCATIA.StartCommand("Generate CATPart from Product...") ist es schon besser, aber wie kann ich automatisch die Benennung vom Product in das Allca ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia: Notizen
RSchulz am 13.12.2011 um 16:07 Uhr (0)
Hallo und herzlich willkommen im Forum,vorab möchte ich behaupten, dass du im falschen Forum gelandet bist. Hierfür gibt es eigens ein Forum "CATIA V5 Programmierung". Bevor nun aber crosspostings entstehen, warte lieber, bis TBD (der Mod dieses Forums), den Thread verschoben hat respektive vll. mit Link verlinkt und dann hier schließt Ich bitte zumindest einfach mal darum Zu deinem Problem... Vorerst wäre es wichtig, deine Systeminformationen zu erhalten CATIA Release Servicepack und evtl. auch die Hardw ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 10:44 Uhr (0)
Mein neuster Versuch:Code: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern.1") call clamping.CreateMachine("Mfg3AxisMachine") Set oSel = Selection.Add("productJaw") Set upperPlane = oSel.item2(1).ReferenceHier definiere ich ein Objekt oSel, also eine Selection, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro soll im Part und im Produkt laufen...
geekv5 am 16.01.2012 um 13:20 Uhr (0)
Hallo CAMiCADse ^^Dein Code hat leider bei mir nicht funktioniert, aber ein wenig abgewandelt klappt es!Code:CATIA.ActiveDocument.Selection.Search "Type=Teil,in"Was ich allerdings nicht verstanden habe, ist der Code um das ein Produkt oder Part aktiv zu setzen..Code:Set WshShell = WScript.CreateObject("WScript.Shell")wshshell.AppActivate ("CATIA V5")WshShell.SendKeys "c:" & "FrmActivate" & Chr(13),TrueSo wie ich das sehe wird mit "FrmActivate" etwas aktiviert, aber was?MfGCADCAT[Diese Nachricht wurde von g ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 14:07 Uhr (0)
Hallo Bernd,Ich hab mal versucht, ganz von Anfang anzufangen und hab schon gute Fortschritte gemacht:Hier mal ein Makro, in dem ich etwas mit Selections probiere. Dadurch wurde mir einiges klarCode:Sub CATMain() Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear CheckJawGeometry SelectPlanesEnd Subsub SelectPlanes () Dim Jaw Dim Geometrics Dim Geometry Dim oSel Set oSel = CATIA.ActiveDocument.Selection oSel.Clear Set Jaw = CATIA.ActiveDocument.Part.MainBody Set Geometrics = Jaw.GeometricElem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 23.09.2011 um 15:51 Uhr (0)
In der Doku hab ich folgendes gefunden:"Sub SetGeometry(iGeometryType, iReference, iProduct, iPosition) Assigns geometry to a Manufacturing Operation"und als Beispiel:Code:Set Product1 = Setup1.GetProductInstance() Dim Pocketing1 As ManufacturingOperation Set Pocketing1 = Program1.AppendOperation ("Pocketing",1) Pocketing1 .SetGeometry("PartBottom",Plane1,Product1,0)meine Version davon ist nun folgendeCode: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.p ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 09.01.2012 um 11:43 Uhr (0)
Nachdem das Projekt ne Zeit auf Eis lag hab ich die Arbeit wieder aufgenommen. Ich Poste mal den Quellcode und beschreibe, was ich mir dabei gedacht habe. Wäre sehr nett, wenn mich dann jemand berichtigen könnte:Code:Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Obere Ebene einer Taschenfräsen-Operation zuweisen
DaiVied am 16.01.2012 um 10:44 Uhr (0)
Mein neuster Versuch:Code: Set processDocument = CATIA.ActiveDocument Set PPR = processDocument.PPRDocument Set process = PPR.processes.Item("Process") Set clamping = process.GetItem("Aufspannung.1") Set manufacturingProgram = clamping.GetItem("Herstellungsprogramm.1") Set productJaw = PPR.products.Item("jaw_pattern.1") call clamping.CreateMachine("Mfg3AxisMachine") Set oSel = Selection.Add("productJaw") Set upperPlane = oSel.item2(1).ReferenceHier definiere ich ein Objekt oSel, also eine Selection, ...
|
| In das Form CATIA V5 Programmierung wechseln |
