|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 17:02 Uhr (1)
Jetzt versuche ich die Blattendung anzupassen, falls sich aufdem Sheet im Backround das entsprechende Deteil befindet.Das Makro erwartet aber einen weiteren Befehl und kein End Sub?!Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oPara = oDraw.ParametersSet oSheets = oDraw.SheetsqSheets = oSheets.CountFor i = 1 To qSheetsIsDetail = qSheets.Item(i).IsDetailIf IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch.DrwDetail.N ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 08.05.2015 um 22:35 Uhr (1)
Hi habe ich bei mir auch immer nur hier muss man es immer manuellnochmal machen. Also ich find den Fehler einfach nicht...Vielleicht habe ich auch wieder was vermischt oder so oOSub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For i = 1 To oSel.Count IsDetail = oSel.Item(i).IsDetail If IsDetail = False Then For s = 1 to oSheets.Count Set active_sheet = oSheets.Item(s) active_sheet.Activate oSel.Search "CATDrwSearch. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 09.05.2015 um 10:35 Uhr (1)
Oh ja des is eindeutig n schnitzer gewesen xDAlso ich rate mich grad nur durch ka. Habe es jetzt umgestellt und jetztkommt ständig eine Fehlermeldung bei If oSel 0 Then oOIst der Suchbefehl vllt falsch?!Code:Sub CATMain() Set oDraw = CATIA.ActiveDocument Set oSheets = oDraw.Sheets Set oSel = oDraw.Selection For s = 1 to oSheets.Count IsDetail = oSheets.Item(s).IsDetail If IsDetail = False Then Set active_sheet = oSheets.Item(s) ac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter_CatDrawing
shoutz000 am 10.05.2015 um 18:33 Uhr (1)
Also ich habe jetzt viele Versionen ausprobiert und das Ergebnis ist immer das selbe. Das Makro läuft eindeutig über die normalen Sheetsdrüber aber es passiert rein gar nichts mit dem Namen.Die Makroaufzeichnung liefert absolut nichts außer wenn ich z.B. inden Backround gehe...Der VB-Editor läuft ohne zu meckern durch...so der Stand:Sub CATMain()Set oDraw = CATIA.ActiveDocumentSet oSheets = oDraw.SheetsSet oSel = oDraw.SelectionqSheets = oSheets.Count For i = 1 To qSheets IsDetail = oSheets.Item(i).I ...
|
| 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 |
|
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 : 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 : 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 : 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 : Nicht geladene Elemente löschen
shoutz000 am 28.05.2015 um 11:10 Uhr (1)
Bin gerade an den Zeichnungen dran und komm nicht weiter...Hab mal des zusammengestümpert :-PMeckert die ganze Zeit rum das der Index i falsch gewählt wurde...er muss zwischen 0 und 1 liegen. Liegt an der -1 aber ohn (-)werden die Skizzen nur selektiert und mehr nicht?!Code:Sub CATMain()Set oDoc = CATIA.ActiveDocumentSet oSel = oDoc.Selection oSel.Search "CATPrtSearch.Sketch,all" For i = oSel.Count To 1 Step -1 Set oSketch = oSel.Item2(i).Value oSel.Delete Set oDocSel = oSel.Item2(i).Document ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 28.05.2015 um 21:50 Uhr (1)
Ich kenn mich mit beidem nicht aus und habe jetzt mal die Collectionversucht. Aber anscheinend ist die nicht definiert... Finde zu beidemaber nicht wirklich etwas hilfreiches...Code:Sub CATMain()Set oDoc = CATIA.ActiveDocument Set oList = New Collection Set oProd = oDoc.Product.Products For Each Sketch in oProd oList.Add Sketch next Set oSel = oDoc.Selection oSel.clear for i = 1 to oList.Count oSel.Add oProd.Item(oList.Item(i)) oSel.Delete If oProd.IsUpToDate=Tru Then CATIA.StartCommand "Un ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 29.05.2015 um 08:13 Uhr (1)
Also ich habe ein CatScript in dem eine Collection ist aber dieist nicht anderst definiert, funktioniert aber?! Aber über die Suchehabe ich auch keine Collection für CatScript gefunden...Bin ich mit der Array auf dem richtigem Weg?! Da sollen jetzt erstmalalle Parts drin sein. Ich habe aber keine Ahnung ob das tatsächlichder Fall ist und gute Beispiele wie man so etwas aufbaut habe ichnicht gefunden...?!Code:Sub CATMain() Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection oArray = Array(PartDocu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
shoutz000 am 29.05.2015 um 09:07 Uhr (1)
Ok ich bin weiter xDCode:Sub CATMain() Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection oSel.Search "(CATProductSearch.Part),all" DocCount = oSel.Count SketchCount = oSel.Count For i = 1 To DocCount ReDim Preserve PartArray(i) Set PartArray(i) = oSel.Item(i).Value Next For i = 1 To DocCount Set Part = PartArray(i) Next oSel.Search "(CATPrtSearch.Sketch),sel" For n = 1 To SketchCount ReDim Preserve SketchArray(n) Set SketchArray(n) = oSel.Item(n).Value ...
|
| In das Form CATIA V5 Programmierung wechseln |
