采用magnet脚本编写电机设计程序实例（参数化定子尺寸）

thwfei

1、运行该脚本，自动生成参数化定子槽型，在工程-属性-参数中，可以更改这些参数以改变尺寸
2、具体如下：
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''内转子定子类型（方形槽）''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
Call getDocument().setDefaultLengthUnit("Millimeters")
Dim S,r1,r2,r3,r4,SW,TH1,TH2,TL,BID  
'''''''''''参数输入'''''''''''''''''''''''''''
S=42                     '槽数
r1=151.5                   '定子内半径
r2=200                   '定子外半径
r3=0.5                     '槽顶部圆角半径
r4=1                     '槽底部圆角半径
SW=2                     '槽宽
TH1=2                    '齿顶部厚度
TH2=14                   '齿宽
TL=30                    '齿长度
BID=15                   '轭厚
'''''将以上参数导入属性中(需要输入)''''''''
Call getDocument().setParameter("", "S", "42", infoNumberParameter)
Call getDocument().setParameter("", "r1", "151.5%mm", infoNumberParameter)
Call getDocument().setParameter("", "r2", "200%mm", infoNumberParameter)
Call getDocument().setParameter("", "r3", "0.5%mm", infoNumberParameter)
Call getDocument().setParameter("", "r4", "1%mm", infoNumberParameter)
Call getDocument().setParameter("", "SW", "2%mm", infoNumberParameter)
Call getDocument().setParameter("", "TH1", "2%mm", infoNumberParameter)
Call getDocument().setParameter("", "TH2", "14%mm", infoNumberParameter)
Call getDocument().setParameter("", "TL", "30%mm", infoNumberParameter)
Call getDocument().setParameter("", "BID", "15%mm", infoNumberParameter)
Call getDocument().setParameter("", "PI", "3.14159265358979323846264338327950288419716939937510582097494459", infoNumberParameter)
'''''''''''''''''''''''''''''''''''''''''''''''
''''''''计算各点坐标'''''''''''''''''''''''''''
Dim x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8,x9,y9,x10,y10,x11,y11,x12,y12,x13,y13,x14,y14,x15,y15,x16,y16,x17,y17
Dim theta1,theta2,k1,PI
PI=3.14159265358979323846264338327950288419716939937510582097494459
theta1=PI/S
k1=SW/(2*Sin(theta1))
x1=r1
y1=0
x2=(k1*Tan(theta1)^2+(r1^2-k1^2*Tan(theta1)^2+r1^2*Tan(theta1)^2)^0.5)/(1+Tan(theta1)^2)
y2=Tan(theta1)*(x2-k1)
x3=(x2+y2*Tan(theta1)+k1*Tan(theta1)^2+(TH1^2-y2^2-2*k1*y2*Tan(theta1)+2*x2*y2*Tan(theta1)-k1^2*Tan(theta1)^2+TH1^2*Tan(theta1)^2+2*k1*x2*Tan(theta1)^2-x2^2*Tan(theta1)^2)^0.5)/(1+Tan(theta1)^2)
y3=Tan(theta1)*(x3-k1)
x8=((4*BID^2-8*BID*r2+4*r2^2-TH2^2)^0.5)/2
y8=TH2/2
x4=x8-TL
y4=y8
theta2=(PI+Atn((y3-y4)/(x3-x4)))/2

x7=x4+r3/(Tan(theta2))
y7=y4+r3
x6=x7
y6=y4
x5=x4-r3*Cos(Atn((y3-y4)/(x3-x4)))/Tan(theta2)
y5=y4-r3*Sin(Atn((y3-y4)/(x3-x4)))/Tan(theta2)

x11=(BID^2-2*BID*r2+r2^2+2*BID*r4-2*r2*r4-2*r4*y8-y8^2)^0.5
y11=y8+r4
x9=x11
y9=y8
x10=(((BID^2-2*BID*r2+r2^2)^0.5)*x11)/(x11^2+y11^2)^0.5
y10=y11*x10/x11
x12=((BID^2-2*BID*r2+r2^2)^0.5)/((1+Tan(theta1)^2)^0.5)
y12=Tan(theta1)*x12
x13=r2/((1+Tan(theta1)^2)^0.5)
y13=Tan(theta1)*x13
x14=r2
y14=0
x15=-((-y5-x5/Tan(theta1))/(1/Tan(theta1)+Tan(theta1)))
y15=Tan(theta1)*x15
x16=0
y16=0
'MsgBox x10
'''''''''''''''''''''''''''''''''''''''''''''
'''''''''''画线'''''''''''''''''''''''''''
Dim Doc, View
Set Doc = getDocument()
Set View = Doc.getView()
Call View.newArc(x16,y16,x1,y1,x2,y2)
Call View.newArc(x16,y16,x2,-y2,x1,y1)
Call View.newArc(x16,y16,x14,y14,x13,y13)
Call View.newArc(x16,y16,x13,-y13,x14,y14)
Call View.newArc(x7,y7,x5,y5,x6,y6)
Call View.newArc(x7,-y7,x6,-y6,x5,-y5)
Call View.newArc(x11,y11,x9,y9,x10,y10)
Call View.newArc(x11,-y11,x10,-y10,x9,-y9)
Call View.newArc(x16,y16,x10,y10,x12,y12)
Call View.newArc(x16,y16,x12,-y12,x10,-y10)

