|
CATIA V5 Programmierung : drawing isolate via vba makro
Proofin am 09.03.2007 um 09:43 Uhr (0)
Hi toyo,im not sure but i think this is what you mean:----------------------- Code----------------------- Dim oDoc As Document Set oDoc = CATIA.ActiveDocument Dim oSheet As DrawingSheet Set oSheet = oDoc.Sheets.Item(1) oSheet.Isolate----------------------- Code-----------------------regards Proofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Einsteiger-Frage
Timberwolve am 20.03.2007 um 09:54 Uhr (0)
Hallo, hab mal etwas in deinem Makro rumgepfuscht ;-)Aber jetzt läuft es so wie du es haben willst.Für die Zukunft dieses Makros gibt es nur ein paar kleine Probleme.1. Wird das Makro mehrmals in einem Part angewendet, so heissen alle Parameter die erzeugt werden gleich.2. Es muss, damit das Makro läuft ein Geometrisches Set mit dem Namen "Geometrical Set.1" vorhanden sein, ansonsten bricht es ab. 3. Da alle erzeugten Parameter den gleichen Namen haben, kann es bei der erzeugung der Formeln zu Schwierigkei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro läuft nicht unter XP
Timberwolve am 21.03.2007 um 13:57 Uhr (0)
Ahhhh, ja da hast du den richtigen Ansatz, dieses Problem hatte ich auch schon. Der Visual Basic Editor ist in dem Fall CATIA nicht zugewiesen, ich weiss das dann VB und Catvba Projekte nicht mehr laufen. Die Lösung ist in diesem Fall folgende:Den Rechner starten und sich als Administrator(Windows)anmelden. Wenn du dann CATIA als angemeldeter Administrator startest, sollte eigentlich der Visual Basic Editor freigeschaltet sein. Wenn dies einmal gemacht wurde, dann ist er auch für alle User auf diesem Rechn ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterübergabe in Prozedur wie?
Proofin am 04.04.2007 um 11:20 Uhr (0)
Ok, der String bringt dir aber nichts es sein denn du willst in ausgeben.Ich bin nicht ganz sicher, ob ich richtig verstanden hab was du vor hast.Aber ich würde das Rekrusiv versuchen aus zulesen.In etwas so:---------------------------------------------Code---------------------------------------------Sub main()Call f_Daten_auslesen_2(CATIA.ActiveDocument.Product.Products)End SubSub f_Daten_auslesen_2(ByVal oProducts As Products) Dim ii As Integer zählt alle ausgaben Static zaehler As Integer alle Produk ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text-Eigenschaft - Auswählbar mit Makro ändern
CAMiCADse am 12.04.2007 um 11:30 Uhr (0)
Hallo Bertel,das geht über die Visualproperties einer Selection, mit .SetPick:Code: Element ist selektiertDim VisProp As VisPropertySetSet VisProp = CATIA.ActiveDocument.Selection.VisPropertiesVisProp.SetPick (catVisPropertyNoPickAttr)GrußCAMiCADse
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 5000 Linien mit Makro erzeugen
Thomas Harmening am 25.04.2007 um 14:24 Uhr (0)
ja, einen Geoset haben, die Punkte alle auswählen ( ich habe es nicht im Baum ausgewählt, sondern am Bildschirm gefangenund dann das Makro startenCode:Sub CATMain()Set CATIA = GetObject("", "CATIA.Application") nur für xlsDim myPartDocumentSet myPartDocument = CATIA.ActiveDocumentSet mypart = myPartDocument.PartSet myAxis = mypart.CreateReferenceFromObject(mypart.AxisSystems.Item("Absolute Axis System")) Axis mit dem Namen erforderlicherzeuge ein neues Geoset mit namen LinienSet myHybridBodies = mypart.hyb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selection.Search Problem mit R16
YellowDevil am 22.05.2007 um 12:38 Uhr (0)
So ich habe heute Nacht mal getestet und konnte genau Deinen Fehler bei mir erzeugen.Vorgehensweise war:leeres part erzeugt, gespeichertleeres product erzeugt, gespeichertpart in Product eingebunden, gespeichertdeine Befehlszeile in ein Macro gegeben und ausgeführt- part wurde gefundenc:Fit All InMacro ausgeführt- FehlermeldungJetzt hab ich dann mal deine Befehlszeile folgendermassen geändert und es kam keine Fehlermeldung mehr.Sub CATMain()CATIA.ActiveDocument.Selection.search ("Name=Part1.1 & CATProductS ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Flächenintegration ohne vereifachte Geometrie
BigCheese am 13.08.2007 um 14:49 Uhr (0)
Nochmals hallo,ich habe leider 2 Probleme durcheinandergemixt...Mit ebenen Flächen, wie bei Dir im Beispiel dargestellt, hat es bei uns auch nicht funktioniert... Mit der "Intersect Body"-Option konnte ich die Ergebnisse bei einigen Anwendungsfällen stabilisieren.Wir verwenden zur Zeit ein Makro, das Flächen um ein Befestigungsloch aufnäht. Zur Erzeugung dieser Fläche bemühen wir die "Blend"-Funktion... diese wird von CATIA nicht vereinfacht, womit das gewünschte Ergebnis dann erreicht wird... Dies sollte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter im Product aus Drawing bearbeiten
Jens Hansen am 23.09.2007 um 23:04 Uhr (0)
Hallo,Parameter können nur im unmittelbaren Zugriff geändert werden. Also MUSS das Produkt geöffnet sein, um die Paramter überhaupt anzusprechen. Allerdings bedeutet hierbei "geöffnet", dass das Produkt oder das Part geladen werden muss; es muss nicht sichtbar aufgerufen werden (kein OPEN).Wird ein Drawing geöffnet, wird das zugehörige Referenzmodell immer geladen und ist über CATIA.Documents.Item("Name_der_Referenz") ansprechbar.SGJens Hansen
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus Datei (STEP oder IGES) in bestehendes Part importieren
apollo11 am 05.11.2007 um 13:11 Uhr (0)
Versuch mal folgendes:Das Dokument in welches das Stepfile eingefügt werden soll öffnen.Den Pfad "C:STEPFILE.stp" abändern.Code:Sub CATMain() Dim documentDest As PartDocument Set documentDest = CATIA.ActiveDocument Dim documents1 As Documents Set documents1 = CATIA.Documents Dim documentSour As Document Set documentSour = documents1.Open("C:STEPFILE.stp") Dim Sel As Selection Set Sel = CATIA.ActiveDocument.Selection Sel.Search "Name=*" For i = 1 To Sel.Count If TypeName(Sel.Item(i).Valu ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auswahl von Elementen
BigCheese am 30.11.2007 um 17:38 Uhr (0)
Hi nochmals,ich denke Du suchst "HybridShapeBoundary" und "HybridShapeSpline".Falls nicht, kannst Du Dir ja den Typ mal ausgeben lassen mit folgenden Code:Code:Sub CATMain()Dim myPartDocumentSet myPartDocument = CATIA.ActiveDocumentSet mypart = myPartDocument.PartDim ElementToSelect(0)ElementToSelect(0) = "AnyObject"Set mySelection = myPartdocument.SelectionSelectedElement = mySelection.SelectElement2(ElementToSelect, "Auswahl", True)Set myItem = mySelection.Item(1).ValueMsgBox "Typ des selektierten Elemen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Polylinien Makro
Proofin am 18.01.2008 um 15:02 Uhr (0)
Hi nreim1,Willkommen im Forum.OHNE es getestet zu haben würde ich folgendes machen:Code:Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.PartSet hybridShapeFactory1 = part1.HybridShapeFactorySet hybridShapePolyline1 = hybridShapeFactory1.AddNewPolyline()Set hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("POINTS")Set hybridShapes1 = hybridBody1.HybridShapes PUNKT 1 Wird hinzugefügtDim PUNKTFor PUNKT = 1 To hybridShapes1.Count Set ref = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
Lusilnie am 22.01.2008 um 00:05 Uhr (0)
Hallo cevk,sollte es nicht so gehen:Code:Sub copieren() Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Set DrwSheet = DrwSheets.ActiveSheet Dim selection3 As Selection Set selection3 = drwdocument.Selection selection3.Clear selection3.Add DrwSheet.Views.Item(2) selection3.Search ("Name=*Testlinie*,all") selection3.Copy selection3.Clear selection3.Add DrwSheet.Views.Item(2) selection3.PasteEnd SubDamit sollte die Auswahl aus dem Background des aktuellen Sheets kopiert ...
|
| In das Form CATIA V5 Programmierung wechseln |
