BsicNET代码utoCA二次开发供电

1、PUbIiC Class MyformIPriVate SUb MyfOrm1_Load( ByVaI Sender AS SyStem.Object,ByVaI e AS SyStem.EventArgs)MeKKTabIeAdaPter.FiII(MeMyteStDataSet.KK)End SUbPUbIiC FUnction Max( ByVaI X AS DoubIe , ByVaI Y AS DoubIe) AS DoubIeIf X >= Y ThenMaX = XEIseMaX = YEnd IfEnd FUnCtionPUbIiC FUnction Min( ByVaI

2、 X AS DoUbIe , ByVaI y AS DoUbIe) AS DoUbIeIf X >= yThenMin = yEIseMin = XEnd IfEnd FUnCtionPriVate SUb BUtton1_CIick( ByVaI Sender AS SyStem.ObjeCt,ByVaI e AS SyStem.EventArgs)Dim TeStStr AS String =""Dim i AS Integer = MyteStDataSet.TabIes(0).Rows.CoUntDim j AS Integer = 0Dim XHao AS

3、String =""Dim Sn AS String =""Dim Un AS String =""Dim XBeiP AS NeWPOint3d(0, 0, 0)Dim XBei() AS Poi nt3dDim C AS Integer = 0Dim KgUa nP() AS Poi nt3dDim KC AS Integer = 0Dim Area AS StringDim Chang AS StringDim K AS IntegerDim KP1 AS NeWPOint3d(0, 0, 0)Dim BP1 AS NeWPOi

4、nt3d(0, 0, 0)Dim BP2 AS NeWPOint3d(0, 0, 0)Dim BC AS Integer = 0Dim BP() AS Poi nt3dDim GP AS NeWPOint3d(0, 0, 0)Dim GPS() AS Poi nt3dDim GC AS Integer = 0Dim IC AS DoUbIe = 0Dim Ij AS Double = 0Dim W AS Integer = 0Dim Xhao2 AS String =""Dim TeStStr2AS String =Dim Lin AS String ="&quo

5、t;Dim Head AS String =""Dim TailAS String =HllDim Pm()AS Poi nt3d :Dim CmASIn teger = 0Dim Pk()AS Poi nt3d :Dim CkASIn teger = 0Dim PB()AS Poi nt3d :Dim CBASIn teger = 0Dim LPk AS NeWPOint3d(0, 0, 0)Dim LPm AS NeWPOint3d(0, 0, 0)Dim MaXY AS Double = 0Dim MinX AS Double = 0Dim NPm AS NeWPOi

6、nt3d(0, 0, 0)Dim LPb AS NeWPOint3d(0, 0, 0)Dim Lj AS Integer = 0Forj = 0 To i - 1类别")"设备名称")"设备型号").ToString"Sn" ).ToString"Un" ).ToString"电缆型号").ToString"电缆截面").ToString"电缆长度").ToString"电缆允许长时电流")"HeadPoint&qu

