|
CATIA V5 Programmierung : Flexible/ Rigid SubAssembly
JuPaV am 11.11.2010 um 15:32 Uhr (0)
Hallo! Antwort laut: flexible Unterbaugruppe kann nicht fixieren.Hier ist ein Beispiel:Sub CATMain()Set oProd = CATIA.ActiveDocument.ProductSet Constrs = oProd.Connections("CATIAConstraints")For i = 1 To oProd.Products.Count sVaterName = oProd.Name sUnterProdName = oProd.Products.Item(i).Name sRefName = sVaterName & "/" & sUnterProdName & "/!" & sVaterName & "/" & sUnterProdName & "/" Set oRef = oProd.CreateReferenceFromName(sRefName) On Error Resume Next Set Constr = Constrs.AddMonoEltCst(catCstTyp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Join einfärben
JuPaV am 08.12.2010 um 13:58 Uhr (0)
Hallo! code:-----------------------CATIA.ActiveDocument.Selection.Add Join line SelectionSet visProperties1 = CATIA.ActiveDocument.Selection.VisPropertiesvisProperties1.SetRealColor 0, 128, 0, 1 FarbevisProperties1.SetRealLineType 4, 1 Line TypevisProperties1.SetRealWidth 4, 1 Dick Line-----------------------------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia V5 - 3D-Linie mittels VBA strichelen und einfärben
JuPaV am 16.11.2010 um 16:35 Uhr (0)
Hallo! Das ist einfach:CATIA.ActiveDocument.Selection.Add Line line SelectionSet visProperties1 = CATIA.ActiveDocument.Selection.VisProperties visProperties1.SetRealColor 0, 128, 0, 1 FarbevisProperties1.SetRealLineType 4, 1 Line TypevisProperties1.SetRealWidth 4, 1 Dick Line------------------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 |
|
CATIA V5 Programmierung : Makro gibt nur Zahlenwerte aus keine Buchstaben
JuPaV am 05.07.2011 um 17:57 Uhr (0)
Hallo Du kannst nicht.Schau mal Methods: Zitat:o Sub SetLayer( CatVisLayerType iLayerType, long iLayerValue) Sets the layer for the current selection. Note: This property is global for the object. Parameters: iLayerType the type of the layer iLayerValue A value between 0 to 1000 This parameter is used only when the type of the layer is catVisLayerBasic. ------------------Mit freundlichen Grüßen,JuPaV
|
| 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 : Bohrungsabstand
JuPaV am 13.04.2011 um 10:38 Uhr (0)
Hallo spidermat! Code:Sub CATMain()Set odoc = CATIA.DocumentsSet oPart_01 = odoc.Item("Part1.CATPart").PartSet oBody_01 = oPart_01.MainBodySet oHole_01 = oBody_01.Shapes.Item("Hole.1")Set GeoElements = oHole_01.Sketch.GeometricElementsSet oPoint_01 = GeoElements.Item("Point.1") point Part.1Set oref_01 = oPart_01.CreateReferenceFromObject(oPoint_01) Reference Point.1Set oPart_02 = odoc.Item("Part2.CATPart").PartSet oBody_02 = oPart_02.MainBodySet oHole_02 = oBody_02.Shapes.Item("Hole.1")Set GeoElements = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Krümmung einer ebenen Kurve
JuPaV am 08.06.2011 um 11:09 Uhr (0)
Hallo! Du kannst Krümmung von Kurve über „Formula“ berechnen.Beispiel:Set formula14 = Part.Relations.CreateFormula("Formula.14", "", Param, "curvature(Curve,Point)/1000000mm ")------------------Mit freundlichen Grüßen,JuPaV
|
| In das Form CATIA V5 Programmierung wechseln |
|
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 : Bodies mit zugewiesenem Material in einem CATProduct finden
JuPaV am 24.11.2010 um 17:28 Uhr (0)
Hallo! Versuch so:Sub CATMain()Set osel = CATIA.ActiveDocument.Selectionosel.Search "Part Design.Body;all"Dim mColBody As New CollectionIf osel.Count 0 Then For i = 1 To osel.Count mColBody.Add osel.Item(i).Value NextEnd Ifosel.ClearIf mColBody.Count 0 Then For ii = 1 To mColBody.Count osel.Clear osel.Add mColBody.Item(ii) osel.Search "(CATProductSearch.MatMaterialType + CATAsmSearch.MatMaterialType),sel" If osel.Count 0 Then MsgBox "MATERIAL" Else MsgBox "keine MATER ...
|
| In das Form CATIA V5 Programmierung wechseln |
