|
CATIA V5 Programmierung : VB with Catia
u01dz am 19.06.2007 um 10:58 Uhr (0)
Hi Tom,try to define in VB.net CATIA like this: CATIA = NothingOn Error Resume NextCATIA = GetObject(, "CATIA.Application")On Error GoTo 0Afterwards you can use with this object every normal CATIA command, like you are used to in VBA.------------------Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros im BatchModus
u01dz am 04.01.2005 um 15:03 Uhr (0)
Hi, bei mir unter WIN2000 bzw. WINXP funktioniert ein solcher Aufruf mit folgendet Zeile in einer BAT-Datei: call %ProgramFiles%Dassault SystemesB12intel_acodeinCNEXT.exe -batch -macro C:TempTest.CATScript Ich hoffe, das hilft weiter? ------------------ Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia VBA Syntax
u01dz am 26.05.2008 um 09:24 Uhr (0)
Hi Horst,Du kannst auch CATIA V5 von VB.Net aus ansprechen (siehe Beispiel):CATIA = NothingOn Error Resume NextCATIA = GetObject(, "CATIA.Application")On Error GoTo 0If Not (CATIA Is Nothing) ThenDim I As IntegerI = 0Do While I CATIA.Documents.Count...LoopEnd IfBei den Formularen geht alles, wie Du es gewohnt bist:Dim Dialog As New Form1Dialog.Hide()...Dialog.ShowDialog()...Dialog.Dispose()------------------Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erstellung von geöffneten Körpern
u01dz am 20.09.2003 um 07:56 Uhr (0)
Hi, folgende Programmsequenz sollte funktionieren, wenn es sich nicht um einen CATIA-Bug handelt: Dim HauptK As Body Set HauptK = CATIA.ActiveDocument.Part.MainBody Dim HB As HybridBodies Set HB = HauptK.HybridBodies Dim MeinHB As HybridBody Set MeinHB = HB.Add Analog kann auch innerhalb eines HybridBody verfahren werden. Mehr Info findest Du im Buch CATIA V5 - Effiziente Konstruktion mit Makros , S. 65 f. ------------------ Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Boundary einer beliebigen Flaechenkante
u01dz am 18.10.2005 um 09:52 Uhr (0)
Hi Alfa,ich könnte mir eine Lösung mit der Methode "AddNewExtract" vorstellen (Effiziente Konstruktion, S. 260):Sub CATMain()Dim Was(0)Dim UserSel As ObjectWas(0) = "Edge"Set UserSel= CATIA.ActiveDocument.SelectionUserSel.ClearE = UserSel.SelectElement(Was, "Bitte erste Kante auswählen!", false)If E = "Normal" Then Dim HF As HybridShapeFactory Dim Kante As HybridShapeExtract Dim MyBody As HybridBody Set MyBody = CATIA.ActiveDocument.Part.HybridBodies.Add MyBody.Name = "Neues Set" Set HF = CATIA.ActiveDocum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA Variablen an OS übergeben
u01dz am 04.08.2003 um 17:51 Uhr (0)
Hi,vielleicht hilft Dir folgendes Makro weiter. Da CATScript keine Möglichkeit bietet, den Inhalt einer Betriebssystemvariablen zu setzen, kann ich mir nur als Lösung ein Batch-Programm vorstellen, das diese Aufgabe übernimmt.Sub CATMain() ---------------------------------------------------------------- Variable definieren -------------------------------------------- Inhalt der CATIA-Umgebungsvariablen lesen ---------------------- Buch "Effiziente Konstruktion mit Makros", S. 58 f. ------------ ----------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Instance ID umbenennen
u01dz am 17.01.2005 um 12:40 Uhr (0)
Hi zusammen, ich habe das Problem, die Instance IDs einer Produktstruktur umbenennen zu wollen. Das geht normalerweise nur eine Ebene unter dem Root-Knoten eines geöffneten Fensters. Wie gehe ich allerdings vor, wenn ich die Instance IDs von Knoten umbenennen möchte, die in einer Komponente verbaut sind? Diese Knoten liegen zwangsweise immer auf der zweiten Ebene des Baumes. Zur Veranschaulichung habe ich zwei Bilder und ein Makro eingefügt. Das erste Bild (Forum01.jpg) zeigt den Baum vor dem Lauf des Makr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product Structure nachbilden
u01dz am 31.08.2004 um 17:16 Uhr (0)
Hi, ich würde folgendes Vorgehen vorschlagen: Über die Selektion erhältst Du das PRODUCT Deines Knotens und darüber dessen PARTNUMBER. Mit folgendem Algorithmus kannst Du das passende Dokument finden und dann das CATPart einhängen: ... Set Doc2 = FindeDokument (DEIN_PRODUCT.PartNumber) Set Doc = CATIA.Documents.Open (DATEINAME_DEINES_CATPARTS) Set R = Doc2.Product.Products.AddExternalComponent (Doc) ... Function FindeDokument (SS As String) As Document Dim I, Richtig, S Richtig = False I = 0 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Filename in Makro übernehmen
u01dz am 12.07.2003 um 06:58 Uhr (0)
Hi, anbei zwei Antworten, die eventuell weiterhelfen: 1. CATIA ist ein Ankerobjekt von CATScript ("Effiziente Konstruktion mit Makros, S. 35). Probiere mal: Dim MeinCATIA As Application Set MeinCATIA = CATIA 2. Das Trennzeichen bei Windows lautet "", bei Unix "/". Die Klasse "FileSystem" verfügt über die Eigenschaft "FileSeparator". Diese Eigenschaft liefert das korrekte Trennzeichen in Abhängigkeit des Betriebssystems ("Effiziente Konstruktion mit Makros", S. 191). ------------------ Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Wechsel zwischen Drawing und Part
u01dz am 19.07.2003 um 07:25 Uhr (0)
Hi, ein CATDrawing und ein CATPart sind jeweils einem CATIA-Window zugeordnet. Eine Liste der Windows kann über folgende Eigenschaft erzeugt werden: Dim Fenster As Windows Set Fenster = CATIA.Windows Über die Methoden der Klasse Windows kann dann ein entsprechendes Fenster ausgewählt werden. Damit müsste man zwischen dem CATPart und dem CATDrawing wechseln können. Vielleicht hilft das weiter? ------------------ Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : "Search" nach Objekte
u01dz am 05.08.2003 um 07:46 Uhr (0)
Hi, im Buch Effiziente Konstruktion mit Makros findest Du auf S. 52 das Beispiel 2.13. Wenn Du anstelle des Schweißpunktes den unten stehenden Suchbegriff verwendest, findet das Script alle HybridShapePlaneTangent s. Falls Du eine englische CATIA-Version verwendest, kannst Du den Suchbegriff im Such-Fenster nachbauen und dann übernehmen. Sub CATMain() ----------------------------------------------------------- Alle tangentialen Ebenen suchen --------------------------- ---------------------------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros im Skizziermodus
u01dz am 23.06.2005 um 14:17 Uhr (0)
Hi, die Factory2D kann Skizzen bearbeiten. Probiere doch mal folgendes Beispiel aus: 1. Leeres CATPart öffnen 2. Im Hauptkörper eine Skizze mit dem Namen "Sketch.1" erzeugen 3. Die Skizze durch Doppelklicken im Sketcher öffnen 4. folgendes Makro starten: Sub CATMain() Set Skizze = CATIA.ActiveDocument.Part.MainBody.Sketches.Item("Sketch.1") Set F2D = Skizze.OpenEdition Set Linie = F2D.CreateLine(0,0,100,100) CATIA.ActiveDocument.Part.Update End Sub Es wird einwandfrei eine Linie erzeugt, während ich im Ski ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Passenden Workbench holen
u01dz am 12.07.2003 um 07:53 Uhr (0)
Hi, ein Arbeitsbereich wird mit folgendem Befehl geladen: CATIA.StartWorkbench CATShapeDesignWorkbench Namen der Arbeitsbereiche: PDG: PrtCfg GSD: CATShapeDesignWorkbench W&S: CATHybridPartWorkbench GDR: Drw ASD: Assembly ------------------ Tschüß, Dieter
|
| In das Form CATIA V5 Programmierung wechseln |
