|
CATIA V5 Programmierung : makro in drafting recording
toyo83 am 15.02.2007 um 13:29 Uhr (0)
Zitat:Original erstellt von Augustiner:Servas Macrorecorder doesn´t work in all Workbenches, sometimes Helps a restart of Catia.i did it several times but it dosent work but its there a pasibility to manipulate drawing varaibles with vba. i need some exaple code to go thru this
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Visual Basic 2005 vs. VBA
hagard am 23.02.2007 um 09:44 Uhr (0)
Hallo!Zuerst danke ich Euch.Noch möchte ich Euch auf VB2005 Selection fragen.Dim CATIA as INFTIF.Application= GetObject(,"CATIA.Application")Dim oActDoc as INFTIF.Document= CATIA.ActiveDOcumentdim oSel as INFTIF.Selection= CATIA.SelectionIst diese CODE gut oder nein?DANKE SEHRHAGARD
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abmasstabelle
Bastel01 am 18.08.2004 um 19:04 Uhr (0)
Hallo.Mich würde dieses Script auch interessieren, jedoch weis ichnicht , wie man es zum Starten unter Catia V5R13 bringt?!Was mus ich da tun?Wäre über Hilfe dankbar!!MfGbastel
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Drawing automation with vba or catscript
Augustiner am 27.02.2007 um 10:42 Uhr (0)
If you need Code examples then watch the documention(Automation.chm) ,its in Directory where CATIA is Installed,or use search in forum.You will find enough samples here .And no one will send you Code samples I am sure, even then they will post it here.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rootknoten aktivieren
tomtom1972 am 19.02.2007 um 07:14 Uhr (0)
Hallo Lambo5,was du schreibst ist nicht richtig.Es kann in einer verschachtelten Produktstruktur in der tiefsten Ebene ein Part aktiviert sein (in dem du dich befindest, welches also "blau hinterlegt" ist), und du kannst in der kompletten restlichen Struktur Objekte löschen/anlegen/editieren.Das ein Part/Product "blau hinterlegt" (= aktiviert) sein muss, um mittels Script etwas damit zu machen ist ein Irrtum, den ich im Forum öfter lese. Das ist nur für bestimmte mittels CATIA.StartCommand ausgeführte Befe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rootknoten aktivieren
Lambo5 am 19.02.2007 um 11:22 Uhr (0)
Hallo TomTom,ich durchsuche mit meinem Skript die Produkstruktur nach bestimmten Strings in der Partnumber. Die gefundenen Teile sollen im Anschluss aus der Produktstruktur entfernt werden. Um diese Teile später aber evt. wieder an der richtigen Stelle einzufügen, hinterlege ich im Adapterteil die Information in welcher Subbaugruppe sich das Einzelteil vor dem Löschen befand. Um diese Info in den Adapter zu übertragen, erstelle ich für jedes Product/Part auf Assemblyebene einen Parameter in dem drinsteht, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rootknoten aktivieren
Goosnargh am 27.02.2007 um 14:00 Uhr (0)
Ich hab mir mal ne Lösung gebastelt, aber auch nicht gerade stabil:Sub NeuesProdukt()Dim ToBeClosed As StringCATIA.ActiveDocument.Selection.Add CATIA.ActiveDocument.ProductCATIA.ActiveDocument.Selection.CopyCATIA.ActiveDocument.Selection.ClearDim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim productDocument1 As ProductDocumentSet productDocument1 = documents1.Add("Product")CATIA.ActiveDocument.Selection.Add CATIA.ActiveDocument.ProductToBeClosed = CATIA.ActiveDocument.Product.PartNumberCATIA.A ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro aufrufen
Falk H am 27.02.2007 um 17:16 Uhr (0)
Hallo!Zurzeit schreibe ich in CATIA-VBA an einem komplexen Makro. Aus diesem Grund möchte ich das Programm auf mehrere Makros verteilen. Leider weiß ich nicht, wie ich nicht, wie ich ein anderes Makro (keine *.exe) aus einem Makro aufrufen kann. Ich habe schon überlegt, die Makros jeweils in VB zu kopieren und in *.exe zu kompilieren. Diese müssten dann eigentlich so (Beispiel)CATIA.SystemService.ExecuteProcessus ("C:ProgrammeMicrosoft OfficeOfficeWINWORD.exe")aufzurufen sein.CATIA gibt mir aber die Fehler ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro aufrufen
CAMiCADse am 27.02.2007 um 17:54 Uhr (0)
Hallo Falk,das liegt an dem Leerzeichen im Pfad.Wenn du den Pfad in Hochkommata einschließt, sollte es klappenCode:CATIA.SystemService.ExecuteProcessus ("C:ProgrammeMicrosoft OfficeOfficeWINWORD.exe")GrußCAMiCADse
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro aufrufen
Falk H am 27.02.2007 um 19:33 Uhr (0)
Hallo nochmal!Habe die Lösung:Sub CATMain()Dim wert As DoubleDim SServiceSet SService = CATIA.SystemService unbedingt so machen!!!Dim params(2)params(0) = 1params(1) = 2params(2) = 3wert = SService.ExecuteScript("C:EigeneBibliothek.catvba", catScriptLibraryTypeVBAProject, "EigenesModul", "EigeneFunktion", params)End SubEs ist wichtig, dass man nicht dies eingibt:wert = CATIA.SystemService.ExecuteScript...GrußFalk
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro aufrufen
Falk H am 27.02.2007 um 18:12 Uhr (0)
Danke sehr!Mit Deinem Vorschlag funktioniert es!Aber ich habe noch ein Problem festgestellt. Kann es sein, dass der Befehl: CATIA.SystemService.ExcetuteScript(Pfad)in VBA nicht anwendbar ist?Danke nochmals!GrußFalk
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text insert
toyo83 am 01.03.2007 um 10:28 Uhr (0)
Hello i want to insert a text in a drawing im using this Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.ActiveSheet Dim MyView As DrawingView Set MyView = MySheet.Views.ActiveView Dim MyText As DrawingText Set MyText = MyView.Texts.Add("ComplexText", 0#, 0#)End Subbut id dosent work, the vb editor says that i ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text insert
toyo83 am 01.03.2007 um 12:33 Uhr (0)
hy it works but i have other problem i want to loop thru all texts and if a name of te text field match i want to put there some data from my textbox on a userform. could somone help?? this is the code of the subCode:Sub txt(ByVal desk As String, ByVal id As String, ByVal mat As String, ByVal dat As String, ByVal nam As String, ByVal prod As String)Dim DrwDocument As DrawingDocumentSet DrwDocument = CATIA.ActiveDocumentDim DrwSheets As DrawingSheetsSet DrwSheets = DrwDocument.SheetsDim DrwSheet As DrawingS ...
|
| In das Form CATIA V5 Programmierung wechseln |
