CATIA 二次开发语法循环问题

psy668

自已录了一个CATIA的宏（快速生成创成式制图），但不知道怎么去简化它，用循环语法表达，而不是一个一个的去叠加，详情见下图，红色字体与黑色字体分别是两个循环，请各位二次开发前辈指点一下，谢谢。
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set drawingDocument1 = documents1.Add("Drawing")
drawingDocument1.Standard = catJIS           (开头)

  Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
drawingSheet1.PaperSize = catPaperA0
drawingSheet1.Scale = 1.000000
drawingSheet1.Orientation = catPaperLandscape
Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Add("AutomaticNaming")
drawingView1.x = 594.500000
drawingView1.y = 420.500000
drawingView1.Scale = 1.000000
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
Set partDocument1 = documents1.Item("Part1.CATPart")
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("PartBody")
drawingViewGenerativeLinks1.AddLink body1
drawingViewGenerativeBehavior1.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000
Set drawingView2 = drawingViews1.Add("AutomaticNaming")
drawingView2.x = 696.064026
drawingView2.y = 318.935974
drawingView2.Scale = 1.000000
Set drawingViewGenerativeLinks2 = drawingView2.GenerativeLinks
Set drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior
drawingViewGenerativeLinks2.AddLink body1
drawingViewGenerativeBehavior2.DefineIsometricView 0.390176, -0.920285, -0.028965, 0.458852, 0.167074, 0.872663
Set drawingView3 = drawingViews1.Add("AutomaticNaming")
drawingView3.x = 594.500000
drawingView3.y = 318.935974
drawingView3.Scale = 1.000000
Set drawingViewGenerativeLinks3 = drawingView3.GenerativeLinks
Set drawingViewGenerativeBehavior3 = drawingView3.GenerativeBehavior
drawingViewGenerativeLinks3.AddLink body1
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior3.DefineProjectionView drawingViewGenerativeBehavior1, catBottomView
Set drawingView4 = drawingViews1.Add("AutomaticNaming")
drawingView4.x = 696.064026
drawingView4.y = 420.500000
drawingView4.Scale = 1.000000
Set drawingViewGenerativeLinks4 = drawingView4.GenerativeLinks
Set drawingViewGenerativeBehavior4 = drawingView4.GenerativeBehavior
drawingViewGenerativeLinks4.AddLink body1
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior4.DefineProjectionView drawingViewGenerativeBehavior1, catRightView
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.Update
Set drawingViewGenerativeBehavior2 = drawingView2.GenerativeBehavior
drawingViewGenerativeBehavior2.Update
Set drawingViewGenerativeBehavior3 = drawingView3.GenerativeBehavior
drawingViewGenerativeBehavior3.Update
Set drawingViewGenerativeBehavior4 = drawingView4.GenerativeBehavior
drawingViewGenerativeBehavior4.Update
drawingView1.Activate               （第一循环结束

Set drawingSheet2 = drawingSheets1.Add("AutomaticNaming")
Set drawingViews2 = drawingSheet2.Views
Set drawingView5 = drawingViews2.Add("AutomaticNaming")
drawingView5.x = 594.500000
drawingView5.y = 420.500000
drawingView5.Scale = 1.000000
Set drawingViewGenerativeLinks5 = drawingView5.GenerativeLinks
Set drawingViewGenerativeBehavior5 = drawingView5.GenerativeBehavior
Set body2 = bodies1.Item("Body.2")
drawingViewGenerativeLinks5.AddLink body2
drawingViewGenerativeBehavior5.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000
Set drawingView6 = drawingViews2.Add("AutomaticNaming")
drawingView6.x = 699.395508
drawingView6.y = 315.604645
drawingView6.Scale = 1.000000
Set drawingViewGenerativeLinks6 = drawingView6.GenerativeLinks
Set drawingViewGenerativeBehavior6 = drawingView6.GenerativeBehavior
drawingViewGenerativeLinks6.AddLink body2
drawingViewGenerativeBehavior6.DefineIsometricView 0.390176, -0.920285, -0.028965, 0.458852, 0.167074, 0.872663
Set drawingView7 = drawingViews2.Add("AutomaticNaming")
drawingView7.x = 594.500000
drawingView7.y = 315.604645
drawingView7.Scale = 1.000000
Set drawingViewGenerativeLinks7 = drawingView7.GenerativeLinks
Set drawingViewGenerativeBehavior7 = drawingView7.GenerativeBehavior
drawingViewGenerativeLinks7.AddLink body2
Set drawingViewGenerativeBehavior5 = drawingView5.GenerativeBehavior
drawingViewGenerativeBehavior7.DefineProjectionView drawingViewGenerativeBehavior5, catBottomView
Set drawingView8 = drawingViews2.Add("AutomaticNaming")
drawingView8.x = 699.395508
drawingView8.y = 420.500000
drawingView8.Scale = 1.000000
Set drawingViewGenerativeLinks8 = drawingView8.GenerativeLinks
Set drawingViewGenerativeBehavior8 = drawingView8.GenerativeBehavior
drawingViewGenerativeLinks8.AddLink body2
Set drawingViewGenerativeBehavior5 = drawingView5.GenerativeBehavior
drawingViewGenerativeBehavior8.DefineProjectionView drawingViewGenerativeBehavior5, catRightView
Set drawingViewGenerativeBehavior5 = drawingView5.GenerativeBehavior
drawingViewGenerativeBehavior5.Update
Set drawingViewGenerativeBehavior6 = drawingView6.GenerativeBehavior
drawingViewGenerativeBehavior6.Update
Set drawingViewGenerativeBehavior7 = drawingView7.GenerativeBehavior
drawingViewGenerativeBehavior7.Update
Set drawingViewGenerativeBehavior8 = drawingView8.GenerativeBehavior
drawingViewGenerativeBehavior8.Update
drawingView5.Activate         （第二循环结束）
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

psy668

psy668