|
CATIA V5 Programmierung : Messung Löschen
cmb am 02.08.2010 um 17:16 Uhr (0)
Hallo Forum,ich möchte gerne aus einer TemplateDatei eine Messung herauslöschen.Diese hat immer den Namen "Ueberlaufvolumen"mein Code:Sub CATMain()Dim oPart As PartDocumentSet oPart = CATIA.ActiveDocument For i = 1 To oPart.Part.Parameters.Count Dim oPara As Parameter Dim selection1 As Selection Set oPara = oPart.Part.Parameters.Item(i) If oPara.Name Like "*Ueberlaufvolumen*" Then oPara.Delete selection1.Add (oPara) Objekt unterstützt diese Methode nicht End If Next ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA ExecuteScript in VBA
cmb am 05.07.2010 um 10:03 Uhr (0)
Hallo Forum,bekomme einen VBA Aufruf aus VBA heraus nicht gebacken.Mein Script arbeitet problemlos wenn ich ein CATScrip aufrufe:Sub CATMain()Dim SServDim ScriptName As StringDim FunctionName As StringDim Params() As Variant Set SServ = CATIA.SystemService LibPath = "S:CATIAAllgemeinMacros" ScriptName = "test1.CATScript" FunctionName = "CATMain"Call SServ.ExecuteScript(LibPath, catScriptLibraryTypeDirectory, ScriptName, FunctionName, Params)End SubWenn ich eine VBA habe ist der Path der gleicheScriptna ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : View einblenden ( Show)
cmb am 06.07.2010 um 11:17 Uhr (0)
Hallo Forum,ich möchte gerne explizit eine View ins Show / NoShow stellen.Der Recorder würde ein VisPropertySet aufnehmen.Kann ich meine View zu einem Set dazu addieren?(Ich möchte meine Views später einmal rekursiv durchlaufen.)Mein Code:Sub CATMain()Dim oDoc As DocumentSet oDoc = CATIA.ActiveDocumentSet oSheets = oDoc.SheetsSet oSheet = oSheets.Item(1)Set oViews = oSheet.ViewsDim myviewSet myview = oViews.Item(3)myview.GetViewName MyPrefix, MyIdent, MySuffix Dim Selection, VisPropertySet Set Selection = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : DrawingView Position?
cmb am 11.08.2010 um 11:48 Uhr (0)
Hallo,ich hatte ein ähnliches Problem.Alle Views sollen in X Richtung auf den Wert 50mm gesetzt werden.Hier mein Script, vielleicht hilft es ja mal jemandenGrußNorbertSub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("k")Dim drawingViews1 As DrawingViewsSet drawingViews1 = drawingSheet1.ViewsDim AktivView As Draw ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Catdrawing loeschen
cmb am 15.11.2010 um 16:18 Uhr (0)
Hallo Forum,ich möchte gerne aus einer CatDrawing meine Parameter löschen.Im Forum habe ich die Aussage gefunden, das dieses nur über eine Selection funktioniert.Ich habe zum Löschen von 3D Parametern u.a. http://ww3.cad.de/foren/ubb/Forum137/HTML/004352.shtml gefunden .Leider erzählt mir meine Catia immer, das der Befehl search oder delete nicht zulässig ist. Anscheinend funktioniert das nur mit 3D Parametern.Da ich unter DrawingDocument.Parameters meine Parameter deklarieren kann, müsste mann diese doch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Catdrawing loeschen
cmb am 16.11.2010 um 10:44 Uhr (0)
Hallo Daniel,vielen Dank für das Feedback. Nachdem ich gestern den ganzen Nachmitttag rumgemacht habe hat es heute morgen binnen einer halben Stunde geklappt. Mein Code:Code:Sub CATMain()Dim oDoc As DrawingDocumentSet oDoc = CATIA.ActiveDocumentDim selDrwDitto As SelectionDim oParameter As parameterDim I As IntegerFor I = 1 To oDoc.parameters.CountSet oParameter = oDoc.parameters.Item(I) Set SelectList = CATIA.ActiveDocument.Selection SelectList.Clear SelectList.Add oParameterEnd IfNextSelectList.DeleteEnd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : save 2D like 3D
cmb am 31.01.2011 um 11:40 Uhr (0)
Hallo,ich habe mir mit Hilfe des Forums ein Script angepasst, welches bei einer DateiNeuAus Funktion die Zeichnung unter dem Gleichen Namen wie das Mutterelement speichert.Ich lese mit diesem Strings mein Part/Product aus und extrahiere die benötigten Daten :Dateipfad = drawingView1.GenerativeBehavior.Document.ReferenceProduct.Parent.PathName = drawingView1.GenerativeBehavior.Document.ReferenceProduct.Parent.NameBei ca 2 von 10 mal in denen das Macro läuft erhalte ich eine Fehlermeldung : Die Methode Docum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : save 2D like 3D
cmb am 01.02.2011 um 17:26 Uhr (0)
Hallo Forum,Vielen Dank für die Tipps.Habe mein Script dahingehend geändert, dass wenn er eine View mit dem String "Vor" findet er diese aktiv macht. Wenn es keine solche View gibt, darf man eine auswählen.Scheint zu funktionieren.GrußNorbertCode:Dim oSelDim oDocument As DocumentDim drawingSheets1 As DrawingSheetsDim drawingSheet1 As DrawingSheetDim drawingViews1 As DrawingViewsDim drawingView1 As DrawingViewSub CATMain()Set oDocument = CATIA.ActiveDocument If TypeName(oDocument) = "PartDocument" Then ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part update
cmb am 22.04.2010 um 16:40 Uhr (0)
Hallo,ich möchte gerne in einem Assembly ein einzelnes Part aktivieren + updaten. Das aktivieren funktioniertAuszug:If param40_neu = 500 Then aktivieren Stift angefraesst Set product3b = products40.Item(param01) Set products3b = product3b.Products Set product4b = products3b.Item(param40_neu&"_a") hier wähle ich den Exemplarnamen des CatParts aus product4b.ActivateDefaultShape funktioniert aktiviert den Knoten meines Catia Parts product4b.Update funktioniert nichtbeim Aufnehmen der Updatefunktion n ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
cmb am 30.09.2011 um 13:58 Uhr (0)
Hallo Forum,ich habe in meiner Catia Sitzung ein CATProduct (active Document) und ein Part geöffnet.Nun möchte ich durch eine selektion einen Replace machen.Das zu ersetzende Part kann ich auswählen das funktioniert.Aber die zweite selektion bringe ich nicht zum laufen. Muss ich die selektion in ein Array übergeben?GrußNorbertCode:Sub CATMain() Dim oDocs As Documents Dim oDoc As Document Dim oProd As Product Dim oSel As Object Dim aAuswahlFilter(0) Dim Status As String Dim oPartNeu As Document Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rename Publication ( Veröffentlichung umbenennen)
cmb am 06.10.2011 um 15:21 Uhr (0)
Hallo Forum,es gibt zu diesem Thema schon einige Treads , eine Lösung dazu habe ich aber leider nicht finden können.Ich möchte meine Veröffentlichungen überprüfen und die Umlaute eliminieren. Das wäre mein Ansatz:Code:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i).Valuation MyString = ref1.DisplayName ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : body Name auslesen
cmb am 14.12.2011 um 15:23 Uhr (0)
Hallo Bernd,vielen Dank für die Info das soll laut Hilfe ja funktionieren aber ich bringe es nicht zum laufen: Code:Sub CATMain()Set oDoc = CATIA.ActiveDocumentSet oPart = oDoc.PartSet Koerper = oPart.BodiesDim iSel, iStatus, sFilter(0)Set iSel = CATIA.ActiveDocument.SelectionsFilter(0) = "Body"iStatus = iSel.SelectElement3(sFilter, "Part selektieren / ESC bei keine Auswahl", False, CATMultiSelTriggWhenSelPerf, False)If iStatus = "Normal" Then Else MsgBox "Abbruch(Cancel) der Auswahl", vbOKOnly + vbCriti ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : body Name auslesen
cmb am 15.12.2011 um 11:39 Uhr (0)
Hallo Bernd,vielen Dank für deinen Hinweis, das war die Lösung. Sollte jemand ähnliche Probleme haben s.u.Gruß NorbertCode:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String Dim part1 As Part Set part1 = oDoc.Part Dim relations1 As Relations Set relations1 = part1.Relations Dim para1 As Parameters Set para1 = oProd.UserRefPropertiesloeschen der Vorhandenen User ...
|
| In das Form CATIA V5 Programmierung wechseln |
