 |
CATIA V5 Programmierung : Makro cgr Export auf Produktstruktur
vruser am 10.08.2011 um 15:12 Uhr (0)
Hallo an alle Tüftler und V5 Kollegen,ich stehe kurz vor dem Fenstersturz und hoffe hier auf Hilfe.Per Makro soll in etwa die Funktion "SAVE AS Frozen linked with cache" ausgeführt werden. Der Cache liegt lokal und die cgrs haben als Name einen Zeitstempel und nicht die Bezeichnung im CATProdukt = hier liegt das Problem... benötigt wird die korrekte Bezeichnung.Viel gelesen und probiert habe ich schon und die Bücher auch hier liegen... Fehlt "nur" noch der richtige CODE.Hab eine Makro, welche den komplette ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro cgr Export auf Produktstruktur
vruser am 10.08.2011 um 15:10 Uhr (0)
Hallo an alle Tüftler und V5 Kollegen,ich stehe kurz vor dem Fenstersturz und hoffe hier auf Hilfe.Per Makro soll in etwa die Funktion "SAVE AS Frozen linked with cache" ausgeführt werden. Der Cache liegt lokal und die cgrs haben als Name einen Zeitstempel und nicht die Bezeichnung im CATProdukt = hier liegt das Problem... benötigt wird die korrekte Bezeichnung.Viel gelesen und probiert habe ich schon und die Bücher auch hier liegen... Fehlt "nur" noch der richtige CODE.Hab eine Makro, welche den komplette ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Prüfen des Typs von Elementen
hklein06 am 17.03.2006 um 10:36 Uhr (0)
Hallo,ich möchte prüfen, ob Elemente in einem Geometrical Set Punkte sind.Leider funktioniert das nicht mit GeometricType.Kann mir jemand sagen, wo da der Wurm drin ist?Danke!PS: Um es einfach zu machen, habe ich ein Script aus dem V5 Makro Buch benutzt.Sub CATMain () Dim Bauteil As Part Dim Koerper As HybridBody Dim Geo As GeometricElement Set Bauteil = CATIA.ActiveDocument.Part Set bodiesColl = Bauteil.HybridBodies Set Koerper = bodiesColl.Item(1) MsgBox Koerper.Name MsgBox Koerper.HybridShapes.Count ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia Version eines Dokuments
Maetes am 24.08.2009 um 15:46 Uhr (0)
Hallo!Hab in letzter Zeit auch so meine Probleme mit Dateiversionen und finde die Lösung mit dem findstr sehr gut!Nun wollte ich die Sache vereinfachen und hab ein kleines Windowsprogramm geschrieben. Allerdings gibt er mir mit findstr keine Ausgabe aus?Hat jemand eine Idee woran das liegt?Hier der Code (auf das Minimum reduziert)Code:Set WShell = CreateObject("WScript.Shell")Set Command = WShell.Exec("findstr CATIAV5 " & WScript.Arguments.Item(0))MsgBox Command.StdOut.ReadAlländere ich ""findstr CATIAV5 " ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Benennung von Ebenen
X-O am 07.10.2009 um 10:16 Uhr (0)
Hallo,ich habe wohl noch ein Verständnissproblem.Folgendes Programm soll mit userselection einen Punkt einlesen und in "Test" unbennen. Mit "Line" und "Pad" klappt es wunderbar,aber nicht mit "Vertex". Kann mir das jemand erklären?Sub CATMain() Dim Was(4) Was(0) = "Line" Was(1) = "Pad" Was(2) = "Vertex" Hier klappt die Namensgebung nicht! Was(3) = "Edge" Hier auch nicht Was(4) = "Bodies" Hier auch nicht MsgBox ("Objekt auswählen") Dim Benauswahl As selection Set Benauswahl = CATIA.ActiveDocument.Select ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
CTenschert am 07.09.2005 um 11:25 Uhr (0)
Habe mal ein Beispiel geschrieben.Dürfte ein Grundgerüst sein. *** Beispiel für Ersetzung des Teilenamen *** * von Carl Tenschert * * vom 07.09.2005 * * Win2K R12 SP5 * *********************************************Sub CATMain()Dim myDocuments As DocumentsDim mypartDocument As PartDocumentDim myProduct As ProductDim TeileName_Neu$, TeileName_Alt$Dim myDocument As DocumentSet myDocuments = CATIA.DocumentsFor Each myDocument In myDocuments If TypeOf myDocument Is PartDo ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Late Binding mit Visual Basic 2008 Express Edition
INLU am 01.02.2009 um 13:03 Uhr (0)
Hallo Jens.Ich hoffe Du meinst die Einstellungen in meinem Visual Basic Express Projekt (Ich mach es ja nicht in C#).Ich habe keine besondere Einstellung vorgenommen, also auch keinen Com-Verweis auf die Catia Bibliotheken. Allerdings habe ich für ein anderes Projekt die Com-Verweise für Mecmod und GSMInterface gesetzt. Komischerweise tauchen diese auch auf, wenn ich VBE frisch starte und mir über Projekte-Verweis Hinzufügen-Aktuell die Bibliotheken anschau. Heißt das, dass der Com Verweis doch existiert? ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : nomenclature to Instance Name
Suchtiii94 am 18.10.2018 um 16:42 Uhr (1)
Hallo,ich möchte mit einem Makro die Nomenclature in das Feld Instance Name und in das Feld PartNumber kopieren. Und das für die Gesamte Baugruppe bei allen Teilen (.Product & .Part).Was ich schon geschafft habe, ist das Kopieren der Partnumber zu Instance Name mit der (hoffentlich) richtigen Nummerierung.Das ganze sieht so aus:Code:Set Documents = CATIA.DocumentsFor Each Item In DocumentsIf Right(Item.Name, 10) = "CATProduct" ThenSet CurrentProduct = Item.Product.ProductsFor i = 1 To CurrentProduct.CountC ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : InstanceName Ändern
Suchtiii94 am 11.07.2019 um 10:11 Uhr (1)
Hallo,hier ist mein Code:Code:Sub Product_Suchen()Set oRoot = CATIA.ActiveDocumentSet oProducts = oRoot.Product.ProductsProduct_Scannen oProductsEnd SubSub Product_Scannen(oProducts)Dim PartNumberDim NomenclatureFor i = 1 To oProducts.CountoProducts.Item(i).PartNumber = oProducts.Item(i).ReferenceProduct.NomenclatureoProducts.Item(i).Revision = NullwertoProducts.Item(i).DescriptionRef = NullwertCurrentPartnumber = oProducts.Item(i).PartNumberk = 1For j = 1 To oProducts.Countcurrentline = oProducts.Item(j). ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name von Parametern ändern
Manrok am 23.03.2009 um 09:46 Uhr (0)
Hallo an alle. Habe ein kleines Problemchen. Ich habe einen Parameter und eine Beziehung erstellt. Die Funktioniert aber nur, wenn ich einen Namen deklariere und auch den Parameter genau so nenne. Mache ich z.b. set Paramet = para.CreateReal("Paramet-1", 30) findet Catia ich der nachstehenden Formel den Wert nicht.Nun meine Frage, wie kann ich den Namen des Parameters nachträglich ändern? *.name oder *.rename funzen leider nicht. Oder mache ich da etwas mit der Formel falsch?Dieses Skript funktioniert jede ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : AddNewAssemble
JPF am 04.09.2006 um 10:57 Uhr (0)
Hallo Zusammen,warum funktioniert AddNewAssemble nur mit dem Koerper2 und nichtmit shaft1 ???Kann mich jemand auf den richtigen Weg schicken???Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim Wzk3D As ShapeFactorySet Wzk3D = part1.ShapeFactoryDim Koerper1, Koeper2 As BodySet Koerper1 =part1.Bodies.Item("BAHN.1")Set Koerper2 =part1.Bodies.Item("BAHN.2")Dim shapes1 As ShapesSet shapes1 = Koerper1.ShapesDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Simulation + Replay
AierMandi am 05.02.2013 um 09:29 Uhr (0)
Hallo Zusammen,erstmal ein sehr großen LOB an dieses Forum! Viele Probleme konnte ich mit Hilfe eurer Beitrag bereits lösen.Ich möchte eine Simulation + Replay (in der Umgebung DMU Kinematics) mit verschieden Mechanismeneinstellungen automatisiert ausführen.Die Mechanik und das zugehörige DressUp ist bereits erstellt. Nun würde ich gerne die Simulation erzeugen. Dazu sind verschieden Parameter der Mechanik zu setzen und jeweils mit dem Befehl "Insert" in die Simulation einzufügen. (Das setzen der Mechanikp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Regel ändern
bgrittmann am 06.11.2018 um 09:37 Uhr (1)
Servus TomTomIch hab mal was zusammengebastelt was bei mir funktioniertCode:Sub CATMain() Dim part1 As Document Set part1 = Catia.activeDocument Dim mass As RealParam Set lenght = part1.Part.Parameters.CreateDimension("lenght", "LENGTH", 5.) Dim depth As RealParam Set depth = part1.Part.Parameters.CreateDimension("depth", "LENGTH", 0.) Dim selectdepth As Relation Set selectdepth = part1.Part.Relations.CreateProgram("select_depth","Select depth", "if (lenght10mm) { depth=2mm } else { depth=1mm }") MsgBox ...
|
| In das Form CATIA V5 Programmierung wechseln |