Call View.newLine(x2,y2,x3,y3)
Call View.newLine(x3,y3,x5,y5)
Call View.newLine(x6,y6,x9,y9)
Call View.newLine(x12,y12,x13,y13)
Call View.newLine(x2,-y2,x3,-y3)
Call View.newLine(x3,-y3,x5,-y5)
Call View.newLine(x6,-y6,x9,-y9)
Call View.newLine(x12,-y12,x13,-y13)
Call View.newLine(x5,y5,x15,y15)
Call View.newLine(x5,-y5,x15,-y15)
Call View.newLine(x12,y12,x15,y15)
Call View.newLine(x12,-y12,x15,-y15)
''''''''将参数导入到magnet属性中''''''''''
Call getDocument().setParameter("", "theta1", "%pi/%S", infoNumberParameter)
Call getDocument().setParameter("", "k1", "%SW/(2*sin(%theta1))", infoNumberParameter)
Call getDocument().setParameter("", "x1", "%r1", infoNumberParameter)
Call getDocument().setParameter("", "y1", "0", infoNumberParameter)
Call getDocument().setParameter("", "x2", "(%k1*tan(%theta1)^2+(%r1^2-%k1^2*tan(%theta1)^2+%r1^2*tan(%theta1)^2)^0.5)/(1+tan(%theta1)^2)", infoNumberParameter)
Call getDocument().setParameter("", "y2", "tan(%theta1)*(%x2-%k1)", infoNumberParameter)
Call getDocument().setParameter("", "x3", "(%x2+%y2*tan(%theta1)+%k1*tan(%theta1)^2+(%TH1^2-%y2^2-2*%k1*%y2*tan(%theta1)+2*%x2*%y2*tan(%theta1)-%k1^2*tan(%theta1)^2+%TH1^2*tan(%theta1)^2+2*%k1*%x2*tan(%theta1)^2-%x2^2*tan(%theta1)^2)^0.5)/(1+tan(%theta1)^2)", infoNumberParameter)
Call getDocument().setParameter("", "y3", "tan(%theta1)*(%x3-%k1)", infoNumberParameter)
Call getDocument().setParameter("", "x8", "((4*%BID^2-8*%BID*%r2+4*%r2^2-%TH2^2)^0.5)/2", infoNumberParameter)
Call getDocument().setParameter("", "y8", "%TH2/2", infoNumberParameter)
Call getDocument().setParameter("", "x4", "%x8-%TL", infoNumberParameter)
Call getDocument().setParameter("", "y4", "%y8", infoNumberParameter)
Call getDocument().setParameter("", "theta2", "(%pi+atan((%y3-%y4)/(%x3-%x4)))/2", infoNumberParameter)
Call getDocument().setParameter("", "x7", "%x4+%r3/(tan(%theta2))", infoNumberParameter)
Call getDocument().setParameter("", "y7", "%y4+%r3", infoNumberParameter)
Call getDocument().setParameter("", "x6", "%x7", infoNumberParameter)
Call getDocument().setParameter("", "y6", "%y4", infoNumberParameter)
Call getDocument().setParameter("", "x5", "%x4-%r3*cos(atan((%y3-%y4)/(%x3-%x4)))/tan(%theta2)", infoNumberParameter)
Call getDocument().setParameter("", "y5", "%y4-%r3*sin(atan((%y3-%y4)/(%x3-%x4)))/tan(%theta2)", infoNumberParameter)

Call getDocument().setParameter("", "x11", "(%BID^2-2*%BID*%r2+%r2^2+2*%BID*%r4-2*%r2*%r4-2*%r4*%y8-%y8^2)^0.5", infoNumberParameter)
Call getDocument().setParameter("", "y11", "%y8+%r4", infoNumberParameter)
Call getDocument().setParameter("", "x9", "%x11", infoNumberParameter)
Call getDocument().setParameter("", "y9", "%y8", infoNumberParameter)
Call getDocument().setParameter("", "x10", "(((%BID^2-2*%BID*%r2+%r2^2)^0.5)*%x11)/(%x11^2+%y11^2)^0.5", infoNumberParameter)
Call getDocument().setParameter("", "y10", "%y11*%x10/%x11", infoNumberParameter)
Call getDocument().setParameter("", "x12", "((%BID^2-2*%BID*%r2+%r2^2)^0.5)/((1+tan(%theta1)^2)^0.5)", infoNumberParameter)
Call getDocument().setParameter("", "y12", "tan(%theta1)*%x12", infoNumberParameter)
Call getDocument().setParameter("", "x13", "%r2/((1+tan(%theta1)^2)^0.5)", infoNumberParameter)
Call getDocument().setParameter("", "y13", "tan(%theta1)*%x13", infoNumberParameter)
Call getDocument().setParameter("", "x14", "%r2", infoNumberParameter)
Call getDocument().setParameter("", "y14", "0", infoNumberParameter)
Call getDocument().setParameter("", "x15", "-((-%y5-%x5/tan(%theta1))/(1/tan(%theta1)+tan(%theta1)))", infoNumberParameter)
Call getDocument().setParameter("", "y15", "tan(%theta1)*%x15", infoNumberParameter)
Call getDocument().setParameter("", "x16", "0", infoNumberParameter)
Call getDocument().setParameter("", "y16", "0", infoNumberParameter)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''copy'''''''''''''''
Call View.viewAll()
Call View.selectAll(infoSetSelection, Array(infoSliceLine, infoSliceArc))
Dim i
For i=1 To S-1
Call View.rotateSelectedEdges(0, 0, i*360/S, True)
Next
Call View.viewAll()
''''''''''''''''''''''''''''''''''''''''''''''''
Call getDocument().getView().selectAt((x1+x14)/2, 0, infoSetSelection, Array(infoSliceSurface))
ReDim ArrayOfValues(0)
ArrayOfValues(0)= "stator"
Call getDocument().getView().makeComponentInALine(0, ArrayOfValues, "Name=Losil 450/65", 0)
Call getDocument().getView().selectObject("stator", infoSetSelection)
For i=1 To S-1
Call getDocument().beginUndoGroup("Transform Component")
  Call getDocument().rotateComponent(getDocument().copyComponent(Array("stator"), 1), 0, 0, 0, 0, 0, 1, i*360/S, 1)
  Call getDocument().endUndoGroup()
