|
CATIA V5 Programmierung : Fehler bei der Erzeugung von Geo Sets
zoltan.bekesi am 03.05.2010 um 19:29 Uhr (0)
Servus Christian,1) Option Explicit steht richtig in dein Code. Du darfst Kommentare und Leerzeilen davor haben, aber nichts anderes.2) Du musst in VBA nichst deklarieren.Wenn du aber Option Explicit verwendest (am Anfang jede Moduls geschrieben), musst du alles deklarieren. Hierzu reicht ein einfacher Dim Variablenname. Damit erreichst du aber, dass VBA für dich alles zuerst als Variant anlegt, d.h. die für den Objekt relevante Properties und Methoden nicht im IntelliSense (pulldown nach drücken einer . a ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokument geöffnet
bgrittmann am 04.05.2010 um 09:37 Uhr (0)
ServusEin bestimmtes Dokument oder nur allgemein?Anbei ein Beispiel für eine Allgemeine Überprüfung am Makroanfang:Code:Sub CATMain()Dokument geöffnet?If CATIA.Documents.Count = 0 Then Box = MsgBox("Es wurde kein aktives Dokument identifiziert" + Chr(10) + "Bitte oeffnen Sie zuerst ein Dokument und starten Sie dann das Makro erneut", vbInformation, "Hinweis") Exit SubEnd IfDim oDocument As DocumentSet oDocument = CATIA.ActiveDocumentPart geöffnet?If TypeName(oDocument) "PartDocument" Then Box = MsgBox( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokument geöffnet
EngineeredByRobberts am 04.05.2010 um 09:38 Uhr (0)
CATIA.Documents.Count = 0 müsste eigentlich funktionierenedit: Bernd war schneller ------------------- Robert[Diese Nachricht wurde von EngineeredByRobberts am 04. Mai. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 10:55 Uhr (0)
Über CATIA.SystemConfiguration müsste es gehenAus der ‘V5Automation.chm’ :Dim SystemConfiguration1 As SystemConfigurationSet SystemConfiguration1 = CATIA.SystemConfigurationReDim NameArray(SystemConfiguration1.ProductNamesCount)SystemConfiguration1.GetProductNames NameArrayMsgBox "IsProductAuthorized for product " & NameArray(0) & " returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
Maetes am 04.05.2010 um 12:02 Uhr (0)
Hmm stimmt! Als CATScript funktioniert es. In dem Fall muss ich mal schaun wie ich das in VBA migrieren kann.Danke!/edit:So funktionierts:Sub CATMain() Dim NameArray() As Variant Dim SystemConfiguration1 Dim I, A As Integer Set SystemConfiguration1 = CATIA.SystemConfiguration A = SystemConfiguration1.ProductCount - 1 ReDim NameArray(A) SystemConfiguration1.GetProductNames NameArray For I = 0 To A If SystemConfiguration1.IsProductAuthorized(NameArray(I)) And Right(NameArray(I), 3) "prd" Then ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 11:32 Uhr (0)
Womit mal wieder bewiesen ist das man NIE was direkt aus der V5Automation.chm kopieren sollteDim NameArray()Dim SystemConfiguration1 As SystemConfigurationSet SystemConfiguration1 = CATIA.SystemConfigurationReDim NameArray(SystemConfiguration1.ProductCount-1)SystemConfiguration1.GetProductNames NameArrayMsgBox "IsProductAuthorized for product " & NameArray(0) & " returns " & SystemConfiguration1.IsProductAuthorized(NameArray(0))------------------- Robert
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Lizenz ermitteln?
EngineeredByRobberts am 04.05.2010 um 11:52 Uhr (0)
Als CATScript funktioniert das ganze, mit VB kenn ich mich leider zu wenig ausNeue Version:Option ExplicitLanguage="CATSCRIPT"Sub CATMain()Dim NameArray()Dim SystemConfiguration1 As SystemConfigurationDim I, A As IntegerSet SystemConfiguration1 = CATIA.SystemConfigurationA = SystemConfiguration1.ProductCount-1ReDim NameArray(A)SystemConfiguration1.GetProductNames NameArrayFor I = 0 to A If SystemConfiguration1.IsProductAuthorized(NameArray(I)) And right(NameArray(I),3) "prd" Then MsgBox "aktive Lizenz: ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro allcatpart erzeugen
Zwenne12 am 04.05.2010 um 15:54 Uhr (0)
Hallo Amboß,also wenn ich das richtig verstehe möchtest Du alle Produkte in einem Produkt in allcatparts umwandeln. Das kannst Du mit einer Schleife realisieren, die Parts und Products unterscheidet und dann eben von den Products AllCatParts macht.Hier mal ein Beispiel für eine Schleife:Code:Sub CATMain ()Dim intDocObjDim intProdObjDim intProdsObjSet intDocObj = CATIA.ActiveDocumentSet intProdObj = intDocObj.ProductSet intProdsObj = intProdObj.ProductsFor i = 1 To intProdsObj.Count If Typename (intProdsObj ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : eine CATIA.applictaion von mehreren anziehen
tomtom1972 am 15.03.2017 um 06:32 Uhr (1)
Hallo Forum,ich suche seit längerem nach einer Möglichkeit bei mehreren gleichzeitig auf einem Rechner laufenden CATIA Sessions (dafür ist nur eine Lizenz nötig) aus einer (z.B. der dritten) mittels CATScript eine .exe aufzurufen (VB6 / .NET) und aus diesem extern laufenden Makro dann wieder auf die korrekte CATIA Session zuzugreifen.(... Set Catia = GetObject(, "Catia.Application") ...)Leider wird immer (!) die zuerst gestartete CATIA Instanz angezogen.Kennt jemand irgendeinen Ansatz für mein Problem?Gruß ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dokument geöffnet
zoltan.bekesi am 04.05.2010 um 18:01 Uhr (0)
Hallo Zusammen,bis letzte Woche dachte ich auch, dass CATIA.Documents.Count=0 eine gute Lösung ist, leider aber nicht immer.Es kann sein, dass ein Dokument schon geöffnet wurde und wieder geschlossen.CATIA merkt es leider und Document.Count 0 ist wahr, obwohl man keinen Dokument sieht.Deshalb mache ich in letzter Zeit noch eine Prüfung: Catia.Windows.Count=0.Das müsste diese Problem lösen.Gruß,Zoltan
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : For-Schleife mit Aktivitätsabfrage
Zwenne12 am 05.05.2010 um 09:50 Uhr (1)
Hallo Chrisma,um auf die Methoden Activate, InActivate und IsInactive zuzugreifen musst Du noch ein Objekt der Klasse Part deklarieren.Code:Set intPartObj = CATIA.ActiveDocument.PartFor i = 1 To sel.Count Set countname = sel.Item (i).Value If intPartObj.IsInactive (countname) Then On Error Resume Next intPartObj.Activate countname intPartObj.UpdateObject countname If Err.Number 0 Then intPartObj.Inactivate countname intPartObj.UpdateObject countname End If On Error Goto 0 End IfNext W ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSet in Body / Körper
tobiley am 30.04.2010 um 19:46 Uhr (0)
Hallo,Habe gerade kein Catia zur Verfügung, werde es in den nächsten Tagen mal ausprobieren.Allerdings benötigt man für deine Methode die Knowledge Advisor Linzenz oder?MfgTobi[Diese Nachricht wurde von tobiley am 05. Mai. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSet in Body / Körper
tobiley am 05.05.2010 um 11:39 Uhr (0)
Hallo Bobby_Joe,deine Lösung funktioniert, auch ohne KWA-Lizenz!Vielen Dank!Einfaches Beispiel siehe unten.Habe bis jetzt keine andere Lösung gefunden. Code:Set MyPart = CATIA.ActiveDocument.PartSet mybody = MyPart.MainBodySet Params = MyPart.Parameters Parameterset im Body erstellenParams.CreateSetOfParameters mybodySet mybody = MyPart.MainBodySet mySelection = CATIA.ActiveDocument.Selection mySelection.ClearmySelection.Add mybodyParameterset suchenmySelection.Search "CATKnowledgeSearch.AdvisorParameterS ...
|
| In das Form CATIA V5 Programmierung wechseln |
