|
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 |
|
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
bgrittmann am 29.05.2015 um 11:14 Uhr (1)
ServusFalls du nur in der obersten Ebene der Baugruppe suchen willst geht es auch so.Code:Sub CATMain() Dim oDoc As ProductDocument Dim oSel As Object Dim oProducts As Products Dim oProduct As Product Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection Set oProducts = oDoc.Product.Products oSel.Clear For Each oProduct In oProducts On Error Resume Next If IsError(oProduct.PartNumber) Then oSel.Add oProduct End If On Error GoTo 0 Next MsgBox oSel.Count oSel.delEnd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
imation1999 am 29.05.2015 um 11:19 Uhr (1)
...oder so: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 x = oElement.PartNumber if Err.Number = 0 then oSel.remove i On Error GoTo 0 end if Next oSel.delete End Sub
|
| 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 : VBA-Projekt Entry Point
Yizzy am 02.06.2015 um 14:18 Uhr (1)
Wir sitzen in Niederbayern Regensburg-Dingolfing.Werde das jetzt allerdings erstmal einen Dienstleister anbieten. Bevor ich da selber etwas weiter probiere. Hatte auch schon unseren Support (Die Firma die die Lizensen verwaltet und ansich Probleme bei Catia behebt) gefragt. Nur die meinten die "können" das nicht.Grüße Yizzy------------------Inkompetenz muss mit Inkompetenz kompensations Kompetenz kompensiert werden.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA oder .NET?
Stovyye am 07.06.2015 um 18:17 Uhr (9)
Kann jemand ein Beispiel FORM für .NET zeigen? Ich habe alle References selektiert aber passiert nichts in CATIAIch möchte Z.B. Add new File in CATIA ------------------Serg
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA oder .NET?
Stovyye am 07.06.2015 um 19:03 Uhr (1)
Public Class TITI Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim CATIA As New Object CATIA = GetObject(, "CATIA.Application") Dim documents1 As Documents documents1 = CATIA.Documents Dim partDocument1 As Document partDocument1 = documents1.Add("Part") End SubEnd Class------------------Serg
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Flächen per VBA abtasten
cscp am 12.06.2015 um 10:21 Uhr (1)
Hi,noch eine Frage zum Thema CATIA VBA Ist es möglich eine Fläche per VBA "abzutasten". Ich habe praktische eine Oberfläche eines Parts selektiert und möchte diese Form analysieren und aus CATIA exportieren. Irgendeine Idee? Danke für die Hilfe und viele Grüße!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme mit veröffentlichten Power Copys
Thomas-V am 12.06.2015 um 12:51 Uhr (1)
Hier schon mal ein wenig Code:Sub CATMain() Dim CATIA As Object CATIA.StartCommand ("UID_v0/File/T:TestTest.catalog?type=catalog|Test /PowerCopy/3 inputs|TestPowerCopy")End SubAber wie gesagt der Fehler tritt auch auf wenn einen Shortcut in einer Werkzeugleiste erzeuge.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme mit veröffentlichten Power Copys
Thomas-V am 12.06.2015 um 12:58 Uhr (1)
Entschuldigung kleiner Copy/Paste fehler...Sub CATMain() CATIA.StartCommand ("UID_v0/File/T:TestTest.catalog?type=catalog|Test /PowerCopy/3 inputs|TestPowerCopy")End SubDie Deklartion hatte da nichts zu suchen
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Probleme mit veröffentlichten Power Copys
Thomas-V am 12.06.2015 um 12:15 Uhr (15)
Weil ich neu hier bin, erst einmal einen Guten Tag an alle Forums-Mitglieder aus Osnabrück! Zurzeit schreibe ich meine Masterarbeit im Bereich der Makro-Programmierung für CATIA. In einer meiner Aufgaben soll ich eine Oberfläche programmieren die schnell und bequem eine Auswahl von Power Copys und ein paar Informationen zu den selbigen bereitstellt. Da ich Anfänger in der Programmierung bin habe ich mich nach Literatur-Recherche und Suche hier im Forum dazu entschieden meine Aufgaben mit CATVBA zu lös ...
|
| In das Form CATIA V5 Programmierung wechseln |
