PublicClassMyform1PrivateSubMyform1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.KKTableAdapter.Fill(Me.MytestDataSet.KK)EndSubPublicFunctionMax(ByValXAsDouble,ByValYAsDouble)AsDoubleIfX>=YThenMax=XElseMax=YEndIfEndFunctionPublicFunctionMin(ByValxAsDouble,ByValyAsDouble)AsDoubleIfx>=yThenMin=yElseMin=xEndIfEndFunctionPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)DimTestStrAsString=""DimiAsInteger=MytestDataSet.Tables(0).Rows.CountDimjAsInteger=0DimXHaoAsString=""DimSnAsString=""DimUnAsString=""DimXBeiPAsNewPoint3d(0,0,0)DimXBei()AsPoint3dDimCAsInteger=0DimKguanP()AsPoint3dDimKCAsInteger=0DimAreaAsStringDimChangAsStringDimKAsIntegerDimKP1AsNewPoint3d(0,0,0)DimBP1AsNewPoint3d(0,0,0)DimBP2AsNewPoint3d(0,0,0)DimBCAsInteger=0DimBP()AsPoint3dDimGPAsNewPoint3d(0,0,0)DimGPS()AsPoint3dDimGCAsInteger=0DimICAsDouble=0DimIjAsDouble=0DimWAsInteger=0DimXhao2AsString=""DimTestStr2AsString=""DimLinAsString=""DimHeadAsString=""DimTailAsString=""DimPm()AsPoint3d:DimCmAsInteger=0DimPk()AsPoint3d:DimCkAsInteger=0DimPB()AsPoint3d:DimCBAsInteger=0DimLPkAsNewPoint3d(0,0,0)DimLPmAsNewPoint3d(0,0,0)DimMaxYAsDouble=0DimMinXAsDouble=0DimNPmAsNewPoint3d(0,0,0)DimLPbAsNewPoint3d(0,0,0)DimLjAsInteger=0Forj=0Toi-1TestStr=MytestDataSet.Tables(0).Rows(j).Item("類別")SelectCaseTestStrCase"礦用設(shè)備"TestStr2=MytestDataSet.Tables(0).Rows(j).Item("設(shè)備名稱")XHao=MytestDataSet.Tables(0).Rows(j).Item("設(shè)備型號").ToStringSn=MytestDataSet.Tables(0).Rows(j).Item("Sn").ToStringUn=MytestDataSet.Tables(0).Rows(j).Item("Un").ToStringXhao2=MytestDataSet.Tables(0).Rows(j).Item("電纜型號").ToStringArea=MytestDataSet.Tables(0).Rows(j).Item("電纜截面").ToStringChang=MytestDataSet.Tables(0).Rows(j).Item("電纜長度").ToStringIC=MytestDataSet.Tables(0).Rows(j).Item("電纜允許長時電流")Head=MytestDataSet.Tables(0).Rows(j).Item("HeadPoint")Ij=Sn/Un/Sqrt(3)XHao=XHao&"-"&Area&"-"&ChangModelSpace.Cable("礦用電纜",LPm,NewScale3d(1),0,XHao,IC.ToString,Ij)SelectCaseLinCase"M"Cm=Cm+1ReDimPreservePm(Cm)Pm(Cm-1)=ModelSpace.PolarPoint(LPm,Atan(1)*2,50)NPm=ModelSpace.PolarPoint(NPm,0,30)Case"K"Ck=Ck=1ReDimPreservePkPk(Ck-1)=ModelSpace.PolarPoint(LPk,PI/2,28/2+50)Case"B"CB=CB+1ReDimPreservePB(CB)PB(CB-1)=ModelSpace.PolarPoint(LPk,PI/2,28/2+50)Case"G"EndSelectLin=HeadCase"礦用開關(guān)"Head=MytestDataSet.Tables(0).Rows(j).Item("HeadPoint")Tail=MytestDataSet.Tables(0).Rows(j).Item("TailPoint")IfTail="M"ThenLPk=ModelSpace.PolarPoint(LPm,PI/2,20/2)ModelSpace.Switch("礦用開關(guān)",LPk,NewScale3d(1),0,"KBZ","315×6/3.4","12#")ElseIfTail="K"AndLin="K"ThenLPk=ModelSpace.PolarPoint(LPk,PI/2,20/10)ModelSpace.Switch("礦用開關(guān)",LPk,NewScale3d(1),0,"KBZ","315×6/3.4","12#")ElseIfTail="K"AndLin="B"ThenCB=CB+1ReDimPreservePB(CB-1)PB(CB-1)=LPbModelSpace.Switch("礦用開關(guān)",LPm,NewScale3d(1),0,"KBZ","315×6/3.4","12#")LPm=ModelSpace.PolarPoint(LPm,PI,30)ElseIfTail="K"AndLin=""ThenCB=CB+1ReDimPreservePB(CB-1)PB(CB-1)=LPbModelSpace.Switch("礦用開關(guān)",LPm,NewScale3d(1),0,"KBZ","315×6/3.4","12#")LPm=ModelSpace.PolarPoint(LPm,PI,30)ElseIfTail="KM"ThenForLj=0ToCm-1MaxY=Max(Pm(Cm).Y,MaxY)MinX=Min(Pm(Cm).X,MinX)NextForLj=0ToCk-1MaxY=Max(MaxY,Pk(Ck).Y)MinX=Min(MinX,Pk(Ck).X)NextIfLin="M"ThenMaxY=Max(MaxY,LPm.Y)LPk=NewPoint3d(LPm.X/2+MinX/2,MaxY,0)LPk=ModelSpace.PolarPoint(LPk,PI/2,25)ModelSpace.Switch("礦用開關(guān)",LPk,NewScale3d(1),0,"KBZ","315×6/3.4","12#")EndIfEndIfLin=HeadC=0XHao=MytestDataSet.Tables(0).Rows(j).Item("電纜型號").ToStringArea=MytestDataSet.Tables(0).Rows(j).Item("電纜截面").ToStringChang=MytestDataSet.Tables(0).Rows(j).Item("電纜長度").ToStringXHao=XHao&"-"&Area&"-"&ChangKP1=ModelSpace.PolarPoint(KguanP(KC-1),PI/2,10)IC=MytestDataSet.Tables(0).Rows(j).Item("電纜允許長時電流")Sn=0ForW=j-1To0Step-1TestStr2=MytestDataSet.Tables(0).Rows(j).Item("類別").ToStringIfTestStr2="礦用設(shè)備"ThenSn=Sn+MytestDataSet.Tables(0).Rows(j).Item("Sn").ToStringElseExitForEndIfNextIj=Sn/Un/Sqrt(3)ModelSpace.Cable("礦用電纜",KP1,NewScale3d(1),0,XHao,IC,Ij)Case"礦用變壓器"Tail="B"Lin=""BC=BC+1ReDimPreserveBP(BC)BP(BC-1)=NewPoint3d((KguanP(0).X+KguanP(KC-1).X)/2,(KguanP(0).Y+KguanP(KC-1).Y)/2,0)BP(BC-1)=ModelSpace.PolarPoint(BP(BC-1),PI/2,10+50+20)XHao=MytestDataSet.Tables(0).Rows(j).Item("設(shè)備型號")Sn=MytestDataSet.Tables(0).Rows(j).Item("Sn").ToStringModelSpace.KBSGZY_YY("移動變壓器",BP(BC-1),NewScale3d(1),0,XHao,Sn)BP1=ModelSpace.PolarPoint(BP(BC-1),PI,10)BP(BC-1)=ModelSpace.PolarPoint(BP(BC-1),PI/2,28.5)ForK=0ToKC-1BP2=ModelSpace.PolarPoint(BP1,0,(K+1)/(KC+1)*20)KP1=ModelSpace.PolarPoint(KguanP(K),PI/2,50+10)ModelSpace.AddLine(KP1,BP2)NextXHao=MytestDataSet.Tables(0).Rows(j).Item("電纜型號").ToStringArea=MytestDataSet.Tables(0).Rows(j).Item("電纜截面").ToStringChang=MytestDataSet.Tables(0).Rows(j).Item("電纜長度").ToStringXHao=XHao&"-"&Area&"-"&ChangIC=MytestDataSet.Tables(0).Rows(j).Item("電纜允許長時電流")Sn=0ForW=j-1To0Step-1TestStr2=MytestDataSet.Tables(0).Rows(j).Item("類別").ToStringIfTestStr2="礦用設(shè)備"ThenSn=Sn+MytestDataSet.Tables(0).Rows(j).Item("Sn").ToStringEndIfIfTestStr2="礦用變壓器"ThenExitForNextIj=Sn/Un/Sqrt(3)ModelSpace.Cable("變壓器電纜",BP(BC-1),NewScale3d(1),0,XHao,IC,Ij)IfBC>=2ThenModelSpace.AddLine(BP(BC-2),BP(BC-1))EndIfKC=0Case"高壓開關(guān)"GC=GC+1ReDimPreserveGPS(GC)GP=ModelSpace.PolarPoint(BP(BC-1),0,40)GPS(GC-1)=ModelSpace.PolarPoint(GP,PI/2,28.5)XHao=MytestDataSet.Tables(0).Rows(j).Item("電纜型號").ToStringIfXHao<>""ThenArea=MytestDataSet.Tables(0).Rows(j).Item("電纜截面").ToStringChang=MytestDataSet.Tables(0).Rows(j).Item("電纜長度").ToStringXHao=