Next
Call View.viewAll()
Call getDocument().getView().selectAt((x1+x14)/2, (y4+y15)/2, infoSetSelection, Array(infoSliceSurface))
REDIM ArrayOfValues(0)
ArrayOfValues(0)= "coil_up"
Call getDocument().getView().makeComponentInALine(0, ArrayOfValues, "Name=Copper: 5.77e7 Siemens/meter", 0)
For i=1 To S-1
Call getDocument().beginUndoGroup("Transform Component")
  Call getDocument().rotateComponent(getDocument().copyComponent(Array("coil_up"), 1), 0, 0, 0, 0, 0, 1, i*360/S, 1)
  Call getDocument().endUndoGroup()
Next
Call getDocument().getView().selectAt((x1+x14)/2, -(y4+y15)/2, infoSetSelection, Array(infoSliceSurface))
REDIM ArrayOfValues(0)
ArrayOfValues(0)= "coil_dowm"
Call getDocument().getView().makeComponentInALine(0, ArrayOfValues, "Name=Copper: 5.77e7 Siemens/meter", 0)
For i=1 To S-1
Call getDocument().beginUndoGroup("Transform Component")
  Call getDocument().rotateComponent(getDocument().copyComponent(Array("coil_dowm"), 1), 0, 0, 0, 0, 0, 1, i*360/S, 1)
  Call getDocument().endUndoGroup()
