|
CATIA V5 Programmierung : Hinterlegte Materialien aus der Struktur löschen.
ptit.tom am 05.12.2013 um 11:45 Uhr (1)
Ich würde ein paar MsgBox einbauen, um zu sehen wo das Makro Zeit benötigt:- ist es die Suche nach Materialen ?- ist es das Speichern in einem Collection-Objekt- ist es das Löschen ?CATIA.HSOSynchronized auf False setzen kann helfen. Es werden viele Operationen mit Selektion gemacht. Nur daran denken, das Makro nicht aus der VBA-Umgebung zu starten (sondern mit geschlossene Entwicklungsumgebung, über Alt+F8 und Run). Sonst wird es ignoriert.[Diese Nachricht wurde von ptit.tom am 05. Dez. 2013 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Filename des aktiven Parts
ptit.tom am 12.05.2015 um 14:21 Uhr (1)
Hallo,Ich habe es so gelöst: in deinem Makro nimmst du ein Argument und benutzt die Selektion um das Part zu finden. Nachträglich ist es relative einfach auf die Dateinamen zu landen.Code:Function GetPartFromObject(oObject As AnyObject) As Part Dim cSel As Selection Set cSel = CATIA.ActiveDocument.Selection cSel.Clear cSel.Add oObject Set GetPartFromObject= cSel.FindObject("CATIAPart")End FunctionSpäter kann man die Argumente des Makro so aufrufen:`RelationsVB Scripts.1Netz_Aus`.Run(MyObject)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter Range (Max, Min)
ptit.tom am 29.04.2009 um 15:09 Uhr (0)
Hallo,ein Beispiel:Code:Set oPart = CATIA.ActiveDocument.PartSet cParameters= oPart .Parameters### Create length ###Set oLength= cParameters.CreateDimension("`MyLength`", "LENGTH", 0)### Range definition ###oLength.RangeMin = 0.0oLength.RangeMax = 10.0### Update ###oPart .Update
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Position eines Objectes im Baum auslesen
ptit.tom am 15.04.2009 um 09:59 Uhr (0)
Nochmal hallo,Ich habe einige Änderungen gemacht. Jetzt liefert das Code den Pfad bis zum Part:Code:Sub CATMain() Dim oDoc As Document Dim oPart As Part Dim oObject As AnyObject Dim cSelection As Selection Dim Status As String Dim InputObjectType(0) Dim sPath As String Dim i As Integer Dim oParent As AnyObject Set oDoc = CATIA.ActiveDocument ### SELECT SOMETHING ### Set cSelection = oDoc.Selection cSelection.Clear InputObjectType(0) = "AnyObject" Status = cSelection.SelectElement2(Input ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigene Workbench unter VBA erstellen
ptit.tom am 11.05.2009 um 14:50 Uhr (0)
Hallo,Es gibt auch eine Toolbar-Lösung von der Firma :em AG. Man kann CATIA-Befehle, Makros oder externe Programme verknüpfen (auch denkbar Powercopy oder Udf zu integrieren). Die Symbolleiste sind Workbench-abhängig. Das Ganzes wird mit einem XML-Konfigurationsdatei gesteuert. http://www.em.ag/index.php?option=com_content&task=view&id=205&Itemid=121 Gruß,Florent Cauwe
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Method .Parent und Geometrical Set im Body
ptit.tom am 24.06.2009 um 09:05 Uhr (0)
Hallo,Ich habe eine Function geschrieben (VBA-Projekt): der User soll ein Objekt selektieren und ich suche das Part, wo das Objekt sich befindet.Um das Part zu finden, navigiere ich in der Struktur mit der Methode ".parent" (Schleife Do...Loop Until) bis ich ein Objekt "PartDocument" finde.Code: Sub CATMain() Dim oDoc As Document Dim cSel Dim oPart As Part Dim Status As String Dim InputObjectType(0) Set oDoc = CATIA.ActiveDocument Set cSel = oDoc.Selection cSel.Clear InputObjectType(0) = "AnyO ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part bearbeiten im Produkt
ptit.tom am 10.02.2010 um 18:01 Uhr (0)
Hallo,Ich antworte selbst: ich habe eine Möglichkeit gefunden, die nicht so elegant ist.Es wird im VBA gemacht.Code:Sub CATMain() NewFrom ("C:TempMyProduct.CATProduct")End SubPublic Sub NewFrom(iPath As String) If (iPath = "") Then Exit Sub End If CATIA.Application.StartCommand ("New from") Nur für englisch .. VBA.SendKeys iPath VBA.SendKeys "{ENTER}" CATIA.RefreshDisplay = TrueEnd SubDas SendKeys emuliert, was der User manuell eingeben würden. So kriege ich die "New from"-Oberfläche von CATIA.Gr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Deklarieren von Skizzenausgaben in VBA
ptit.tom am 25.01.2011 um 17:28 Uhr (0)
Hallo,Ich grabe das Thema aus. Ich stoße gerade auf die gleiche Schwierigkeiten als Cyzed.Ich will mit einem Makro Ausgaben einer Skizze umbenennen.Leider funktioniert die Eigenschaft ".Name" in diesem Fall nicht.Für Parameters kenne ich den Umweg mit der Methode ".Rename". Es funktioniert in diesem Fall auch nicht.Mein Makro (ich selektiere meine Ausgabe vor dem Start):Code:Dim oDoc As PartDocumentSet oDoc = CATIA.ActiveDocumentDim MySel As SelectionSet MySel = oDoc.SelectionDebug.Print MySel.Item(1).Valu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sicherungsverwaltung aus VB-Script
ptit.tom am 26.01.2011 um 08:59 Uhr (0)
Hallo,Man kann vielleicht nicht direkt das "save managmeent" starten. Aber es gibt einen Umweg:(englische Version von CATIA)Code: CATIA.Application.StartCommand ("save management")Das Kommando "save management" wird im Feld unten rechts aufgerufen ( c:save management ). Dann wird die Dialog-fenster geöffnet. Man kann so jede beliebige Funktion starten. Gruß,Florent[Diese Nachricht wurde von ptit.tom am 26. Jan. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part bearbeiten im Produkt
ptit.tom am 09.02.2010 um 17:15 Uhr (0)
Hallo,Ich habe gerade Interesse an diesem Thema. Gibt es inzwischen eine bekannte Möglichkeit die "New from"-Fenster von Catia aufzurufen ?Schöne Grüße,Florent.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro allgemein anwendbar machen
ptit.tom am 11.05.2011 um 11:48 Uhr (0)
Hallo,Du hast einige Frage nicht beantwortet:- Sind deine Product/Part-Strukture immer gleich ? (z.B immer nur 1 Part unter ein Produkt) ?- Will du nur die Parts ändern ? (sowie es aussieht nicht)Wenn du durch die Struktur navigieren willst kannst du eine rekursive Funktion verwenden (die Funktion ruft sich selbst).Code:Sub CATMain()Dim oDoc As DocumentSet oDoc = CATIA.ActiveDocumentDim oProd As ProductSet oProd = oDoc.ProductDebug.Print "Name:" & oProd.NameShowStructure oProdEnd subFunction ShowStructure( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ungültige Makro unter Windows 7
ptit.tom am 11.05.2011 um 08:00 Uhr (0)
Guten Morgen,Letztens wurde meine Workstation auf Windows 7 migriert. Gestern habe ich bemerkt, daß einige Makros nicht mehr funktionieren.Das Problem ist, daß ich diese Makro nicht mal editieren kann:- Die Userform werden systematisch als "Module not found" angezeigt- Die Module werden zwar geöffnet, aber man kann kein Code sehen.Config:- Windows 7 64bit Sp1- CATIA V5R19 Sp3 HF60- VBA 6.0.8714Mit Windows XP funktionieren die Makros einwandfrei.Hat jemand schon Erfahrung mit so ein Problem ?Gruß,Florent.[D ...
|
| In das Form CATIA V5 Programmierung wechseln |
CORNER_FEATURE.CATPart.zip |
CATIA V5 Programmierung : 3D Corner erstellen
ptit.tom am 18.05.2009 um 08:55 Uhr (0)
Hallo,Das Feature "Corner" ist im CATIA leider nicht sehr stabil. Ich füge ein Beispielpart an. Versuch den Punkt C zu verschieben. Wenn du auf die andere "Seite" wechseln, kriegst du eine Fehlermeldung. Du muss dein Corner einmal öffnen und zumachen, um das Feature zu "reparieren".Ich vermute, daß CATIA im Makro dieses Problem nicht lösen kann.Ich hatte das Problem mit PowerCopy. Ich habe einfach mit anderen Features gearbeitet (Circle Bitangent and Radius. Achtung, die zwei Linien sollen richtig ausgeri ...
|
| In das Form CATIA V5 Programmierung wechseln |
