关于PDMS E3D管道充水重量的统计（技术分享）

setup form !!pipeflushing    list .lisElement 'Element' width 50 hei 20    button .bntAdd 'Add' at xmin.lisElement ymax + 0.1    button .bntAddMember 'Add member'     button .bntRem 'Remove'      button .bntRemall 'Remove All'      text .result 'Volume' at xmin.bntAddMember ymax + 0.5 width 25 is string     button .Calculate 'Calculate'exitdefine method .pipeflushing()    !this.formtitle = 'Flushing Volume'    !this.bntAdd.callback = '!this.AddCE()'    !this.bntAddMember.callback = '!this.AddMember()'    !this.bntRem.callback = '!this.Remove()'    !this.bntRemall.callback = '!this.lisElement.dtext = array()'    !this.Calculate.callback = '!this.Calculate()'endmethoddefine method .AddCE()    !list = !this.lisElement.dtext    !name = !!ce.fullname    if(!list.Find(!name).size() gt 0)then        return    endif    !list.append(!name)    !this.lisElement.dtext = !list   endmethoddefine method .AddMember()    !list = !this.lisElement.dtext    do !x value !!ce.member         !name = !x.fullname        if(!list.Find(!name).size() gt 0)then            return        endif        !list.append(!name)        !this.lisElement.dtext = !list       enddo endmethoddefine method .Remove()     if(!This.lisElement.val eq 0)then        return    endif    !list = !this.lisElement.dtext    !list.Remove(!This.lisElement.val)     !this.lisElement.dtext = !listendmethoddefine method .Calculate()    !total = 0    do !x value !this.lisElement.dtext       !element = !x.dbref()       handle any            skip       endhandle        var !members coll all bran member for $!element       do !item value !members            !element = !item.dbref()            if(!element.type eq 'TUBI')then                !od = !element.para[2]                !Wallthickness = !element.PWALLT[1]                !len = !element.ltlength                !radius = !od * 0.5 - !Wallthickness                !vol = !radius.Power(2) * 3.1415926 * !len                !total = !total + !vol            else                !od = !element.Aodiam                !Wallthickness = !element.PWALLT[1]                handle (2,244)                    skip                endhandle                !len = !element.Fitlength                !radius = !od * 0.5 - !Wallthickness                !vol = !radius.Power(2) * 3.1415926 * !len                !total = !total + !vol            endif        enddo    enddo    !this.result.val = !total.string('D0')endmethod