Next
'''''''''''''''''''''''''''''''''''
Call getDocument().beginUndoGroup("Set Properties", true)
Call getDocument().setParameter("stator,Face#1,Edge#1,Vertex#2", "Position", "[%x1,%y1]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#2,Vertex#2", "Position", "[%x2,%y2]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#3,Vertex#2", "Position", "[%x3,%y3]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#4,Vertex#2", "Position", "[%x5,%y5]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#5,Vertex#2", "Position", "[%x5,%y5]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#5,Vertex#2", "Position", "[%x6,%y6]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#4,Vertex#2", "Position", "[%x6,%y6]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#5,Vertex#3", "Position", "[%x7,%y7]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#5,Vertex#3", "Position", "[%x7,%y7]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#6,Vertex#2", "Position", "[%x9,%y9]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#3,Vertex#2", "Position", "[%x9,%y9]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#7,Vertex#2", "Position", "[%x10,%y10]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#2,Vertex#2", "Position", "[%x10,%y10]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#7,Vertex#3", "Position", "[%x11,%y11]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#3,Vertex#3", "Position", "[%x11,%y11]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#8,Vertex#2", "Position", "[%x12,%y12]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#1,Vertex#2", "Position", "[%x12,%y12]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#9,Vertex#2", "Position", "[%x13,%y13]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#10,Vertex#2", "Position", "[%x14,%y14]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#1,Vertex#1", "Position", "[%x15,%y15]", infoArrayParameter)

Call getDocument().setParameter("stator,Face#1,Edge#1,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#2,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#8,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#10,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#11,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#13,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("coil_up,Face#1,Edge#2,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#5,Vertex#3", "Position", "[%x16,%y16]", infoArrayParameter)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call getDocument().setParameter("stator,Face#1,Edge#1,Vertex#1", "Position", "[%x2,-%y2]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#17,Vertex#2", "Position", "[%x3,-%y3]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#16,Vertex#2", "Position", "[%x5,-%y5]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#1,Vertex#2", "Position", "[%x5,-%y5]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#15,Vertex#2", "Position", "[%x6,-%y6]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#2,Vertex#2", "Position", "[%x6,-%y6]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#16,Vertex#3", "Position", "[%x7,-%y7]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#2,Vertex#3", "Position", "[%x7,-%y7]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#14,Vertex#2", "Position", "[%x9,-%y9]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#3,Vertex#2", "Position", "[%x9,-%y9]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#13,Vertex#2", "Position", "[%x10,-%y10]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#4,Vertex#2", "Position", "[%x10,-%y10]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#14,Vertex#3", "Position", "[%x11,-%y11]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#4,Vertex#3", "Position", "[%x11,-%y11]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#12,Vertex#2", "Position", "[%x12,-%y12]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#5,Vertex#2", "Position", "[%x12,-%y12]", infoArrayParameter)
Call getDocument().setParameter("stator,Face#1,Edge#11,Vertex#2", "Position", "[%x13,-%y13]", infoArrayParameter)
Call getDocument().setParameter("coil_dowm,Face#1,Edge#1,Vertex#1", "Position", "[%x15,-%y15]", infoArrayParameter)
Call getDocument().endUndoGroup()
'''''''''''''''''''''''''''''''''''''''
ReDim ArrayOfValues1(0)
ReDim ArrayOfValues2(0)
ReDim ArrayOfValues3(0)
ReDim ArrayOfValues4(0)
ReDim ArrayOfValues5(0)
ReDim ArrayOfValues6(0)
ReDim ArrayOfValues7(0)
ReDim ArrayOfValues8(0)
ReDim ArrayOfValues9(0)
ReDim ArrayOfValues10(0)
ReDim ArrayOfValues11(0)
ReDim ArrayOfValues12(0)
ReDim ArrayOfValues13(0)
ReDim ArrayOfValues14(0)
ReDim ArrayOfValues15(0)
ReDim ArrayOfValues16(0)
ReDim ArrayOfValues17(0)
ReDim ArrayOfValues18(0)
ReDim ArrayOfValues19(0)
ReDim ArrayOfValues20(0)
ReDim ArrayOfValues21(0)
ReDim ArrayOfValues22(0)
ReDim ArrayOfValues23(0)
ReDim ArrayOfValues24(0)
ReDim ArrayOfValues25(0)
ReDim ArrayOfValues26(0)
ReDim ArrayOfValues27(0)
ReDim ArrayOfValues28(0)
ReDim ArrayOfValues29(0)
ReDim ArrayOfValues30(0)
ReDim ArrayOfValues31(0)
ReDim ArrayOfValues32(0)
ReDim ArrayOfValues33(0)
ReDim ArrayOfValues34(0)
ReDim ArrayOfValues35(0)
ReDim ArrayOfValues36(0)
ReDim ArrayOfValues37(0)
ReDim ArrayOfValues38(0)
ReDim ArrayOfValues39(0)
ReDim ArrayOfValues40(0)
ReDim ArrayOfValues41(0)
ReDim ArrayOfValues42(0)
ReDim ArrayOfValues43(0)
ReDim ArrayOfValues44(0)
ReDim ArrayOfValues45(0)
ReDim ArrayOfValues46(0)
ReDim ArrayOfValues47(0)
ReDim ArrayOfValues48(0)
ReDim ArrayOfValues49(0)
ReDim ArrayOfValues50(0)


