|
CATIA V5 Programmierung : Bohrungen auf einer Fläche mit vorgegebenem Randabstand - Makro möglich?
DanielFr. am 13.09.2009 um 12:59 Uhr (0)
Hallo,ich frage jetzt nochmal kurz nach weil ich das so wies aussieht morgen in meiner Mittagspause kurz runterprogrammieren werden.Da hast pro Block jeweils 4 Bohrungen? Oder meinst du du hast 2 Bohrungen mit Gewinden?Die Randabstände (also Abstand in X- und Abstand in Y-Richtung der selektierten Kanten) sind in allen Blöcken gleich (sprich du willst sie definitiv nicht für jeden Block einzeln eingeben können (nicht mal die Möglichkeit soll bestehen?)Das Makro läuft NUR auf Windows oder auch auf UNIX?Wie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrungen auf einer Fläche mit vorgegebenem Randabstand - Makro möglich?
tberger am 13.09.2009 um 22:23 Uhr (0)
Hallo Thomau96,ich habe zwar noch keine Geometrie von dir gesehen, aber der Beschreibung nach könnte das auch mit einer Power Copy, wie Bernd auch schon vorgeschlagen hat, gehen.Ich habe so eine Power Copy mit zwei Löchern (und auch einer spiegelbildlichen Tasche) für eine Clamp-Aussparung aufgebaut (siehe auch http://www.tobeplus.de/de/Zur%20Person/qualifications_BILDER.html und dort den Abschnitt PC_Clampaussparung im unteren Drittel der Seite)Diese PowerCopy benötigt als Input 2 Solid-Seitenflächen, kön ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
AndreasNilli am 14.09.2009 um 08:03 Uhr (0)
Hi.Irgendwie ging mir die Sache nicht aus dem Kopf und so habe ich mich mal drangesetzt, es nicht mit dem win-basierenden Code (sofern ich das richtig verstanden habe?) löschen zu wollen.Hier ist mein VorschlagCode:Sub CATMain()Set productDocument1 = CATIA.ActiveDocument Dim Path As String Dim ActPath As String Dim ActExt As String Path = CATIA.ActiveDocument.Path ActPath = Path & "" ActExt = "*.cgr" Dim TempName As String TempName = Dir$(ActPath & "*.cgr") While Len(Dir( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen
DanielFr. am 13.09.2009 um 13:17 Uhr (0)
Hallo milburn,das was du da programmiert hast funktioniert aber ist nicht gut. Das Problem ist die Documents.Collection aus CATIA.Folgendes Szenario zur Verdeutlichung:Du öffnest ein Produkt mit 10 Part. Du schließt diese wieder (über File - Close oder über das X). Jetzt schaust du die Documents-Collection an. Du wirst in 50% der Fälle feststellen das sich die Dokumente des zuvor geschlossenen Produkts noch in der Collection befinden das Produkt aber schon geschlossen ist.Das heißt dein Makro ist extrem fe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
bgrittmann am 14.09.2009 um 08:16 Uhr (0)
ServusKannst du es nicht einfach direkt machen? zBCode:Set Datei = CATIA.ActiveDocumentOrdner =Datei.PathEDIT: Hat sich scheinbar erledigt. Ich hab nur den Anfang des Themas gelesen.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 14. Sep. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
Thomas Harmening am 10.09.2009 um 12:32 Uhr (0)
müsste es nicht LEFT sein?Code:Sub CATMain()Dateipfad = CATIA.ActiveDocument.FullNameLaufwerk = Left(Dateipfad, Instr(Dateipfad, ""))Dateipfad = Left(Dateipfad, Instrrev(Dateipfad, ""))MsgBox "Laufwerk:" & Laufwerk & Chr (13) & "Dateipfad:" & Dateipfad End Sub¤dit... Link wegeworfen und Code platziert[Diese Nachricht wurde von Thomas Harmening am 10. Sep. 2009 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : right-Funktion bis zu einem Zeichen
Axel.Strasser am 10.09.2009 um 12:59 Uhr (0)
Im vbs mach ich es z.B. so:Code:Source_dir = WScript.ScriptFullNameSource_dir = left(Source_dir, inStrRev(Source_dir, ""))und noch etwas für ein rekursives Directory suchen:Code:strDirectories(0) = InputBox("Start_dir:", "Start Directory", Scriptpath)If strDirectories(0) = "" Then Wscript.QuitstrDirectories(0) = fso.GetAbsolutePathName(strDirectories(0))lngCounter = 0Do Until lngCounter Ubound(strDirectories,1) Next folder to process Set fol = fso.GetFolder(strDirectories(lngCounter)) WshShell.popup " ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter auslesen
milburn am 14.09.2009 um 09:14 Uhr (0)
Hallo DanielFr,wäre auch ein Wunder, wenn das Skript stabil wäre. Ist mein Erstes ....! ..grins..Jetzt muss ich erst mal meine Hausaufgaben machen, sprich die Bedeutung rekursiver Abläufe erkennen ect. Da fehlen mir halt noch viele Grundlagen....Der Link ist da sehr hilfreich !Bei "If TypeName(CATIA.Documents.Item(i).Name) = PartDocument" steigt er mir aus,d.h.er erkennt dass CATPart nicht und läuft bis zum Ende ohne Aktion. ??Und noch was !!Ich möchte einfach wiessen, wie oft das Bauteil z.B. "404A001" in ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Bemaßung
Cohixu am 14.09.2009 um 09:33 Uhr (0)
Hi,wie gewünscht hier das Script:Sub CatMain()## Deklaration der VariablenDim oDoc As ObjectDim Sheet As ObjectDim View As ObjectErfassen von Dokument bis AnsichtSet oDoc = CATIA.ActiveDocumentSet Sheet = oDoc.Sheets.ActiveSheetSet View = Sheet.Views.ActiveView Zeichnen der Punkte für die bemaßungDim Fact As ObjectDim Point1 As ObjectDim Point2 As ObjectDim iType As CatDimTypeDim myElements1(1)Dim selpoints(3)Dim MyDim As ObjectSet Fact = View.Factory2D Set Point1 = Fact.CreatePoint(0, 100) Set Point2 = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verweis aus einer Drawing aus, auf eine Part in einem Produkt
mkna am 14.09.2009 um 10:24 Uhr (1)
HalloIch selber bin kein Experte auf dem Gebiet der Programmierung und hangele mich mit Hilfe der Online Hilfe durch dieses Gebiet.In der Hilfe habe ich nur die Möglichkeit gefunden den vollständigen Pfad eines in einer Ansicht dargestellten Parts oder Products auszulesen (um dann ggf in einem neuen Fenster geöffenet zu werden) =============Sub Catmain()Dim drwdoc As DrawingDocumentSet drwdoc = CATIA.ActiveDocumentDim drwsheets As DrawingSheetsSet drwsheets = drwdoc.SheetsDim drwsheet As DrawingSheetSet dr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Bemaßung
DanielFr. am 03.09.2009 um 17:55 Uhr (0)
Hallo Cohixu,du machst erstmal gar nichts falsch. Es gibt Funktionen (unter anderem diese und die Selektion) deren Objekt nicht in VBA unterstützt werden. Das heißt wird eine Objekt als DrawingDimension deklariert ist die Funktion "add" entweder eingeschränkt oder gar nicht verfügbar.Um dem Problem jetzt Herr zu werden darfst du das Objekt nicht als DrawingDimension deklarieren (early Binding) sondern als Object (late Binding). Der Unterschied zwischen early und late Binding liegt somit in der Deklaration ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Bemaßung
Cohixu am 07.09.2009 um 09:21 Uhr (0)
Hallo Daniel,erstmal danke für die ausführliche Antwort. Ich habe gemäß deiner Anmerkung den Code umgeschrieben, und "MyDim" nicht als DrawingDimension sondern als Object deklariert:Sub CatMain()## Deklaration der VariablenDim oDoc As DrawingDocumentDim Sheet As DrawingSheetDim View As DrawingViewErfassen von Dokument bis AnsichtSet oDoc = CATIA.ActiveDocumentSet Sheet = oDoc.Sheets.ActiveSheetSet View = Sheet.Views.ActiveView Zeichnen der Punkte für die bemaßungDim Fact As Factory2DDim Point1 As Point2DD ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Automatische Bemaßung
DanielFr. am 08.09.2009 um 18:17 Uhr (0)
Hallo,ich sags ja late bindings sind genial zum ausführen. Zum Programmieren aber lieber die early bindings anziehen die sind IMHO (für mich als nicht 10 Finger Tipper :sleep wesentlich schneller ------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)
|
| In das Form CATIA V5 Programmierung wechseln |
