|
CATIA V5 Programmierung : Ausgabe des Documents bei einer Selection
der-quest am 16.03.2007 um 16:40 Uhr (0)
Hallo zusammen!Ich sitze hier ein wenig ratlos vor einem relativ einfachen (?) Problem: Wie bekomme ich heraus, in welchem Dokument ("...CATPart") die Selection stattgefunden hat?Hintergrund: Mit dem Makro sollen durch in einem selektierten GeoSet liegende Ebenen Schnitte des Gesamtproduktes erstellt werden, die anschließend in das GeoSet wieder einkopiert werden. Zur Zeit klappt es nur "hart verdrahtet" unter Angabe des Pfades hin zu dem GeoSet. Ich schaffe es nicht, den "Ort" der Selection (außer dem Doc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausgabe des Documents bei einer Selection
der-quest am 26.03.2007 um 12:10 Uhr (0)
Ja, den Code habe ich bereits in großen Teilen geschrieben bzw. aus anderen Beiträgen aus diesem Forum übernommen. Hier ist er (an ein paar Stellen eingekürzt):Code:Sub CATMain() Ist genau ein GeoSet selektiert?Dim selektion1 As SelectionSet selektion1 = CATIA.ActiveDocument.SelectionIf selektion1.Count = 1 Then If selektion1.Item(1).Type "HybridBody" Then kein GeoSet gewählt MsgBox("Es ist kein GeoSet ausgewählt.") Exit Sub End IfElse MsgBox("Es ist genau ein GeoSet mit den Schnittebenen auszuwählen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausgabe des Documents bei einer Selection
JanF am 27.03.2007 um 09:07 Uhr (0)
Zitat:Original erstellt von der-quest:Hallo zusammen!Ich sitze hier ein wenig ratlos vor einem relativ einfachen (?) Problem: Wie bekomme ich heraus, in welchem Dokument ("...CATPart") die Selection stattgefunden hat?Code:Sub CATMain() Dim selektion1 As Selection Set selektion1 = CATIA.ActiveDocument.Selection MsgBox(selektion1.Item(1).Name)End SubFür diese selektion1 erhält man wie folgt das zugehörige Part:Code:Dim SelectedElement1 as SelectedElementSet SelectedElement1 = selektion1.FindObject("CATIAPro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausgabe des Documents bei einer Selection
der-quest am 02.04.2007 um 15:31 Uhr (0)
Hallo tomtom1972! Zitat:Original erstellt von tomtom1972:(...) wenn in einer Struktur Geometrie von einem Part in ein anderes kopiert wird, entsteht ein Context Link. Und der geht über die Instance eines Parts, also über das .Product und nicht über das Documnet. (Wenn das Part in einem seperaten Fenster geöffnet ist, entsteht eine andere Art von Link)Aha! Demnach wäre Folgendes...Code:Set partDocument1 = CATIA.Documents.Item(dasPart.Name)...evtl. durch etwas Ähnliches wie...Code:CATIA.ActiveDocument.Produc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf Text von einem Macro über Komponenteneigen. zugreifen
zoltan.bekesi am 12.04.2008 um 13:08 Uhr (0)
Hallo K.Siebert,musst nur die Zeile wie folgt korrigieren.Code:set ocText = drawingView1.Textsaus irgendeiner Grund heißt der Datentyp zwar DrawingTexts, die Collection aber Texts.Ich habe mich bei der Beipsiel auf die Hilfe von CATIA angelehnt, das kann zu solchen Fehler führen.Solche Probleme kann man in der VBA Editor schön analysieren, in dem man einen Watch für CATIA.Activedocument Global zu den Überwachungen einfügt und dort dann über den Baum von CATIA-Objekten zu der richtigen Stelle gelangt.Hoffe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf Text von einem Macro über Komponenteneigen. zugreifen
bgrittmann am 12.04.2008 um 16:19 Uhr (0)
ServusAls kleiner Hinweis: Unterscheidung von Parts, Products und Drawings:Code:If CATIA.Documents.Count = 0 thenMsgBox "KeinDokument geöffnet"Exit SubEnd ifDim oDocument As DocumentSet oDocument = CATIA.ActiveDocumentIf TypeName(oDocument) = "DrawingDocument" Then ...ElseIf TypeName(oDocument) = "PartDocument" Then ...ElseIf TypeName(oDocument) = "ProductDocument" Then ...Else MsgBox "Falsche Dokumentart geöffnet"End ifGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf Text von einem Macro über Komponenteneigen. zugreifen
K.Siebert am 09.04.2008 um 19:28 Uhr (0)
Hallo liebe Gemeinde,Weiß jemand von euch wie ich mit Hilfe eines Marcos auf einen schon vorhandenen Text zugreife (Komponenteneigenschaften) denn ich möchte denn Datei Namen Zerlegen und so denn vorhanden Text mit diesem Ergebnis befüllen. Mit dem Titel-Block Editor ist es erst mit der nächsten Version (V4.3.1 zur zeit in der Test Fase) möglichCode:Sub CATMain()__________________Ansicht bestimmen_________________________________Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf Text von einem Macro über Komponenteneigen. zugreifen
K.Siebert am 11.04.2008 um 21:25 Uhr (0)
Hallo zoltan.bekesiIch habe das alles mal getestet leider bekomme ich eine fehler meldung siehe AnhangKönntest du bitte das Skript noch mal ansehen.Ich habe da noch etwas angepasst.Leider bekomme ich eine fehler meldung wenn ich deinen Code einfüge.Ich weiß aber nicht warum.Code:Sub CATMain()__________________Ansicht bestimmen_________________________________Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.Sh ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Intersection automatisch deaktivieren
DanielFr. am 29.03.2010 um 14:53 Uhr (0)
Hallo,in dem die in einer Reaction (die bei einem Update ausgelöst wirst) kontrollierst ob es einen Fehler bei der Erstellung geben würde. Ist dies nicht der Fall existiert auch die Intersection. Würde CATIA einen Fehler melden dann gibt es keine Intersection und diese muss deaktiviert werden------------------MFG DanielSysteminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA & Dateiname bzw. Dateiendung auslesen
Maetes am 10.08.2010 um 15:15 Uhr (0)
Ich fasse folgende Bedinungen zusammen (Hat jemand noch zusätzliche Informationen? Bzw. sieht Fehler?): Documents enthält unter anderem auch versteckte Dateien aus Drawings bzw. Products. behandelt und ändert IGS und STP als CATPart aktueller Dateiname auch bei Dateinamensänderung (ohne Endung) enthält auch Dateiendungen nicht gespeicherter Dokumente Pfad nur bei gespeicherten Catiaformaten auslesbar Windows zeigt immer die richtige Dateiendung Bei nicht gespeicherten Dokumenten fe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros aus Makro heraus ausführen
Christian.O am 02.12.2010 um 18:41 Uhr (0)
Servus,entweder soCode:Private Sub cmd_Change_Balloon_Propterties_Click() Makroaufruf: Change_Balloon_Propterties ***Fenster schließen Unload Me ***Fenster anzeigen / vbModeless damit man bei geöffneter Userform etwas selektieren kann Change_Balloon_Propterties.Show vbModelessEnd Suboder soCode:Private Sub cmd_Rename_Object_Click() Makroaufruf: Rename_Object ***Fenster schließen Unload Me ***Deklarationen für Function-Aufruf strProjekt = "OC_GUI.catvba" strMakro = "Rename_Object" strMakrostart ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makros aus Makro heraus ausführen
Bertel am 08.12.2010 um 08:38 Uhr (0)
Hallo studmija,in CATScript geht das so:Dim params()CATIA.SystemService.ExecuteScript "C:Rename", catScriptLibraryTypeDirectory, "Makro.CATScript", "CATMain", paramsGrußBertel
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : BOM NACH Drawing VBA
bgrittmann am 22.12.2011 um 15:06 Uhr (1)
ServusDas Problem ist, das diese Benutzerparameter (wahrscheinlich noch Catia-Sprachabhängig) einen anderen Namen haben. In der deutschen Umgebung ergibt sich zB folgender Parametername "Einzelteil_1EigenschaftenMATERIAL".Entweder müsstest du diesen Namen immer zusammenstellen. Oder mit einer Funktion den richtigen Parameter suchen lassen (ungetestet):Code:Function UserparameterByName(oProduct As Product, strParameter As String) As Parameter Dim UserParameters As Parameters Dim oParameter As Parameter ...
|
| In das Form CATIA V5 Programmierung wechseln |
