|
CATIA V5 Programmierung : Abstand zwischen Parts/Products (oder Flächen) messen
triumvirn am 16.01.2008 um 23:31 Uhr (0)
Hallo nochmal!ich bin immernoch dabei den Abstand zwischen zwei Products/Parts in einem Assembly zu messen.Diese Parts/Products habe ich zuvor automatisiert nach ihrem Namen gesucht/gefunden, das klappt auch (VBA-Projekt3.catvba) Jens Hansen hat mich ja schon aufgeklärt, dass ich keine Referenzen auf Products setzen kann.Welche Varianten sind denn denkbar? Muss ich mit "GetMinimumDistance" den Abstand messen oder gibt es noch andere Möglichkeiten?Ich habe mir überlegt, die Flächen der gefundenen Products z ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit Formelerstellung
AlfaRomeo75 am 17.01.2008 um 12:03 Uhr (0)
Hallo,brauche mal wieder Eure Erfahrung:Versuche gerade die Länge eines Schnittes (Near) mit der Länge einer Linie zu verbinden (EditFormula). Dies soll natürlich über ein Makro geschehen! Nur leider will es nicht so recht klappen! Herauskommen soll eine Formel wie in dem Bild (Anhang) zu sehen ist!Hier wird dem Ende der Linie.98 aus dem GeoSet12 der Wert der Messung (Length) des Elementes Near.123 zugewiesen!Nur leider bekomme ich das nicht über eine Makro dargestellt! Hier mal ein Auszug aus dem Code:.. ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Problem mit Formelerstellung
AlfaRomeo75 am 17.01.2008 um 14:00 Uhr (0)
Hallo nochmal,ich möchte Eure kostbare Zeit natürlich nicht umsonst in Anspruch nehmen und habe nun doch noch die Lösung gefunden!!! Die möchte ich natürlich nicht geheimhalten!Nach einigen Versuchen "Try&Error" muss nun der Syntax wohl korrekt lauten:Set Formel = CATIA.ActiveDocument.Part.Relations.CreateFormula("Formel1","",CATIA.ActiveDocument.Part.Parameters.Item(mySet.Name&""&LineName&"End"),"length(`"&my.Name&""&myNear.Name&"` )")Vielen Dank dennoch an die, die sich vielleicht schon gedanken gemacht ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abstand zwischen Parts/Products (oder Flächen) messen
triumvirn am 17.01.2008 um 21:52 Uhr (0)
klar kenn ich das. Aber das hilft im Vergleich zur MSDN für Visual Studio nur bedingt weiter. Da steht halt das Kommando in seiner Struktur "Befehl(in die Klammer muss ein Objekt)", aber woher bekomme ich dieses (verdammte) Objekt?Das ist die ganze Zeit das Problem für mich und wenn ich das nicht habe, kann ich auch leider die Funktion GetMinimumDistance nicht testen (deswegen frag ich ja so dumm ).Ich HABE ein Produkt und MÖCHTE ein Objekt von seinen Flächen(plaines?). Bloß wie?Code:Dim reference1 As Refe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Polylinien Makro
nreim1 am 18.01.2008 um 13:00 Uhr (0)
Hallo ForengemeindeIch habe ein Problem mit einem Macro welches ich Schreiben möchte, ich bin leider noch nicht so Fit da drin Aber ich komme mal zum Punkt.Ich möchte ein Makro schreiben welches mir aus einer Anzahl aus 360 Punkten eine Polylinie erzeugt...Zum Allgemeinem Verständniss befindet sich im anhang ein Screenshot auf dem man den Aufbau meines .Parts siehtDie Punkte die ich verwenden möchten liegen im GEO SET "POINTS" siehe screenshot ( part_2 )Die Polylinie soll im GEO SET "CURVE" erstellt werden ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
cevk am 21.01.2008 um 11:58 Uhr (0)
Hallo zusammen,Ich habe ein "fremdes" Makro, das mir entsprechend meinen Zeichnungsrahmen anpasst, die Indexstände ändert und meine Schriftkopfeinträge wunderbar verwaltet. Kurzum ein dolles Ding.Jetzt haben wir noch ein eigenes Makro das Messpunkte aus einem Part ausliest, eine Tabelle aus Linien und Texten in den Blatthintergrund erstellt und die Werte der Messpunkte einträgt.Wenn ich aber jetzt das Zeichnungsblatt (Größe) ändere, Löscht das erste Makro den kompletten Blatthintergrund, das bedeutet meine ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
BigCheese am 21.01.2008 um 14:56 Uhr (0)
Hallo Viktor,ohne es getestet zu haben könnte Dein Makro so aussehen:Code: Sub copieren() Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Dim selection3 As Selection Set selection3 = drwdocument.Selection selection3.Clear selection3.Search ("Name=*Testlinie*,all") selection3.Copy selection.Clear DrwSheet.Views.Item(1).Activate Working View aktivieren Set DrwSheet = DrwSheets.Item("Sheet.1") DrwSheet.Activate selection3.Add(DrwSheet) selection3.PasteEnd SubVor dem Einfügen musst D ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
cevk am 22.01.2008 um 08:17 Uhr (0)
Hallo Zoltan,Hallo Lusilnie,viiiiiiiiiiiiiiiiiieeeeeeeeeeelen Dank, ihr habt mir sehr geholfen, lasst Euch umarmen KlKr. Habe noch eine Kleinigkeit modifiziert.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 selectio ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Txt Datei öffnen
GeorgK am 22.01.2008 um 21:56 Uhr (1)
Hallo,wie kann ich eine Txt-Datei öffnen (c: est.txt)?Um Notepad aufzurufen reicht:Catia.SystemService.ExecuteProcessus ("c:WindowsNotepad.exe")Exel-Datei:Sub CATMain()Set xlApp = CreateObject("Excel.Application")Set MyXL = GetObject(, "Excel.Application")If Err.Number 0 Then ExcelWasNotRunning = TrueErr.ClearSet MyXL = GetObject("c:Test.xls")MyXL.Application.Visible = TrueMyXL.Parent.Windows(1).Visible = TrueEnd SubVielen Dank und GrüßeGeorg
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D-Elemente verschieben (Translate/Move)
CEROG am 23.01.2008 um 13:45 Uhr (1)
Hallo vk,ich hatte vor Jahren (so Anno 2001) mal eine Programmierung versucht, bei der Linien gedreht und verschoben wurden. Dabei mußte ich die Koordinaten umrechnen, die zu den Linien gehören.Viele Grüße in den schwäbischen Busch,CEROG------------------CATIA-FAQhttp://www.cad-gaenssler.de
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nur sichtbare Elemente ins hide stellen
ausie-r-n am 24.01.2008 um 13:29 Uhr (0)
Hallo,brauch mal eure Hilfe. Ich hab folgendes Script im Einsatz.Language="VBSCRIPT"Sub CATMain() On Error Resume Next Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentSet Selection1 = ProductDocument1.Selection Dim selection1 As SelectionSelection1.Search("CATPrtSearch.Plane+CATPrtSearch.AxisSystem+CATPrtSearch.Point+CATPrtSearch.Line+CATPrtSearch.Curve+CATAsmSearch.MfConstraint,all")Set visPropertySet1 = selection1.VisProperties visPropertySet1.SetShow 1selection1.Clear End SubF ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Koordinatenpunkte verschieben
cevk am 25.01.2008 um 15:23 Uhr (0)
Hallo Taylor Herzlich willkommen im Forum Habe leider keine Vollständige Lösung für Dich aber ich fang mal an vieleicht können die Anderen noch etwas beitragen.Code:_____________________________________________________________________________Sub Punkteverschieben()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim selection1 As SelectionSet selection1 = partDocument1.SelectionDim hybridShapeFactory1 As HybridShapeFactorySet hybridSh ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungen Automatisch Speichern
K.Siebert am 26.01.2008 um 16:05 Uhr (0)
OK ich gebe auf ich komme nicht an den Befehl um das Speicherverzeichnis auszulesen Und Makro Aufzeichnen hat auch nichts gebracht und her finde ich auch nichts es wird immer nur mit CATIA.ActiveDocument gearbeitet.Das hilft mir aber nicht weiterWie komme ich an das Speicherverzeichnis vom Part ran keine AhnungBitte um Hilfe für mein Problem
|
| In das Form CATIA V5 Programmierung wechseln |