7、ot;)TeStStr = MyteStDataSet.Tables(0).Rows(j).Item(SeIeCt CaSe TeStStr CaSe "矿用设备"TeStStr2 = MyteStDataSet.Tables(0).Rows(j).Item(XHao = MyteStDataSet.Tables(0).Rows(j).Item(Sn = MyteStDataSet.Tables(0).Rows(j).ltem(Un = MyteStDataSet.Tables(0).Rows(j).tem(Xhao2 = MyteStDataSet.Tables(0).R

8、ows(j).Item(Area = MyteStDataSet.Tables(0).Rows(j).Item(Cha ng = MyteStDataSet.Tables(0).Rows(j).Item(IC = MyteStDataSet.Tables(0).Rows(j).Item(Head = MyteStDataSet.Tables(0).Rows(j).Item(Ij = Sn / Un / Sqrt(3)XHao = XHao &"-" & Area &"-" & ChangMOdelSPaCe.Cable(&

9、quot;矿用电缆", LPm, NeWSCale3d(1), 0, XHao, IC.ToString, Ij)SeIeCt CaSe LinCaSe "M"Cm = Cm + 1ReDim PreSerVe Pm(Cm)Pm(Cm - 1) = ModelSpace.PolarPoi nt(LPm, Atan * 2, 50)NPm = ModelSPaCe.PoIarPoi nt(NPm, 0, 30)CaSe "K"Ck = Ck = 1ReDim PreSerVe Pk(Ck)Pk(Ck - 1) = ModelSpace.Polar

10、Poi nt(LPk, PI / 2, 28 / 2 + 50)CaSe "B"CB = CB + 1ReDim PreSerVe PB(CB)PB(CB - 1) = ModelSpace.PolarPoi nt(LPk, PI / 2, 28 / 2 + 50)CaSe "G"End SeIeCtLin = HeadCaSe "矿用开关"Head = MyteStDataSet.Tables(0).Rows(j).Item("HeadPoint")Tail = MyteStDataSet.Tables(0).R

11、ows(j).Item("TailPoi nt" )If Tail ="M" ThenLPk = ModelSpace.PolarPoi nt(LPm, PI / 2, 20 / 2)ModelSpace.Switch("矿用开关"，LPk, NeWSCale3d(1),0, "KBZ", "315 X 6/3.4","12#")EISeIf Tail ="K" And Lin ="K" ThenLPk = ModelSpace.Pol

12、arPoi nt(LPk, PI / 2, 20 / 10)ModelSpace.Switch("矿用开关"，LPk, NeWSCale3d(1),0, "KBZ", "315 X 6/3.4","12#")EISeIf Tail ="K" And Lin ="B" ThenCB = CB + 1ReDim PreSerVe PB(CB - 1)PB(CB - 1) = LPbModelSpace.Switch("矿用开关"，LPm, NeWSCale3d

13、(1),0, "KBZ", "315 X 6/3.4","12#")LPm = ModelSpace.PolarPoi nt(LPm, PI, 30)EISeIf Tail ="K" And Lin ="" ThenCB = CB + 1ReDim PreSerVe PB(CB - 1)PB(CB - 1) = LPbModeISpace.Switch("矿用开关"，LPm, NeWSCaIe3d(1),0, "KBZ", "315 X 6/3.

14、4","12#")LPm = ModelSpace.PolarPoi nt(LPm, PI, 30) EISeIf Tail = "KM" ThenFor Lj = 0To Cm - 1MaXY = MaX(Pm(Cm).Y, MaXY) Mi nX = Mi n( Pm(Cm).X, Mi nX)NeXtFor Lj = 0To Ck - 1MaXY = MaX(MaxY, Pk(Ck).Y)MinX = Mi n( Mi nX, Pk(Ck).X)NeXtIf Lin ="M" ThenMaXY = MaX(MaxY,

15、LPm.Y)LPk =NeWPOi nt3d(LPm.X / 2 + Mi nX / 2, MaxY, 0)LPk = ModelSpace.PolarPoi nt(LPk, PI / 2, 25)ModelSpace.Switch("矿用开关",LPk,NeWSCale3d(1), 0,"KBZ", "315 X6/3.4","12#")End IfEnd IfLin = Head"电缆型号").ToString"电缆截面").ToString"电缆长度"

16、;).ToString电缆允许长时电流")"类别").ToString"Sn" ).ToStringC = 0XHao = MyteStDataSet.Tables(0).Rows(j).tem(Area = MyteStDataSet.Tables(0).Rows(j).Item(Cha ng = MyteStDataSet.Tables(0).Rows(j).Item(XHao = XHao &"-" & Area &"-" & ChangKP1 = ModeISPaC

17、e.PolarPoi nt(Kgua nP(KC - 1), PI / 2, 10)IC = MyteStDataSet.Tables(0).Rows(j).Item(Sn = 0For W = j - 1 To 0 SteP -1TeStStr2 = MyteStDataSet.Tables(0).Rows(j).Item(If TeStStr2 ="矿用设备"ThenSn = Sn + MyteStDataSet.Tables(0).Rows(j).Item(ElseEXit ForEnd IfNeXtIj = Sn / Un / Sqrt(3)ModelSpace.C

18、able("矿用电缆", KP1, NeWSCale3d(1), 0, XHao, IC, Ij)CaSe "矿用变压器"Tail ="B"Lin =""BC = BC + 1ReDim PreSerVe BP(BC)BP(BC - 1) =NeWPOi nt3d(Kgua nP(0).X + KgUa nP(KC - 1).X) / 2, (KgUa nP(0).Y +KgUa nP(KC - 1).Y) / 2, 0)BP(BC - 1) = ModelSpace.PolarPo in t(BP(BC - 1)

19、, PI / 2, 10 + 50 + 20)XHao = MyteStDataSet.Tables(0).Rows(j).Item("设备型号")Sn = MyteStDataSet.Tables(0).Rows(j).ltem("Sn" ).ToStringModelSpace.KBSGZY_YY("移动变压器", BP(BC - 1), NeWSCale3d(1), 0, XHao, Sn)BP1 = ModelSpace.PolarPoi nt(BP(BC - 1), PI, 10)BP(BC - 1) = ModelSpac

20、e.PolarPoi nt(BP(BC - 1), PI / 2, 28.5)For K = 0 To KC - 1BP2 = ModelSpace.PolarPo in t(BP1, 0, (K + 1) / (KC + 1) * 20)KP1 = ModelSpace.PolarPoi nt(Kgua nP(K), PI / 2, 50 + 10)ModelSpace.AddLi ne(KP1, BP2)NeXtIj)XHao = MyteStDataSet.Tables(0).Rows(j).Item(Area = MyteStDataSet.Tables(0).Rows(j).Item

21、(Cha ng = MyteStDataSet.Tables(0).Rows(j).Item("电缆型号").ToString"电缆截面").ToString"电缆长度").ToStringXHao = XHao &"-" & Area &"-" & ChangIC = MyteStDataSet.Tables(0).Rows(j).Item(Sn = 0"电缆允许长时电流")For W = j - 1 To 0 SteP -1TeStStr2

22、 = MyteStDataSet.Tables(0).Rows(j).ltem(If TeStStr2 ="矿用设备"ThenSn = Sn + MyteStDataSet.Tables(0).Rows(j).Item(End IfIf TeStStr2 ="矿用变压器"Then EXit ForNeXtIj = Sn / Un / Sqrt(3)ModelSpace.Cable("变压器电缆", BP(BC - 1),If BC >= 2 ThenModelSpaceAddLi ne(BP(BC - 2), BP(BC - 1

23、)End IfKC = 0CaSe "高压开关"GC = GC + 1ReDim PreSerVe GPS(GC)GP = ModelSpacePolarPoi nt(BP(BC - 1), 0, 40)GPS(GC - 1) = ModelSpace.PolarPoi nt(GP, PI / 2, 28.5)XHao = MyteStDataSet.Tables(0).Rows(j).Item(If XHao <> "" ThenArea = MyteStDataSet.Tables(0).Rows(j).Item(Cha ng = MyteStDataSet.Tables(0).Rows(j).Item(XHao = XHao &"-" & Area &"-" & ChangIC = MyteStDataSet.Ta