-
Notifications
You must be signed in to change notification settings - Fork 1
/
ATK_CompareRTD_6RobotVisual.bas
63 lines (52 loc) · 1.88 KB
/
ATK_CompareRTD_6RobotVisual.bas
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
Attribute VB_Name = "ATK_CompareRTD_6RobotVisual"
Sub showChangesInRobot(project As RobotProject, sortedChanges As Dictionary)
Dim oGroupServ As RobotGroupServer
Set oGroupServ = project.Structure.Groups
For Each Group In sortedChanges.Keys
If Group = "NODES" Or Group = "BARS" Or Group = "PANELS" Then
For Each Category In sortedChanges(Group).Keys
changeType = sortedChanges(Group)(Category)
Select Case Group
Case "NODES"
oGroupServ.Create I_OT_NODE, changeType(0), changeType(2), getCategoryColor(changeType(1))
Case "BARS"
oGroupServ.Create I_OT_BAR, changeType(0), changeType(2), getCategoryColor(changeType(1))
Case "PANELS"
oGroupServ.Create I_OT_PANEL, changeType(0), changeType(2), getCategoryColor(changeType(1))
End Select
Next Category
End If
Next Group
End Sub
Function getCategoryColor(Category As Variant) As Long
Select Case Category
Case "GEOM"
getCategoryColor = 3
Case "SUPP"
getCategoryColor = 2
Case "SECTION"
getCategoryColor = 4
Case "MAT"
getCategoryColor = 6
Case "RELEASE"
getCategoryColor = 8
Case "NEW"
getCategoryColor = 13
Case "MULTIPLE"
getCategoryColor = 0
End Select
End Function
Sub updateRobotViewSettings(project As RobotProject)
Dim Rv As RobotView
Dim RVP As RobotViewDisplayParams
Set Rv = project.ViewMngr.GetView(1)
Set RVP = Rv.ParamsDisplay
RVP.Set I_VDA_STRUCTURE_GROUP_COLORS, True
RVP.Set I_VDA_STRUCTURE_BAR_NAMES, True
RVP.Set I_VDA_STRUCTURE_ONLY_FOR_SELECTED_OBJECTS, False
RVP.Set I_VDA_STRUCTURE_NODE_NUMBERS, False
RVP.Set I_VDA_STRUCTURE_BAR_NUMBERS, True
RVP.Set I_VDA_FE_PANEL_NUMBERS, False
Rv.ParamsDisplay.SymbolSize = 1
Rv.Redraw (1)
End Sub