|
CATIA V5 Programmierung : Erstellung von geosets mit fortlaufender Nummerierung
bgrittmann am 07.09.2011 um 18:10 Uhr (0)
ServusAnbei ein Beispiel.Diese basiert auf der Möglichkeit das GeoSet per Namen anzusprechen, falls ein Fehler auftritt wird dann das GeoSet angelegt.Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodyDim i As IntegerDim Name As StringFehlerbehandlng auschaltenOn Error Resume NextFor i = 1 To 99 Name = "Test_" & Right(C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Object auslesen, auf welches eine Reference zeigt
bgrittmann am 07.09.2011 um 21:22 Uhr (0)
Servus TomIst die Verwendung einer Selection für dich auch zu langsam, wenn du zuvor CATIA.HSOSynchronized=False setzt?(ich vermute dass du dies schon zuvor gesetzt hast)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Body with Link ==> Link umhängen
bgrittmann am 14.09.2011 um 12:10 Uhr (0)
ServusUm eine Nachfrage nach dem Austauschen eines Körpers in einer Booleschen Operation (per PM) zu beantworten, anbei ein Beispiel:Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim bodies1 As BodiesSet bodies1 = part1.BodiesDim body1 As BodySet body1 = part1.MainBodyDim body2 As BodySet body2 = bodies1.Item("TEST")Dim oRef As ReferenceSet oRef = part1.CreateReferenceFromObject(body2)Dim shapes1 As ShapesSet shapes ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Axis Update
bgrittmann am 17.09.2011 um 15:49 Uhr (0)
ServusWo hast du den Befehl UpdateAxissystem her?Versuch es mal so:Code:...Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim axisSystems1 As AxisSystemsSet axisSystems1 = part1.AxisSystemsDim axisSystem1 As AxisSystemSet axisSystem1 = axisSystems1.Item("Absolutes Achsensystem")oder: Set axisSystem1 = axisSystems1.Item(1)part1.UpdateObject axisSystem1...GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ausspannung in CAM Process umbenennen
bgrittmann am 21.09.2011 um 09:37 Uhr (0)
ServusIm CATIA-Installationsverzeichnis die Datei: V5Automation.chm(einfach danach suchen)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VB.net Steuerelemente durchlaufen
bgrittmann am 22.09.2011 um 18:36 Uhr (0)
ServusWillkommen im Forum. Bitte Sytemnfo ausfüllen.Was willst du in Catia auslesen? Mit was willst du diese vergleichen? (ggf Screenshot und Code-Schnippsel)GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkt per VBS in bestehende Struktur
bgrittmann am 28.09.2011 um 21:58 Uhr (0)
ServusWillkommen im Forum. Bitte Systeminfo ausfüllen.Du bist schon auf dem richtigen Weg. Anbei eine mögliche Lösung:Code:Sub CATMain()Set mypart= catia.activeDocument.partSet xwert = mypart.parameters.item("X_Wert")Set hybridShapeFactory1 = mypart.hybridShapeFactorySet hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0, 0, 0)Set hybridBodies1 = mypart.HybridBodiesSet hybridBody1 = hybridBodies1.Item("Basis")Set hybridBodies2 = hybridBody1.HybridBodiesSet hybridBody2 = hybridBodies2.Item("Pun ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : deutschspr. Makros in englischspr. V5
bgrittmann am 29.09.2011 um 13:32 Uhr (0)
ServusMit hoher Wahrscheinlichkeit: ja.Entweder werden Startcommands im Makro verwendet oder Körper, Linie, Ansichten, ... werden über deutsche Namen angesprochen.GrußBerndPS: Oder kannst du nicht einfach an deinem Arbeitsplatz CATIA auf deutsch umschalten?------------------Warum einfach, wenn es auch kompliziert geht.[Diese Nachricht wurde von bgrittmann am 29. Sep. 2011 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : in Produkt externes Part durch select ersetzen
bgrittmann am 30.09.2011 um 17:13 Uhr (0)
ServusZum ein Objekt in einem anderen Dokument wählen zu können, muss du die Methode SelectElement4 verwenden.Dann wird eine Document und ein Selection zurückgeliefert.Anbei ein Beispiel:Code:Sub CATMain() Dim oDocs As Documents Dim oDoc As Document Dim PartDocument As Document Dim oProd As Product Dim oSel As Selection Dim oSelB As Object Dim aAuswahlFilter(0) Dim Status As String Dim oPartAlt As Product Dim oPartNeu As Product Dim path As String Set oDoc = CATIA.ActiveDocument Set oDocs = C ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Setzen der Option Load referenced documents
bgrittmann am 14.10.2011 um 10:57 Uhr (0)
ServusAlso der Makrorekorder spukt für das deaktivieren diesen Code aus:Code:Language="VBSCRIPT"Sub CATMain()Dim settingControllers1 As SettingControllersSet settingControllers1 = CATIA.SettingControllersDim generalSessionSettingAtt1 As SettingControllerSet generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")generalSessionSettingAtt1.RefDoc = FalsegeneralSessionSettingAtt1.SaveRepositoryEnd SubGrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Rename Publication ( Veröffentlichung umbenennen)
bgrittmann am 06.10.2011 um 15:54 Uhr (0)
ServusIMHO gibt dir "Valuation" die Referenz nicht die Publication zurück.Anbei wein Beispiel wie es klappen könnte: Zitat:Sub CATMain()On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i) MyString = ref1.Name MyString = Replace(MyString, "ö", "oe") MyString = Replace(MyString, "ä", "ae") ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Unix Systemvariable auslesen
bgrittmann am 07.10.2011 um 09:19 Uhr (0)
ServusVersuch mal:CATIA.SystemService.Environ("USER")GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Namen auslesen
bgrittmann am 07.10.2011 um 16:34 Uhr (0)
ServusDu könntest ach über das direkt ansprechen des Bodies per Name und einer Fehlerbehandlung, feststellen welcher Body schon vorhanden ist.Anbei ein Beispiel (für GeometrischeSets und einen anderen Namen/Nummerierung):Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodyDim i As IntegerDim Name As StringFehlerbehandlng au ...
|
| In das Form CATIA V5 Programmierung wechseln |
