|
CATIA V5 Programmierung : Eingelesene Daten aufrunden
tomtom1972 am 20.02.2009 um 06:51 Uhr (0)
Hallo,mit einer CATIA-einstellung hat das gar nichts zu tun.Mit der Round-Function Round(Zahl, AnzahlderStellen)von VBScript kannst du Zahlen definiert runden.Code:If IsNumeric(iZahl) Then iGerundeteZahl = Round(iZahl,3) --- rundet auf 3 NachkommostellenEnd if AnzahlderStellen muss zwischen 0 und 16 liegen, Zahl ist vom Datentyp LongGruß TomTom------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Probleme mit String
tomtom1972 am 23.01.2006 um 07:23 Uhr (0)
Hallo,das funktioniert mit einer einzigen Zeile:Set oPart = Catia.ActiveDocumentFor i = 1 To oPart.Part.Bodies.Count oPart.Part.Bodies.Item(i).Name = Replace(oPart.Part.Bodies.Item(i).Name, "Copy of ", "") --- Umbenennen des/der BodiesNextIn welche Schleife du es einbettest, ist dir überlassen.GrussTomTom------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen von Punkten, Ebenen, ect.
tomtom1972 am 22.04.2009 um 12:14 Uhr (0)
Hallo, Solidos,das Umbenennen von selektierten Elementen ist simpel.Selektiere alles (Punkte, sonstwas) und führe das als Script aus:Sub CATMain() Set oSel = Catia.ActiveDocument.Selection sInp = Inputbox("String vorransetzen","Selektion umbenennen","ABC") For i = 1 to oSel.Count oSel.Item(i).Value.Name = sInp & oSel.Item(i).Value.Name NextEnd SubGruß------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Masse_Schwerpunkt_von_Produkten
tomtom1972 am 12.06.2007 um 16:15 Uhr (0)
Hallo,das ist eigentlich schon ganz richtig. Die Frage ist nun nur, welches Object sich bei dir hinter "product" versteckt; deine Fehlermeldung gibt dir ja schon an, wo das Problem liegt. So gehts:Dim oInertia as ObjectSet oInertia = Catia.ActiveDocument.Product.GetTechnologicalObject("Inertia")Dim dMass As DoubledMass = oInertia.Mass --- MasseTomTom------------------tomtom1972[Diese Nachricht wurde von tomtom1972 am 12. Jun. 2007 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Copy & Paste
tomtom1972 am 01.10.2010 um 08:09 Uhr (0)
Hallo INLU,das kannst du zwar tun (die Elemente umbenennen, so das sie die gleichen Namen haben), CATIA interessiert sich aber für deine Umbenennerei nicht unbedingt.Das kannst du mal wie folgt ausprobieren:Öffne ein neues, leeres Product (PRODUCT1).Füge zwei Unterschiedliche, leere Parts ein (PART1 und PART2) und erzeuge in jedem einen Punkt, der heißt dann jeweils einfach Point.1.Jetzt startest du den Makrorekorder und erzeugst einen Coincidence Constraint zwischen den zwei Punkten. Makrorekorder anhalte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : UserRefProperties in jedem Produkt erstellen bzw. beschreiben
tomtom1972 am 25.10.2006 um 12:29 Uhr (0)
Hallo,prinzipiell geht das so (für die erste Strukturebene). Bei komplexeren Strukturen einfach rekursiv aufbauen:Set oProducts = Catia.ActiveDocument.Product.ProductsFor i = 1 To oProducts.Count Set oUserRefProps = oProducts.Item(i).ReferenceProduct.Parent.Product.UserRefProperties Set sStrParam = oUserRefProps.CreateString("Test", "") sStrParam.ValuateFromString "123"NextGrussTomTom------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Dll einbinden
tomtom1972 am 04.11.2005 um 09:10 Uhr (0)
Hallo,das ist mir soweit klar. Die Frage ist folgende:Ich erstelle von meinem VB eine dll. Mein Windows macht den Eintrag in die Reg.Jetzt will ich die dll aber jemand anderem geben (der hat keinen Eintag in der Reg).Also die Frage: Muss die dll erst in die Reg jedes PC eingetragen werden (also sowas wie ein install) oder kann ich die dll einfach irgendwo im server (netzwerk) ablegen und beim Aufrufen aus einen anderen script Catia sagen: da findest du das Ding??TomTom ------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Reihenfolge von Parts anhand durchdringender Schraube feststellen
tomtom1972 am 09.11.2012 um 10:36 Uhr (0)
Hallo,das was ich oben beschrieben habe hat sich alles aufs Programmieren in VB bezogen, nicht auf eine manuelle Vorgehensweise. Ein bischen Code: Set oSel = Catia.ActiveDocument.Selection oSel.Clear Dim InputObjectType(0) Dim Status InputObjectType(0) = "Product" ---- eine Instanz/ein Node, oder was du sonst willst Status = oSel.SelectElement3(InputObjectType, "**************** Bitte die Schraube auswählen ****************", False, CATMultiSelTriggWhenUserValidatesSelection, False) --- UserSel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Fensterzuordnung
tomtom1972 am 22.02.2006 um 19:28 Uhr (0)
Hallo,ja die Möglichkeit gibt es.Du kannst die Windows durchzählen. Die Namen entsprechen dem jeweiligen Root-Product/Part/Drawing.Also Catia.Windows.Item(i).Name wäre z.B. "Test.CATProduct", wenn in dem Fenster ein CATProduct mit diesem File-Namen geöffnet wäre.Vorsicht: Haben die Roots einen Schreibschutz, so hat der Fenster Name den Zusatz "Read Only"GrussTomTom Read Only)------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ParameterSet mit Script finden
tomtom1972 am 23.10.2006 um 08:35 Uhr (0)
Hallo krisztian,Die Parametersets sind in der Objectstruktur genauso verschachtelt aufgebaut wie im Tree.Bsp.: ein Part geöffnet (Root), Parameterset (Test) in Parameters findest du wie folgt:Catia.ActiveDocument.Part.Parameter.RootParameterSet.ParameterSets.Item(1).Parametersets.NameSiehe auch Bild im Anhang.Hoffe das beantwortet deine Frage.Einen schönen Gruss aus der alten Heimat (firmentechnisch)TomTom (Torben)------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBScript / Object required error on Selection
tomtom1972 am 07.04.2005 um 06:56 Uhr (0)
Hallo omz, versuch es einmal mit fogendem Code: Dim InputObjectType(2) Dim Status InputObjectType(0) = "Point" InputObjectType(1) = "Line" InputObjectType(2) = "HybridShapeCurveExplicit" Set mySel = CATIA.ActiveDocument.Selection Status = mySel.SelectElement2(InputObjectType, mymessage, false ) If (Status = "Normal") and (mySel.count=1) Then Set myEntity = mySel.Item(1).Value End if Funktioniert in R14Sp3 Gruss TomTom ------------------ tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
tomtom1972 am 18.04.2006 um 17:08 Uhr (0)
Hallo,das ist klar, da du den TypeName der Instance ausliest, und die ist stehts ein Product, egal ob es sich um ein CATPart oder ein CATProduct handelt.Du suchst nach dem TypeName des zur jeweiligen Instance gehöhrenden Documents. Also so:TypeName(oProducts.Item(n).ReferenceProduct.Parent)Hast du Zugriff auf VB oder VBA? Zieh mal das Catia.ActiveDocument ins WatchWindow und schau dir die ObjectStruktur an. Dann wirds klar.Beispiel siehe Anhang.GrussTomTom ------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : MultiOutput Elemente
tomtom1972 am 20.04.2007 um 20:28 Uhr (0)
Hallo dc_tke,du musst das Datum anders erzeugen und das Measurable des Punktes in deinem Code ist auch falsch.zu (1)Die Funktion zum Isolieren des Multi-Elemets, die du benötigst ist AddNewDatums(CATIAReference iElem) As CATSafeArrayVariant zu (2)Die Funktion zum Messen des Punktes ist GetPoint( CATSafeArrayVariant oCoordinates) Code:Sub CATMain()Set documents1 = CATIA.DocumentsSet partDocument1 = documents1.Add("Part")Set part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet hybridBod ...
|
| In das Form CATIA V5 Programmierung wechseln |
