Scribd
Upload
15 views2 pages

Macro3.CATScript

The document is a VBSCRIPT code that creates a new part in CATIA, adds a sketch to it, and defines geometric elements including a circle. It initializes the sketch with absolute axis data and creates a closed circle centered at the origin. Finally, it updates the part to reflect the changes made in the sketch.

Uploaded by

y8ysailing2022
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
15 views2 pages

Macro3.CATScript

The document is a VBSCRIPT code that creates a new part in CATIA, adds a sketch to it, and defines geometric elements including a circle. It initializes the sketch with absolute axis data and creates a closed circle centered at the origin. Finally, it updates the part to reflect the changes made in the sketch.

Uploaded by

y8ysailing2022
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents


Set documents1 = CATIA.Documents

Dim partDocument1 As Document


Set partDocument1 = documents1.Add("Part")

Dim part1 As Part


Set part1 = partDocument1.Part

Dim bodies1 As Bodies


Set bodies1 = part1.Bodies

Dim body1 As Body


Set body1 = bodies1.Item("PartBody")

Dim orderedGeometricalSets1 As OrderedGeometricalSets


Set orderedGeometricalSets1 = body1.OrderedGeometricalSets

Dim orderedGeometricalSet1 As OrderedGeometricalSet


Set orderedGeometricalSet1 = orderedGeometricalSets1.Item("Ordered Geometrical
Set.2")

Dim sketches1 As Sketches


Set sketches1 = orderedGeometricalSet1.OrderedSketches

Dim originElements1 As OriginElements


Set originElements1 = part1.OriginElements

Dim reference1 As AnyObject


Set reference1 = originElements1.PlaneXY

Dim sketch1 As Sketch


Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = 1.000000
arrayOfVariantOfDouble1(4) = 0.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 1.000000
arrayOfVariantOfDouble1(8) = 0.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D


Set factory2D1 = sketch1.OpenEdition()

Dim geometricElements1 As GeometricElements


Set geometricElements1 = sketch1.GeometricElements

Dim axis2D1 As GeometricElement


Set axis2D1 = geometricElements1.Item("AbsoluteAxis")

Dim line2D1 As CATBaseDispatch


Set line2D1 = axis2D1.GetItem("HDirection")

line2D1.ReportName = 1

Dim line2D2 As CATBaseDispatch


Set line2D2 = axis2D1.GetItem("VDirection")

line2D2.ReportName = 2

Dim circle2D1 As Circle2D


Set circle2D1 = factory2D1.CreateClosedCircle(0.000000, 0.000000, 31.802912)

Dim point2D1 As CATBaseDispatch


Set point2D1 = axis2D1.GetItem("Origin")

circle2D1.CenterPoint = point2D1

circle2D1.ReportName = 3

sketch1.CloseEdition

part1.InWorkObject = sketch1

part1.Update

End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy