|
CATIA V5 Programmierung : Teilereferenzlink bei Erstellung einer Zeichnung umbiegen
ser4 am 30.11.2011 um 15:39 Uhr (0)
Hallo Forum,habe schon Suchfunktion bemüht, bin anscheinend zu dumm um "richtige" Posts zu finden ggf. gefundene richtig interpretieren.Ich habe folgende Frage: es ist ein Verzeichnis mit 3d-Teilen(vorerst CATParts) vorhanden. Ein angedachtes Macro soll Part aufrufen, eine Zeichnung vom Template(NewFrom) erstellen und vom geöffnetem Part ein Zeichnungsansicht erstellen. Danach wird die Zeichnung aktualisiert, und mit SaveAs abgespeichert.Zeichnungstemplate beinhaltet externe Referenzen, die auf ein Parttem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 2D-Zeichnung - Maße in Klammern setzen
John-117 am 06.04.2010 um 12:03 Uhr (0)
Hallo,Ich habe das mal versucht, wie du gesagt hast.Doch wenn ich ich das unten aufgeführte Makro ausfühe bekomme ich die Meldung:"Object requiered"Kann es sein das ich mich da irgendwie vertan hab?-------------------------------------------------Sub CATMain()Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentSet oSelection = CATIA.ActiveDocument.SelectionDim InputObjectType(0)InputObjectType(0) = "AnyObject"Status = oSelection.SelectElement2(InputObjectType, "Wählen Sie die ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mittellinien für Fräs-Taschen in Zeichnung per Makro
tberger am 12.09.2019 um 13:58 Uhr (1)
Hi,du kannst das doch auch mit dem Befehl "Achslinie" direkt abgreifen.Einfach den Befehl wählen und die parallelen Kanten anwählen für die Mittellinie.Oder Kreiskante und angrenzende Linie für senkrechte Achslinie durch Kreismittelpunkt.Das per Makro zu gestalten geht im Prinzip schon, erfordert aber da auch Zuarbeit des Users da es ohne Selektionen der benötigten Elemente nicht geht.------------------Grüße aus dem ThurgauThomas+++++++++++++++++++++++++++++++++CATIA - eine Laune der Natur ...[Diese Nachri ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrtabelle in Zeichnung updaten
Christian.O am 26.10.2010 um 20:05 Uhr (0)
Servus,am besten schaust du dir mal die Makros in Ruhe an was die so können.Ein Automatisches Update geht mit meinen Version nicht. Die Tabelle muß immer neu ausgelesen werden und danach in der Zeichung wieder neu erstellt werden. Die alte kann man dann einfach löschen. So wie es aussieht könnte wenigsten die Tabelle mit den Kühlbohrungen erstellt werden. Bezüglich Tiefe hab ich hier im Forum schon mal was gelesen (wenn ich mir nicht ganz irre). Das wäre dann auch kein Problem das zu integrieren. Die Punkt ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Alle Blätter einer Zeichnung mit Makro drucken (ohne Zeichnungsname in der Benennung)
Lionel Hutz am 23.09.2020 um 13:43 Uhr (1)
Wenn du den String, den du entfernt haben möchtest kennst, dann kannst du ihn mittels replace eliminieren.Code:PDFPath = replace(PDFPath , "Gestelle_" , "")
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Herauslesen von Normen aus Zeichnung
davidmeyer98 am 27.02.2020 um 10:12 Uhr (1)
Besten Dank für die schnelle Antwort. Ich habe den Quellcode nun etwas umgebaut: For I = 1 To CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Count If (CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Text = "Zeichnungsnummer") Then Z_Nummer = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(2).Texts.Item(I).Text MsgBox Z_Nummer Exit For End IfNextProblem ist aber noch, dass er halt genau nach dem Wort sucht, wie du schon gesagt hast. Allerdings stehen die Normen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnung Textfeld automatisch ausfüllen
NT24 am 20.11.2006 um 08:51 Uhr (0)
Guten Morgen ForumIch habe leider immer noch das Problem das das Script noch nicht Funktioniert!In der Zeile Set drawingTexts1 = DrwView.Texts Kommt die Fehlermeldung (424) Objekt erforderlich Code:Private Sub CommandButton1_Click()oName = "TEST"Dim drawingTexts1 As DrawingTextsSet drawingTexts1 = drawingView1.TextsSet drawingTexts1 = DrwView.TextsDim drawingText1 As DrawingTextDim n As Integern = 0Don = n + 1If drawingTexts1.Item(n).Name = oName Then Set drawingText1 = drawingTexts1.Item(n) drawingText1.t ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verknüpfung einer Zeichnung ändern
Lusilnie am 24.05.2006 um 00:34 Uhr (0)
Hallo Bobby_Joe2001,natürlich funktioniert das, um die View mit dem Dokument zu verknüpfen. Man kann anstelle von:MyView.GenerativeLinks.AddLink MyDoc.Productauch:MyView.GenerativeBehavior.document = MyDocverwenden. Doch wie gesagt, liegt hier das Problem in den bestehenden Maßen. Die sind an eine "non-visible" Geometrie gekoppelt und nicht an das "neu" verbundene Original, also "nicht mehr dynamisch", sprich assoziativ!Oder ist dies doch der Fall? Hast Du schon mal das Ergebnis nach einer Änderung des Par ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Verknüpfung einer Zeichnung ändern
Bobby_Joe2001 am 23.05.2006 um 20:31 Uhr (0)
Zitat:Original erstellt von mkna:Hallo Bobby_Joe2001Kannst Du mir den Befehl für den Schritt"Fügt das part als neuen link zur betreffenden Ansicht hinzu"nennen ?MartinBitteschön Code:Sub CATMain() Objectverweis für 3. View vom aktiven Blatt Set MyView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(3) Objectverweis für 1. Dokument in der Dokumentliste, das ist z.B. ein Part Set MyDoc = CATIA.Documents.Item(1) Alle Links der Ansicht löschen MyView.GenerativeLinks.RemoveAllLinks Der Ansich ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Drawing: Werte einer Tabelle auf der Zeichnung auslesen
muelleal am 02.03.2022 um 13:00 Uhr (15)
Hallo,ich möchte mit einem Makro die Werte einer makierten Tabelle auslesen.Mit folgendem Befehl kann ich den Namen der Tabelle auslesen:Objekt.CompRef.Tables.Item(1).NameUnd auch die Anzahl der Zeilen:Objekt.CompRef.Tables.Item(1).NumberOfRowsWie komme ich jetzt aber an den Text der in der jeweiligen Zeile ist?Vielen Dank für eure Unterstützung.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umlaute in einer Zeichnung erstezen
roccat am 14.10.2010 um 16:19 Uhr (1)
Hallo Henry,Durchmesserzeichen ist nicht gleich Durchmesserzeichen.Wenn das Durchmesserzeichen mit dem ASCII-Code (216) also mit VBA.Chr(216)erzeugt wurde, ist das alles überhaupt kein Problem. Sollte das Durchmesser Zeichen über die Symbolleiste von Catia hinzugefügt sein wird´s bissl Schwierig.Der String kommt schon gar nicht richtig in VB an. Aus dem Durchmesserzeichen wird ein "?" und ein " ". Was mir den ASCII-Code 63 und 13 Ausgibt. Das ergibt aber Rückwerts nicht mehr das Durchmesserzeichen. Die Fra ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro um Zahlen in Zeichnung zu setzen
Zeus34 am 26.07.2011 um 10:30 Uhr (0)
Hallo Thomas,habe das Makro mal getestet.Es funktioniert so weit.Es sollte nur so sein das ich das Makro nur einmal starten muß und dann sollte beim ersten Klick die Zahl 1 ausgegeben werden....dann beim nächsten Klick die Zahl 2..usw.Das ganze sollte Blatt übergreifend gehen.Sollte das blattübergreifende nicht gehen...wäre es schön wenn ich beim zweiten Blatt die Zahl manuell eingeben könnte mit der man beginnen will.Wenn ich auf Blatt1 mit der Zahl 5 aufgehört habe sollte es auf Blatt2 mit der Zahl 6 wei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro um Zahlen in Zeichnung zu setzen
Zeus34 am 28.07.2011 um 09:48 Uhr (0)
Sub CATMain()Dim ZAEHLER As integerDim StatusDim Position(1)Dim drawingTexts1 As DrawingTextsDim drawingText1 As DrawingTextDim Textbezeichnung As Stringset drawingtexts1 = catia.activedocument.sheets.activesheet.views.activeview.textszaehler = inputbox ("Anfangs Nr :")do CATIA.ActiveWindow.ActiveViewer.Reframe Fit in PageStatus = CATIA.ActiveDocument.Indicate2D("Punkt wählen (Abbr. mit ESC)", Position)If (Status = "Cancel") ThenMsgBox "Abgebrochen"Exit SubEnd IfOn Error Resume NextTextbezeichnung = "Labe ...
|
| In das Form CATIA V5 Programmierung wechseln |
