|
CATIA V5 Programmierung : VBA Makro Baumstruktur Sortieren
Ente9000 am 08.05.2023 um 08:45 Uhr (1)
Hi Knock,wie Bernd schon erwähnt hat zerschießt dir die Cut & Paste-Methode die ganzen Verlinkungen. Bei uns ist das eher ungünstig, daher sind wir zu dem Tool von scripts4all.eu gewechselt.Wir haben das Tool auf unsere Wünsche etwas angepasst, also die Sortierreihenfolge noch etwas modifiziert.Unsere Erfahrungen mit dem Tool sind folgende:- Manchmal läuft das Tool einfach nicht. In diesem Fall muss CATIA einfach neu gestartet werden.- Man kann während des Sortier-Ablaufs nichts am Rechner machen, da (wie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Programm ignoriert Befehl
adrian83 am 07.06.2013 um 10:11 Uhr (0)
hallo! ich habe ein dieses kleine VBA-Porgramm geschrieben das im NC-Bereich eine Aufspannung definiert und eine Schruppoperation einfügt. Das seltsame daran ist: der roughStock lässt sich mit diesem Code hinzufügen. der Befehl für das part hat aber keinerlei auswirkungen.Ich verstehe nicht,warum und hoffe ihr wisst weiter.Code:Sub catmain()Dim MfgDoc1 As DocumentSet MfgDoc1 = CATIA.ActiveDocument----------Process-Definition---------------------------------------------Dim ActivityRef As AnyObjectSet Activi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part-übergreifende Referenzen in einem Product
Buckminster am 22.02.2012 um 13:17 Uhr (0)
Ah...das ist gut. Mit 3D Punkten klappt es. Ich wollte aber eigentlich wirklich Knoten aus 2D-Sketches selektieren. Jetzt habe ich wie folgt versucht, aus dem BRep des Vertex eine Referenz zu bilden:Sub Selektion()Dim Pkt(3) As AnyObjectDim ref(3) As ReferenceDim Was(0) Was(0) = "Vertex" Selektion definieren und leeren Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear Selektion vornehmen lassen (Punkt 1) Dim E As CATBSTR E = UserSel.SelectElement2(Was, "StartPunkt für ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reference.Displayname in unterschiedlichen Environments
jotge am 08.10.2012 um 15:56 Uhr (0)
Hallo,ich habe folgendes Problem:Wir haben zwei unterschiedliche CATIA-Environments. Im ersten Environment liefert der Zugriff auf die referenzierten Elemente einer Assembly-Constraint den Namen des Elementes, im zweiten Environment ist dieser Wert immer leer. myConnections = (MECMOD.Constraints)myProduct.Connections(ref myConnectionType); for (int i = 1; i = (myConnections.Count); i++) { myConstraint = (MECMOD.Constraint)myConnections.Item(i); if (myConstraint.ReferenceType.Equals(MECMOD.CatConstraintRefT ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : View im CATDrawing kopieren
bgrittmann am 22.12.2011 um 17:32 Uhr (0)
ServusSollte vom Ablauf wie "von Hand gehen". Also Ansicht selektieren, kopieren, Zielblatt selektieren einfügen. Der Makrorekorder liefert folgendes (muss ggf noch an deine Randbedingungen angepasst werden): Code:Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.ClearDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte verbinden
wulfgang am 09.03.2010 um 22:45 Uhr (0)
Also ich habe alle drei Varianten durchprobiert. Dies war bei mir mit 1min die schnellste. Die anderen Varianten mit Point.compute und Testpart.update nach außen sind jeweils 10s langsamer. Zwei Schleifen habe ich deshalb genommen, weil wenn ich alle Punkte in ein Polygon packe, der Rechner immer abstürzte und ich mal probieren wollte, ob man 10000Punkte miteinander verbinden kann. Code:Sub SubTest() Dim Document1 As Document Set Document1 = CATIA.ActiveDocument Dim TestPart As Part Set TestPart = Docu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 17.04.2013 um 12:04 Uhr (0)
Guten Tag alle zusammen,ich probiere im Moment ein Makro zu programmieren, mit welchem ich in Catia V5R21 in einer Baugruppe alle Löcher finden kann,welche einen bestimmten Durchmesser haben. Ich habe mir bereits das "Kochbuch" von Herrn Hansen zugelegt und dieses durchgearbeitet, habe aber leider trotzdem keine Idee wie ich die Programmierung durchführen soll, damit ich nicht alle Löcher auswähle, sondern nur die mit einem bestimmten Durchmesser, in welche dann automatisch Normstifte eingefügt werden soll ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro Section cut mit neuem Release R19 umfangreich zu modifizieren?
HoBLila am 30.09.2009 um 15:01 Uhr (0)
*g* genau das gleiche Problem hatte ich bei genau dem gleichen Makro. Du benötigst Hotfix 18 oder größer für R19, dann kannst du eine Variable setzen, die dann im CATIA das alte Verhalten nachbildet.Ab SP4 ist diese Variable dann auch in den Settings direkt per Checkbox einstellbar. Hoffe jetzt nichts all zu falsches gesagt zu haben. jedenfalls gibts jetzt dafür eien Variable von Dassault, die aber nicht ausreichend dokumentiert ist.Die Sache mit den kurven bringt nämlich noch ganz andere Nachteile mit sic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mehrere Abzugskörper von Part entfernen
monka am 14.08.2017 um 12:00 Uhr (1)
Hallo Juliendeinem Code zufolge versuchst du den ersten 3 Körpern in deinem Part die Körper 4, 5 und 6 abzuziehen. Du müsstest demnach bevor du die Körper ein weiteres mal abziehen kannst eine Kopie erstellen. Versuch es mal ungefähr so. Achtung Code ist nicht getestetCode:Dim selection1 as SelectionSet selection1 =Catia.Activedocument.SelectionFor i=1 To 3 Dim body2 As Body Set body2 = bodies1.Item(i) Dim shapes1 As Shapes Set shapes1 = body2.Shapes For k=4 To 6 Dim shapeFactory1 As Factory Set shapeFac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 : COMExeption wurde nicht behandelt
HoBLila am 06.12.2011 um 09:27 Uhr (0)
Du hast 2x dlg.ShowDialog() drin.nimm das erste raus. :-)Code:private void ProduktOeffnen_Click(object sender, EventArgs e) { OpenFileDialog dlg = new OpenFileDialog(); dlg.Title = "Open"; dlg.Filter = "Projekt(*.CATproduct)|*.CATproduct|Projekt(*.CATpart)|*.CATpart|All Files(*.*)|*.*"; INFITF.Application catiaApplication = (INFITF.Application)Marshal.GetActiveObject("CATIA.Application"); INFITF.Document catiaDocument; if (dlg.ShowDialog() == DialogResult.OK) { ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Componente oder CATProduct?
bgrittmann am 02.11.2012 um 12:57 Uhr (0)
ServusAnbei ein (zusammengebastelter) Code der auch in verschachtelten Strukturen funktioniert. Bei mir funktioniert der Vergleich der Objekt über "Is" nicht deshalb vergleiche ich den Fullname der CATProducts:Code:Sub Start()Dim RootProduct As ProductSet RootProduct = CATIA.ActiveDocument.ProductIf RootProduct.Products.Count 0 Then Call Rekursiv(RootProduct)End IfEnd Sub*****Sub Rekursiv(RootProduct As Product)Dim oProduct As ProductFor Each oProduct In RootProduct.Products If oProduct.ReferenceProduct ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter im Process auslesen und schreiben
HoBLila am 15.01.2009 um 21:09 Uhr (0)
Ich hoffe das kann helfen. Ist einfach, aber sehr effektiv, da sehr schnell. Musste damals ne Weile danach suchen, denn der Prozess hat in seiner Gesamtheit einfach viel zu viele Paramaeter:Set processDocument = CATIA.ActiveDocumentSet pPRActivity = processDocument.GetItem("Process")Set processParameters = pPRActivity.Parameters.SubList(pPRActivity, False)Dann einfach den gewünschten Parameter aus den wenigen verbleibenden nehmen. Also For each Parameter und dann den Namen prüfen und in der Value steht dan ...
|
| In das Form CATIA V5 Programmierung wechseln |
