采用magnet脚本编写电机设计程序实例（参数化定子尺寸）
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''''''''''''''''''''''''' 学习下，没用过，编程是不是也挺麻烦的啊，你那些计算各点坐标看着挺复杂的 very good!
and thank you for sharing 谢谢，不过看着怎么这么难呀！ 正在学习中，谢谢楼主分享！ 谢谢楼主，顶一下··· 十分感谢啊 好 正在学习中，谢谢楼主分享 ！ 怎么看不懂啊 ，一奥慢慢学习 如果自己编的话，还真是不容易，谢谢 来学习一下！ 1# thwfei
xiexie xuexizhong 看起来好复杂的 ！ 不知道好学不谢谢了！ 原来那些脚本是这样编的，太感谢了，学习一下。 还不会使用脚本编程，只能通过CAD转换。 谢谢楼主，分享快乐哦，很实用 谢谢分享！不知谁有VB优化算子程序 感谢楼主的无私分享 很强的编程，请问这个脚本是怎么调用出来的呢？