Scribd
Upload
16 views2 pages

CATScript for Macro4 Development

The document is a VBScript code that automates the creation of a part in CATIA software. It initializes a new part document, creates a sketch on the XY plane, and draws a circle with a specified radius. The script also sets up the axes and updates the part after completing the sketching process.

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
16 views2 pages

CATScript for Macro4 Development

The document is a VBScript code that automates the creation of a part in CATIA software. It initializes a new part document, creates a sketch on the XY plane, and draws a circle with a specified radius. The script also sets up the axes and updates the part after completing the sketching process.

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

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents


Set documents1 = [Link]

Dim partDocument1 As Document


Set partDocument1 = [Link]("Part")

Dim part1 As Part


Set part1 = [Link]

Dim bodies1 As Bodies


Set bodies1 = [Link]

Dim body1 As Body


Set body1 = [Link]("PartBody")

Dim sketches1 As Sketches


Set sketches1 = [Link]

Dim originElements1 As OriginElements


Set originElements1 = [Link]

Dim reference1 As AnyObject


Set reference1 = [Link]

Dim sketch1 As Sketch


Set sketch1 = [Link](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
[Link] arrayOfVariantOfDouble1

[Link] = sketch1

Dim factory2D1 As Factory2D


Set factory2D1 = [Link]()

Dim geometricElements1 As GeometricElements


Set geometricElements1 = [Link]

Dim axis2D1 As GeometricElement


Set axis2D1 = [Link]("AbsoluteAxis")

Dim line2D1 As CATBaseDispatch


Set line2D1 = [Link]("HDirection")
[Link] = 1

Dim line2D2 As CATBaseDispatch


Set line2D2 = [Link]("VDirection")

[Link] = 2

Dim circle2D1 As Circle2D


Set circle2D1 = [Link](0.000000, 0.000000, 24.214286)

Dim point2D1 As CATBaseDispatch


Set point2D1 = [Link]("Origin")

[Link] = point2D1

[Link] = 3

[Link]

[Link] = sketch1

[Link]

End Sub

You might also like