macro1-m1.catvbs

CATIA二次开发

Language="VBSCRIPT"

Sub CATMain()

	Set documents1 = CATIA.Documents
	Set partDocument1 = documents1.Add("Part")
	Set part1 = partDocument1.Part
	Set bodies1 = part1.Bodies
	Set body1 = bodies1.Item("PartBody")

	Set sketches1 = body1.Sketches
	Set originElements1 = part1.OriginElements
	Set reference1 = originElements1.PlaneXY
	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

	Set factory2D1 = sketch1.OpenEdition()
	Set geometricElements1 = sketch1.GeometricElements
	Set axis2D1 = geometricElements1.Item("AbsoluteAxis")
	Set line2D1 = axis2D1.GetItem("HDirection")
	line2D1.ReportName = 1

	Set line2D2 = axis2D1.GetItem("VDirection")
	line2D2.ReportName = 2

	x=0						'先初始化变量
	For I = 1 To 5			'执行5次循环
		Set circle2D1 = factory2D1.CreateClosedCircle(x, 0.000000, 50)

'		取消（注释）下面三行，注意行首的单引号
'		Set point2D1 = axis2D1.GetItem("Origin")
'		circle2D1.CenterPoint = point2D1
'		circle2D1.ReportName = 3

		x = x + 125			'把圆柱体的位置加125mm
	Next					'循环体结束

	sketch1.CloseEdition 

	part1.InWorkObject = body1

	part1.Update 

	part1.InWorkObject = body1

	Set shapeFactory1 = part1.ShapeFactory
	Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)

	part1.Update 

End Sub