Dim j
For j=1 To S-1

ArrayOfValues1(0)= "Copy of stator #" & j & ",Face#1,Edge#1,Vertex#2"
ArrayOfValues2(0)= "Copy of stator #" & j & ",Face#1,Edge#2,Vertex#2"
ArrayOfValues3(0)= "Copy of stator #" & j & ",Face#1,Edge#3,Vertex#2"
ArrayOfValues4(0)= "Copy of stator #" & j & ",Face#1,Edge#4,Vertex#2"
ArrayOfValues5(0)= "Copy of coil_up #" & j & ",Face#1,Edge#5,Vertex#2"  
ArrayOfValues6(0)= "Copy of stator #" & j & ",Face#1,Edge#5,Vertex#2"
ArrayOfValues7(0)= "Copy of coil_up #" & j & ",Face#1,Edge#4,Vertex#2"
ArrayOfValues8(0)= "Copy of stator #" & j & ",Face#1,Edge#5,Vertex#3"
ArrayOfValues9(0)= "Copy of coil_up #" & j & ",Face#1,Edge#5,Vertex#3"
ArrayOfValues10(0)= "Copy of stator #" & j & ",Face#1,Edge#6,Vertex#2"
ArrayOfValues11(0)= "Copy of coil_up #" & j & ",Face#1,Edge#3,Vertex#2"
ArrayOfValues12(0)= "Copy of stator #" & j & ",Face#1,Edge#7,Vertex#2"
ArrayOfValues13(0)= "Copy of coil_up #" & j & ",Face#1,Edge#2,Vertex#2"  
ArrayOfValues14(0)= "Copy of stator #" & j & ",Face#1,Edge#7,Vertex#3"
ArrayOfValues15(0)= "Copy of coil_up #" & j & ",Face#1,Edge#3,Vertex#3"  
ArrayOfValues16(0)= "Copy of stator #" & j & ",Face#1,Edge#8,Vertex#2"
ArrayOfValues17(0)= "Copy of coil_up #" & j & ",Face#1,Edge#1,Vertex#2"
ArrayOfValues18(0)= "Copy of stator #" & j & ",Face#1,Edge#9,Vertex#2"
ArrayOfValues19(0)= "Copy of stator #" & j & ",Face#1,Edge#10,Vertex#2"   
ArrayOfValues20(0)= "Copy of coil_up #" & j & ",Face#1,Edge#1,Vertex#1"

