|
CATIA V5 Programmierung : Öffnen der Toolbox
JuPaV am 04.07.2011 um 15:41 Uhr (0)
Hallo! Du hast vergessen, Skizzen erzeugen.Code:Sub Konstruktion()Dim BauteilDim DokumentSet Dokument = CATIA.Documents.Add("Part")Set Bauteil = Dokument.PartDim SkizzenSet Skizzen = Bauteil.MainBody.SketchesSet UrsprungsElemente = Bauteil.OriginElementsSet Ebene = UrsprungsElemente.PlaneYZSet Skizze = Skizzen.Add(Ebene)Skizze erzeugen.Set Factory2D = Skizze.OpenEditionDim KreisSet Kreis = Factory2D.CreateClosedCircle(X, Y, r)Skizze.CloseEditionBauteil.UpdateEnd Sub------------------Mit freundlichen Grüße ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : auf koordinaten zugreifen!!!!
JuPaV am 19.07.2011 um 10:28 Uhr (0)
Hallo Du kannst AxisSystem messen und Koordinaten auslesen.Hier ist ein Beispiel:Code:Sub CATMain()Set oPart = CATIA.ActiveDocument.PartSet ASys = oPart.AxisSystems.Item("Axis System.2")Set oRef = oPart.CreateReferenceFromObject(ASys)Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)Dim Components(11)TheMeasurable.GetAxisSystem ComponentsEnd Sub------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrical tolerance
JuPaV am 20.07.2011 um 14:25 Uhr (1)
Hallo Versuch so:Code:Sub test()Set oSheets = CATIA.ActiveDocument.SheetsSet oSheet = oSheets.Item("Sheet.1")Set oView = oSheet.Views.Item("Front view")Set myDimension = oView.Dimensions.Item("Dimension.2")Dim oTolType As LongDim oDisplayMode As LongDim oTolName As StringDim oUpTolS As StringDim oLowTolS As StringDim oUpTolD As DoubleDim oLowTolD As DoublemyDimension.GetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayModeoUpTolD = -0.58oLowTolD = 0.2myDimension.SetTolerances o ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erweiterte Stückliste Blechteile
JuPaV am 26.07.2011 um 16:31 Uhr (0)
Hallo! Versuch es mal so :Code:Sub Test()Set oProd = CATIA.ActiveDocument.ProductDim sPfad As StringsPfad = CATIA.ActiveDocument.PathDim AssemblyConvertor As AssemblyConvertorSet AssemblyConvertor = oProd.GetItem("BillOfMaterial")Dim arrayOfVariantOfBSTR1(2)arrayOfVariantOfBSTR1(0) = "Part Number"arrayOfVariantOfBSTR1(1) = "Type"arrayOfVariantOfBSTR1(2) = "Quantity"Set AssConVariant = AssemblyConvertorAssConVariant.SetCurrentFormat arrayOfVariantOfBSTR1Dim arrayOfVariantOfBSTR2(2)arrayOfVariantOfBSTR2(0) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ur-SketchName bei Brep
JuPaV am 09.08.2011 um 10:16 Uhr (0)
Hallo! Versuch es mal so:Code:Sub CATMain()Set oPart = CATIA.ActiveDocument.PartSet oBody = oPart.Bodies.Item("PartBody")Set osketch = oBody.Sketches.Item("Sketch.11") neu NameSet oObjekt = osketch.GetItem("ModelElement")sName = oObjekt.InternalName GeburtsnameEnd Sub------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sections wieder löschen
JuPaV am 17.01.2012 um 11:14 Uhr (0)
Hallo! Code:Sub CATMain()Dim oprod As ProductSet oprod = CATIA.ActiveDocument.ProductSet TheSections = oprod.GetTechnologicalObject("Sections")TheSections.Remove ("Test")End Sub------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : User Selection
JuPaV am 10.04.2012 um 15:31 Uhr (0)
Hallo Deine Selektion Name ist falsch.Code:Dim osel As SelectionSet osel = CATIA.ActiveDocument.Selectionosel.ClearDim FDim Was(0)Was(0) = "HybridShapeSurfaceExplicit"F = osel.SelectElement2(Was, "test", False)------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
