|
CATIA V5 Programmierung : Aktive Excel speichern
shoutz000 am 10.07.2014 um 17:25 Uhr (1)
Kann es sein das dieser Sub komplett übersprungen wird?!ich habe über ein Makro die ZeileDim Name As StringName = currentprod.PartNumbergeprüft es wurde mir zurück gegeben das es diesen Befehl nicht gibt.Name = currentprod.Name funktioniert.Aber im Stücklistenmakro kommt bei beiden Varianten keine Fehlermeldung?!nur bei NewBook.SaveAs FileName := fName kommt auch im Stücklistenmakro ein Fehler...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stückliste Makro
shoutz000 am 30.08.2013 um 08:38 Uhr (1)
So läuft wieder alles im Geschäft.Also das mit der Recursiven suche ist ja schön und gut aber wie gesagt ich kenn mich damit null aus. Kann HTML von früher noch ja, ich versteh auch einzelne Passagen oder kann erahnen wofür sie gut sind. Aber ich bin schon stolz das ich überhaupt das obige Makro hingebastelt bekommen habe. Dh. erst BOM aufrufen und dann die restlichen Parameter einlesen lassen klingt gut... aber wie?!?! Momentan bastel ich Schnipselchen zusammen und freu mich jedesmal wenn eine Zeile durc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 01.06.2015 um 06:57 Uhr (1)
Also ich habe jetzt des ganze We mit dem Editor rumgemacht undversucht mich da mal rein zu arbeiten. Die Hilfe mit der Arrayist nur teilweiße aufschlussreich...In einander verschachteln parts in array dann ein part raus dann sketchesin die nächste array usw... ich versuchs zwar aber wirklich weiter gekommenbin ich mit dem editor trotzdem nicht... So der aktuelle Stand:Bei Fett gibts jeweils Fehler?!Code: Public PartArray() Public SketchArray()Sub CATMain() Set oDoc = CATIA.ActiveDocument Set oSel = oDo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 16.05.2015 um 00:46 Uhr (1)
Die Catia Hilfe steht mir nicht zur verfügung.Soweit ich weiß kann ein Makro nicht in einem Check gestartet werdendas geht nur in einer Rule.Bisher habe ich noch nichts sinnvolles gefunden...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 14:12 Uhr (1)
Soooo jetzt funzt es xDSub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSel = oDraw.SelectionCATIA.HSOSynchronized=FalseoSel.Search "CATDrwSearch.DrwText.Name=Kanten, all"For n = 1 to oSel.CountSet oText = oSel.Item(n).ValueoText.Text = "Edges Broken"NextoSel.ClearCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 11:45 Uhr (1)
ich stell mich zu blöd an oOich suche so nach den Textfeldern und nichts passiert?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentCATIA.HSOSynchronized=FalseSet oSel = oDraw.SelectionFor i = 1 To oSel.CountoDrawText = oSel.Item(i)If oDrawText.Name = Kanten ThenoDrawText.Text = ("Edges Broken")End IfNextCATIA.HSOSynchronized=TrueEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Allgemein : Strukturbaum nach Alphabet sortieren?
shoutz000 am 09.04.2016 um 10:30 Uhr (1)
Hi joehz,den Aufruf der .exe. habe ich umgeschrieben, da er nur unter 32bit lief. So läuft er nun auch unter 64bit: Private Const SW_SHOWNORMAL As Long = 1 Private Const SW_SHOWMAXIMIZED As Long = 3 Private Const SW_SHOWDEFAULT As Long = 10 Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDir ...
|
| In das Form CATIA V5 Allgemein wechseln |
|
CATIA V5 Programmierung : Stückliste Makro
shoutz000 am 26.08.2013 um 10:33 Uhr (1)
Ok vielen Dank an euch alle.Ich kann leider zur Zeit kein Feedback geben da bei mir im Geschäft seid letzter Woche Mittwoch der Server ständig abkackt und net funzt. Heute hieß es er tut wieder... ok die Laufwerke werden alle angezeigt aber Catia geht nicht auf und fast alle Projektdaten fehlen. Ich werde mal alles ausprobieren wenn wieder alles läuft und melde mich dann zurück.Gruß Frank
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 29.05.2015 um 10:48 Uhr (1)
Zu den ungeladenen Elementen. Also ich bekomm jetzt die Anzahl dieserElemente ausgegeben, aber wie lösche ich diese?Code:Sub CATMain() Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection Set oDelete = oDoc.Product.Products oSel.Search "(CATProductSearch.Product),all" For i = oSel.Count To 1 Step -1 Set oElement = oSel.Item2(i).Value On Error Resume Next If oElement.PartNumber=IsError Then oDelete.Add i End If On Error GoTo 0 Next oSel.Clear MsgBox oDelete.CountEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 27.05.2015 um 21:14 Uhr (1)
Mein Makro läuft unter CatScript. So funktioniert es auch:Code:Sub CATMain()Set oDoc = CATIA.ActiveDocumentSet oSel = oDoc.Selection oSel.Search "(CATProductSearch.Product),all" For i = oSel.Count To 1 Step -1 Set oElement = oSel.Item2(i).Value On Error Resume Next If oElement.PartNumber=IsError Then oSel.Remove i End If On Error GoTo 0 NextMsgBox oSel.CountEnd SubAber so sind jetzt alle Elemente selektiert welche in Ordnung sind. [Diese Nachricht wurde von shoutz000 am 27. Mai. 2015 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 12.05.2015 um 17:07 Uhr (1)
Was meinst du mit manueller suche?!Wenn ich aufzeichnen lass und zum den Namen unter Properties änderedann kommt nur sowas:Code:Language="VBSCRIPT"Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocumentSet drawingSheets1 = drawingDocument1.SheetsSet drawingSheet1 = drawingSheets1.Item("Details")drawingSheet1.Activate Set drawingViews1 = drawingSheet1.ViewsSet drawingView1 = drawingViews1.Item("A0-Brennteil-Stempel")drawingView1.Activate Set drawingSheet2 = drawingSheets1.Item("Blatt_011")drawingSheet2.Act ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 24.05.2015 um 12:36 Uhr (1)
Servus miteinander,mich plagt mal wieder ein Problem Ich schreibe gerade ein Makro welches mir alle unbenötigten Elementeeiner Productstruktur löschen soll, was bisher auch wunderbarfunktioniert. Aufbau ist wie folgt:Product wird geupdatetAlle defekten Constraints werden gelöschtAlle defekten Formeln werden gelöschtAlle Linien, Punkte, Kurven usw. ohne Kinder werden gelöschtMeldung an User was alles gelöscht wurde und wie viele jeweilsEs wird nochmals nach defekten Constraints gesuchtFalls ein Fund vorhan ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 11.05.2015 um 16:09 Uhr (1)
Ich habe es jetzt mal so geprüft und es wird definitiv keinekomponente gefunden...Code:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = oSheets.Item(i).IsDetailIf IsDetail = False Then Set active_sheet = oSheets.Item(i) oSel.Clear osel.add active_sheetoSel.Search "CATDrwSearch.DrwDitto.Name=A0-Brennteil-Stempel*, sel"If oSel.Count 0 ThenRetCode = MsgBox( "Fund")End IfoSel.Search "CATD ...
|
| In das Form CATIA V5 Programmierung wechseln |
