infoworks-ruby-scripts/model-build/script_inc/callback/meter_node_cb.bas at master · modelcreate/infoworks-ruby-scripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
public sub OnBeginRecordNode

	if Importer.Field("d_operatio") = "Abandoned" or _
      Importer.Field("d_operatio") = "Proposed"  or _
      Importer.Field("d_type") = "Revenue"  or _
      Importer.Field("d_type") = "WET"  then
    	Importer.WriteRecord = false
	end if


end sub

public sub OnEndRecordNode

	diameter = DiameterToNum(Importer.Field("d_diameter"))
	Importer.Field("user_text_9") = diameter

end sub


Private Function DiameterToNum(dia)

    Dim postfix
    postfix = Right(dia, 2)

    Select Case postfix
        Case "mm"
            'strip mm
            DiameterToNum = Left(dia, Len(dia) - 2)

        Case "in"
            'Concert inch to mm
            DiameterToNum = InchToMM(dia)

        Case "wn","er"
          'Unkown or Other
            DiameterToNum = ""

        Case Else
            'Assume empty
            DiameterToNum = dia
    End Select

End Function


Private Function InchToMM(dia)

    Dim fraction
    fraction = 0
    Dim fractionPosition
    fractionPosition = InStr(dia, "/")

    Dim trimCount
    trimCount = 2

    If fractionPosition > 0 Then
        'Found Fraction
        Dim fractionString
        fractionString = Mid(dia, fractionPosition - 1, 3)
        Select Case fractionString
            Case "1/2"
                fraction = 0.5
            Case "1/4"
                fraction = 0.25
        End Select
        trimCount = 6

    End If


    InchToMM = (Left(dia, Len(dia) - trimCount) + fraction) * 25.4

End Function