|
CATIA V5 Programmierung : Konvertieren in VBA
meisterlumpi am 30.08.2011 um 16:45 Uhr (0)
das hat nichts mit der lizenz zu tun.probier mal die variable aCoord1 als 3-dimensionales variant array zu deklarieren.Code:Dim aCoord1(3)------------------ NJ | Inoffizielle CATIA Hilfeseite | ???
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text auf weißem Hintergrund drucken
meisterlumpi am 31.08.2011 um 15:36 Uhr (0)
Hallo,ist das die eigenschaft TextBlanking?Code:Dim drawingDocument1 As DrawingDocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Blatt .1")drawingSheet1.PageSetup.TextBlanking = Truesiehe VBA doku ("F1" im vba editor) suchen - InfInterfaces PageSetup (Object)------------------ NJ | Inoffizielle CATIA Hilfeseite | ???
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update Schleife
meisterlumpi am 01.09.2011 um 09:25 Uhr (0)
zu deinem update problem. du könntest einfach mal Code:part1.updatean der stelle ausführen, wo du deine sketche updaten willst. damit sollten alle elemente im part aktualisiert werden.Leider wird mir aus deinem code nicht ganz ersichtlich, was du genau vor hast. Ein paar hinweise:es reicht ausCode:Set documents1 = CATIA.DocumentsundCode:Set partDocument1 = documents1.Item("FUGE_AS_VORBEIDREHEN_TV_AM_KF.CATPart")usw. einmal am anfang zu definieren.Variablen sollten vor ihrer benutzung deklariert werdenCode: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update Schleife
meisterlumpi am 01.09.2011 um 12:59 Uhr (0)
ich bin mir nicht sicher ob das der richtige weg ist das part zu updaten. es ist schwer viel dazu zu sagen ohne das part zu kennen.. aber wenn das manuelle update nicht geht bezweifle ich das es per makro funktionieren wird.in deinem neuen code fehlt in den for-schleifen jetzt dasCode:Set sketch1 = sketches1.Item("Sketch."+ CStr(I))die anweisung muss schon in jeder schleife drinstehen, sonst macht die 67 mal das gleiche, bzw. gar nichts.das Code:Dim documents1 as documentsSet documents1 = CATIA.Documentsis ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User-Selektion umbennen
meisterlumpi am 17.08.2011 um 10:29 Uhr (0)
generell sollte man für neue projekte auch immer ein neues VBA projekt anlegen. So startet man auch wieder mit den standard einstellungen und übernimmt nicht die vom vorherigen projekt, wo man nur die module gelöscht hat. (weil du ja auch nicht unbedingt weißt was der ersteller des Projekts so alles geändert hat und was davon deinen code "behindern" wird)neues projekt erstellst du in CATIA - ALT + F8 - Makrobibliotheken - BibTyp auf VBA-Projekte stellen - Neue Bib erzeugenüber Vorhandene Bib hinzufügen kan ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : txt-file (Zeile bestimmen)
meisterlumpi am 06.09.2011 um 13:33 Uhr (0)
die zeile Code:PathToINIFile = "C: est.ini"musst du natürlich anpassen. falls du die datei C: est.ini nicht anlegen darfst (weil du keine schreibrechte auf C: hast z.b.), dann wirds nicht funktionieren. das skript überprüft weder, ob man schreibrechte hat, noch ob die ini wirklich existiert (beim auslesen eines wertes).eine fertige funktion zum auslesen bestimmter zeilen findest du hier http://www.vbarchiv.net/tipps/tipp_970-bestimmte-zeile-aus-einer-textdatei-auslesen.ht ml du könntest bei dir mal versuch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Object auslesen, auf welches eine Reference zeigt
meisterlumpi am 06.09.2011 um 16:58 Uhr (0)
in einem part document würde folgendes funktionierenCode: Dim part1 as Part Set part1 = CATIA.ActiveDocument.Part Dim ref1 as Reference Set ref1 = ... deine Reference Dim object1 As Object Set object1 = part1.FindObjectByName(ref1.DisplayName)gruß------------------ NJ | Inoffizielle CATIA Hilfeseite | ???
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Object auslesen, auf welches eine Reference zeigt
meisterlumpi am 08.09.2011 um 14:27 Uhr (0)
nochmal zu deiner frage Zitat:Also explizit: Wie komme ich von einer Publication auf das publizierte Element?mein vorschlagCode:Function GetObjectFromPublication(iPublication As Publication, Optional iDocument As Document) As Object On Error Resume Next Dim reference1 As Reference Set reference1 = iPublication.Valuation If iDocument Is Nothing Then _ Set iDocument = CATIA.ActiveDocument With iDocument.Selection .Clear .Add reference1 Set GetObjectFromPublication = .Item(1).Value End W ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update Schleife
meisterlumpi am 31.08.2011 um 12:17 Uhr (0)
kannst du deinen bisherigen code mal posten?------------------ NJ | Inoffizielle CATIA Hilfeseite | ???
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fehler beim Aktualisieren erkennen
meisterlumpi am 10.09.2011 um 17:11 Uhr (0)
würde am anfang mitCode:on error resume nextdas abbrechen bei fehlern ausschalten. abfangen kannst du fehler dann mitCode:if err.number 0 then fehler aufgetreten ... ... err.clear fehler zurücksetzenend ifden zusammenbau löschen kannst du mitCode:with CATIA.activedocument.selection .clear .add #dein zusammenbau# .deleteend with
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Properties PLM Document Attributes abfragen
meisterlumpi am 15.09.2011 um 16:40 Uhr (0)
folgende sub gibt den namen gefolgt von Dokumententyp für jedes geöffnete dokument in einer msgbox aus.Code:Sub catmain() For Each Document1 In CATIA.Documents MsgBox Document1.Name & ", Typ: " & TypeName(Document1) NextEnd Subhier können auch dummy dokumente gefunden werden, die heißen irgendwas mit ..dummy.. und sind vom typ "document". wenn du die rausfiltern willst würde ich noch eine if-abfrage einbauen in der formCode:Sub catmain() For Each Document1 In CATIA.Documents If Typename(Document1) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartNumber im Zwischenablage Kopieren
meisterlumpi am 15.09.2011 um 15:52 Uhr (1)
Zitat:Ich möchte aus dem Objeckt, welches ich in CATIA selektiert habe (sprich: CATIA.ActiveDocument.Selection), den PartNumber holen und diesen String in der zwischenablage habenCode:Sub CATMain() Dim oData As New DataObject Dim sText As String With CATIA.ActiveDocument.Selection If .Count 0 Then sText = .Item(1).Value.PartNumber Else sText = "" End If End With With oData .SetText sText .PutInClipboard End WithEnd Sub"Microso ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausspannung in CAM Process umbenennen
meisterlumpi am 20.09.2011 um 21:25 Uhr (0)
Halloprobiers mal so..grußCode:Sub CATMain() Dim processDocument1 As ProcessDocument Set processDocument1 = CATIA.ActiveDocument Dim PPR1 As PPRDocument Set PPR1 = processDocument1.PPRDocument Dim process1 As PPRActivity Set process1 = PPR1.Processes.Item(1) Set process1 = PPR1.Processes.Item("Process") process1.ChildrenActivities.Item(2).Name = "Standartaufspannung" process1.ChildrenActivities.GetItem("Aufspannung.1").Name = "Standartaufspannung" End Sub
|
| In das Form CATIA V5 Programmierung wechseln |