ArrayOfValues21(0)= "Copy of stator #" & j & ",Face#1,Edge#1,Vertex#3"
ArrayOfValues22(0)= "Copy of stator #" & j & ",Face#1,Edge#2,Vertex#3"
ArrayOfValues23(0)= "Copy of stator #" & j & ",Face#1,Edge#8,Vertex#3"
ArrayOfValues24(0)= "Copy of stator #" & j & ",Face#1,Edge#10,Vertex#3"  
ArrayOfValues25(0)= "Copy of stator #" & j & ",Face#1,Edge#11,Vertex#3"
ArrayOfValues26(0)= "Copy of stator #" & j & ",Face#1,Edge#13,Vertex#3"
ArrayOfValues27(0)= "Copy of coil_up #" & j & ",Face#1,Edge#2,Vertex#3"
  ArrayOfValues28(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#5,Vertex#3"  
  
  ArrayOfValues29(0)= "Copy of stator #" & j & ",Face#1,Edge#1,Vertex#1"
  ArrayOfValues30(0)= "Copy of stator #" & j & ",Face#1,Edge#17,Vertex#2"
  ArrayOfValues31(0)= "Copy of stator #" & j & ",Face#1,Edge#16,Vertex#2"
  ArrayOfValues32(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#1,Vertex#2"
  ArrayOfValues33(0)= "Copy of stator #" & j & ",Face#1,Edge#15,Vertex#2"
  ArrayOfValues34(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#2,Vertex#2"  
  ArrayOfValues35(0)= "Copy of stator #" & j & ",Face#1,Edge#16,Vertex#3"
  ArrayOfValues36(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#2,Vertex#3"  
  ArrayOfValues37(0)= "Copy of stator #" & j & ",Face#1,Edge#14,Vertex#2"
  ArrayOfValues38(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#3,Vertex#2"
  ArrayOfValues39(0)= "Copy of stator #" & j & ",Face#1,Edge#13,Vertex#2"
  ArrayOfValues40(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#4,Vertex#2"
  ArrayOfValues41(0)= "Copy of stator #" & j & ",Face#1,Edge#14,Vertex#3"
  ArrayOfValues42(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#4,Vertex#3"
  ArrayOfValues43(0)= "Copy of stator #" & j & ",Face#1,Edge#12,Vertex#2"
  ArrayOfValues44(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#5,Vertex#2"
  ArrayOfValues45(0)= "Copy of stator #" & j & ",Face#1,Edge#11,Vertex#2"
  ArrayOfValues46(0)= "Copy of coil_dowm #" & j & ",Face#1,Edge#1,Vertex#1"   
  
  Call getDocument().beginUndoGroup("Set Properties", true)
  
  Call getDocument().setParameter(ArrayOfValues1(0), "Position", "[%x1,%y1]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues2(0), "Position", "[%x2,%y2]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues3(0), "Position", "[%x3,%y3]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues4(0), "Position", "[%x5,%y5]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues5(0), "Position", "[%x5,%y5]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues6(0), "Position", "[%x6,%y6]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues7(0), "Position", "[%x6,%y6]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues8(0), "Position", "[%x7,%y7]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues9(0), "Position", "[%x7,%y7]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues10(0), "Position", "[%x9,%y9]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues11(0), "Position", "[%x9,%y9]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues12(0), "Position", "[%x10,%y10]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues13(0), "Position", "[%x10,%y10]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues14(0), "Position", "[%x11,%y11]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues15(0), "Position", "[%x11,%y11]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues16(0), "Position", "[%x12,%y12]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues17(0), "Position", "[%x12,%y12]", infoArrayParameter)

  Call getDocument().setParameter(ArrayOfValues18(0), "Position", "[%x13,%y13]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues19(0), "Position", "[%x14,%y14]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues20(0), "Position", "[%x15,%y15]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues21(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues22(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues23(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues24(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues25(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues26(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues27(0), "Position", "[%x16,%y16]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues28(0), "Position", "[%x16,%y16]", infoArrayParameter)
  
''''''''''''''''''

  Call getDocument().setParameter(ArrayOfValues29(0), "Position", "[%x2,-%y2]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues30(0), "Position", "[%x3,-%y3]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues31(0), "Position", "[%x5,-%y5]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues32(0), "Position", "[%x5,-%y5]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues33(0), "Position", "[%x6,-%y6]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues34(0), "Position", "[%x6,-%y6]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues35(0), "Position", "[%x7,-%y7]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues36(0), "Position", "[%x7,-%y7]", infoArrayParameter)  
  
  Call getDocument().setParameter(ArrayOfValues37(0), "Position", "[%x9,-%y9]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues38(0), "Position", "[%x9,-%y9]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues39(0), "Position", "[%x10,-%y10]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues40(0), "Position", "[%x10,-%y10]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues41(0), "Position", "[%x11,-%y11]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues42(0), "Position", "[%x11,-%y11]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues43(0), "Position", "[%x12,-%y12]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues44(0), "Position", "[%x12,-%y12]", infoArrayParameter)
  
  Call getDocument().setParameter(ArrayOfValues45(0), "Position", "[%x13,-%y13]", infoArrayParameter)
  Call getDocument().setParameter(ArrayOfValues46(0), "Position", "[%x15,-%y15]", infoArrayParameter)
  Call getDocument().endUndoGroup()
  
Next
''''''''''''''''''''''''''''''''''''''''''
'''''''''''finish'''''''''''''''''''''''''

fuzy

学习下，没用过，编程是不是也挺麻烦的啊，你那些计算各点坐标看着挺复杂的

dream-ttt

very good!
and thank you for sharing

aice2001

谢谢，不过看着怎么这么难呀！

ljp006

正在学习中，谢谢楼主分享！

shuixiansong

谢谢楼主，顶一下···

yhzyhz

十分感谢啊 好

yhzyhz

正在学习中，谢谢楼主分享 ！

wjj2008

怎么看不懂啊 ，一奥慢慢学习

chenjing

如果自己编的话，还真是不容易，谢谢

xxkyelang

来学习一下！

uestcwxy

1# thwfei
xiexie xuexizhong

lhmwww01

看起来好复杂的 ！ 不知道好学不  谢谢了！

gongxiao228

原来那些脚本是这样编的，太感谢了，学习一下。

大长经

还不会使用脚本编程，只能通过CAD转换。

fengyinghui

谢谢楼主，分享快乐哦，很实用

roger

谢谢分享！不知谁有VB优化算子程序

bruceleeren

感谢楼主的无私分享

avavav1

很强的编程，请问这个脚本是怎么调用出来的呢？

magnetism

excel 宏