Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

Dim visPropertySet1 As VisPropertySet
Set visPropertySet1 = selection1.VisProperties

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim hybridShapePointExplicit1 As Parameter
Set hybridShapePointExplicit1 = parameters1.Item("Point.1084")

Dim parameters2 As CATBaseDispatch
Set parameters2 = hybridShapePointExplicit1.Parent

Dim bSTR1 As String
bSTR1 = hybridShapePointExplicit1.Name

selection1.Add hybridShapePointExplicit1

Dim parameters3 As Parameters
Set parameters3 = part1.Parameters

Dim hybridShapePointExplicit2 As Parameter
Set hybridShapePointExplicit2 = parameters3.Item("Point.2144")

Dim parameters4 As CATBaseDispatch
Set parameters4 = hybridShapePointExplicit2.Parent

Dim bSTR2 As String
bSTR2 = hybridShapePointExplicit2.Name

selection1.Add hybridShapePointExplicit2

Dim parameters5 As Parameters
Set parameters5 = part1.Parameters

Dim hybridShapePointExplicit3 As Parameter
Set hybridShapePointExplicit3 = parameters5.Item("Point.2164")

Dim parameters6 As CATBaseDispatch
Set parameters6 = hybridShapePointExplicit3.Parent

Dim bSTR3 As String
bSTR3 = hybridShapePointExplicit3.Name

selection1.Add hybridShapePointExplicit3

Dim parameters7 As Parameters
Set parameters7 = part1.Parameters

Dim hybridShapePointExplicit4 As Parameter
Set hybridShapePointExplicit4 = parameters7.Item("Point.2328")

Dim parameters8 As CATBaseDispatch
Set parameters8 = hybridShapePointExplicit4.Parent

Dim bSTR4 As String
bSTR4 = hybridShapePointExplicit4.Name

selection1.Add hybridShapePointExplicit4

Dim parameters9 As Parameters
Set parameters9 = part1.Parameters

Dim hybridShapePointExplicit5 As Parameter
Set hybridShapePointExplicit5 = parameters9.Item("Point.2344")

Dim parameters10 As CATBaseDispatch
Set parameters10 = hybridShapePointExplicit5.Parent

Dim bSTR5 As String
bSTR5 = hybridShapePointExplicit5.Name

selection1.Add hybridShapePointExplicit5

Dim parameters11 As Parameters
Set parameters11 = part1.Parameters

Dim hybridShapePointExplicit6 As Parameter
Set hybridShapePointExplicit6 = parameters11.Item("Point.2423")

Dim parameters12 As CATBaseDispatch
Set parameters12 = hybridShapePointExplicit6.Parent

Dim bSTR6 As String
bSTR6 = hybridShapePointExplicit6.Name

selection1.Add hybridShapePointExplicit6

Dim parameters13 As Parameters
Set parameters13 = part1.Parameters

Dim hybridShapePointExplicit7 As Parameter
Set hybridShapePointExplicit7 = parameters13.Item("Point.2543")

Dim parameters14 As CATBaseDispatch
Set parameters14 = hybridShapePointExplicit7.Parent

Dim bSTR7 As String
bSTR7 = hybridShapePointExplicit7.Name

selection1.Add hybridShapePointExplicit7

Dim parameters15 As Parameters
Set parameters15 = part1.Parameters

Dim hybridShapePointExplicit8 As Parameter
Set hybridShapePointExplicit8 = parameters15.Item("Point.2544")

Dim parameters16 As CATBaseDispatch
Set parameters16 = hybridShapePointExplicit8.Parent

Dim bSTR8 As String
bSTR8 = hybridShapePointExplicit8.Name

selection1.Add hybridShapePointExplicit8

Dim parameters17 As Parameters
Set parameters17 = part1.Parameters

Dim hybridShapePointExplicit9 As Parameter
Set hybridShapePointExplicit9 = parameters17.Item("Point.2545")

Dim parameters18 As CATBaseDispatch
Set parameters18 = hybridShapePointExplicit9.Parent

Dim bSTR9 As String
bSTR9 = hybridShapePointExplicit9.Name

selection1.Add hybridShapePointExplicit9

Dim parameters19 As Parameters
Set parameters19 = part1.Parameters

Dim hybridShapePointExplicit10 As Parameter
Set hybridShapePointExplicit10 = parameters19.Item("Point.2546")

Dim parameters20 As CATBaseDispatch
Set parameters20 = hybridShapePointExplicit10.Parent

Dim bSTR10 As String
bSTR10 = hybridShapePointExplicit10.Name

selection1.Add hybridShapePointExplicit10

Dim parameters21 As Parameters
Set parameters21 = part1.Parameters

Dim hybridShapePointExplicit11 As Parameter
Set hybridShapePointExplicit11 = parameters21.Item("Point.2562")

Dim parameters22 As CATBaseDispatch
Set parameters22 = hybridShapePointExplicit11.Parent

Dim bSTR11 As String
bSTR11 = hybridShapePointExplicit11.Name

selection1.Add hybridShapePointExplicit11

Dim parameters23 As Parameters
Set parameters23 = part1.Parameters

Dim hybridShapePointExplicit12 As Parameter
Set hybridShapePointExplicit12 = parameters23.Item("Point.2563")

Dim parameters24 As CATBaseDispatch
Set parameters24 = hybridShapePointExplicit12.Parent

Dim bSTR12 As String
bSTR12 = hybridShapePointExplicit12.Name

selection1.Add hybridShapePointExplicit12

Dim parameters25 As Parameters
Set parameters25 = part1.Parameters

Dim hybridShapePointExplicit13 As Parameter
Set hybridShapePointExplicit13 = parameters25.Item("Point.2664")

Dim parameters26 As CATBaseDispatch
Set parameters26 = hybridShapePointExplicit13.Parent

Dim bSTR13 As String
bSTR13 = hybridShapePointExplicit13.Name

selection1.Add hybridShapePointExplicit13

Dim parameters27 As Parameters
Set parameters27 = part1.Parameters

Dim hybridShapePointExplicit14 As Parameter
Set hybridShapePointExplicit14 = parameters27.Item("Point.2709")

Dim parameters28 As CATBaseDispatch
Set parameters28 = hybridShapePointExplicit14.Parent

Dim bSTR14 As String
bSTR14 = hybridShapePointExplicit14.Name

selection1.Add hybridShapePointExplicit14

Dim parameters29 As Parameters
Set parameters29 = part1.Parameters

Dim hybridShapePointExplicit15 As Parameter
Set hybridShapePointExplicit15 = parameters29.Item("Point.2711")

Dim parameters30 As CATBaseDispatch
Set parameters30 = hybridShapePointExplicit15.Parent

Dim bSTR15 As String
bSTR15 = hybridShapePointExplicit15.Name

selection1.Add hybridShapePointExplicit15

Dim parameters31 As Parameters
Set parameters31 = part1.Parameters

Dim hybridShapePointExplicit16 As Parameter
Set hybridShapePointExplicit16 = parameters31.Item("Point.2713")

Dim parameters32 As CATBaseDispatch
Set parameters32 = hybridShapePointExplicit16.Parent

Dim bSTR16 As String
bSTR16 = hybridShapePointExplicit16.Name

selection1.Add hybridShapePointExplicit16

Dim parameters33 As Parameters
Set parameters33 = part1.Parameters

Dim hybridShapePointExplicit17 As Parameter
Set hybridShapePointExplicit17 = parameters33.Item("Point.2717")

Dim parameters34 As CATBaseDispatch
Set parameters34 = hybridShapePointExplicit17.Parent

Dim bSTR17 As String
bSTR17 = hybridShapePointExplicit17.Name

selection1.Add hybridShapePointExplicit17

Dim parameters35 As Parameters
Set parameters35 = part1.Parameters

Dim hybridShapePointExplicit18 As Parameter
Set hybridShapePointExplicit18 = parameters35.Item("Point.2719")

Dim parameters36 As CATBaseDispatch
Set parameters36 = hybridShapePointExplicit18.Parent

Dim bSTR18 As String
bSTR18 = hybridShapePointExplicit18.Name

selection1.Add hybridShapePointExplicit18

Dim parameters37 As Parameters
Set parameters37 = part1.Parameters

Dim hybridShapePointExplicit19 As Parameter
Set hybridShapePointExplicit19 = parameters37.Item("Point.2726")

Dim parameters38 As CATBaseDispatch
Set parameters38 = hybridShapePointExplicit19.Parent

Dim bSTR19 As String
bSTR19 = hybridShapePointExplicit19.Name

selection1.Add hybridShapePointExplicit19

Dim parameters39 As Parameters
Set parameters39 = part1.Parameters

Dim hybridShapePointExplicit20 As Parameter
Set hybridShapePointExplicit20 = parameters39.Item("Point.2742")

Dim parameters40 As CATBaseDispatch
Set parameters40 = hybridShapePointExplicit20.Parent

Dim bSTR20 As String
bSTR20 = hybridShapePointExplicit20.Name

selection1.Add hybridShapePointExplicit20

Dim parameters41 As Parameters
Set parameters41 = part1.Parameters

Dim hybridShapePointExplicit21 As Parameter
Set hybridShapePointExplicit21 = parameters41.Item("Point.2753")

Dim parameters42 As CATBaseDispatch
Set parameters42 = hybridShapePointExplicit21.Parent

Dim bSTR21 As String
bSTR21 = hybridShapePointExplicit21.Name

selection1.Add hybridShapePointExplicit21

Dim parameters43 As Parameters
Set parameters43 = part1.Parameters

Dim hybridShapePointExplicit22 As Parameter
Set hybridShapePointExplicit22 = parameters43.Item("Point.2754")

Dim parameters44 As CATBaseDispatch
Set parameters44 = hybridShapePointExplicit22.Parent

Dim bSTR22 As String
bSTR22 = hybridShapePointExplicit22.Name

selection1.Add hybridShapePointExplicit22

Dim parameters45 As Parameters
Set parameters45 = part1.Parameters

Dim hybridShapePointExplicit23 As Parameter
Set hybridShapePointExplicit23 = parameters45.Item("Point.2779")

Dim parameters46 As CATBaseDispatch
Set parameters46 = hybridShapePointExplicit23.Parent

Dim bSTR23 As String
bSTR23 = hybridShapePointExplicit23.Name

selection1.Add hybridShapePointExplicit23

Dim parameters47 As Parameters
Set parameters47 = part1.Parameters

Dim hybridShapePointExplicit24 As Parameter
Set hybridShapePointExplicit24 = parameters47.Item("Point.2780")

Dim parameters48 As CATBaseDispatch
Set parameters48 = hybridShapePointExplicit24.Parent

Dim bSTR24 As String
bSTR24 = hybridShapePointExplicit24.Name

selection1.Add hybridShapePointExplicit24

Dim parameters49 As Parameters
Set parameters49 = part1.Parameters

Dim hybridShapePointExplicit25 As Parameter
Set hybridShapePointExplicit25 = parameters49.Item("Point.2843")

Dim parameters50 As CATBaseDispatch
Set parameters50 = hybridShapePointExplicit25.Parent

Dim bSTR25 As String
bSTR25 = hybridShapePointExplicit25.Name

selection1.Add hybridShapePointExplicit25

Dim parameters51 As Parameters
Set parameters51 = part1.Parameters

Dim hybridShapePointExplicit26 As Parameter
Set hybridShapePointExplicit26 = parameters51.Item("Project.236")

Dim parameters52 As CATBaseDispatch
Set parameters52 = hybridShapePointExplicit26.Parent

Dim bSTR26 As String
bSTR26 = hybridShapePointExplicit26.Name

selection1.Add hybridShapePointExplicit26

Dim parameters53 As Parameters
Set parameters53 = part1.Parameters

Dim hybridShapePointExplicit27 As Parameter
Set hybridShapePointExplicit27 = parameters53.Item("Point.2858")

Dim parameters54 As CATBaseDispatch
Set parameters54 = hybridShapePointExplicit27.Parent

Dim bSTR27 As String
bSTR27 = hybridShapePointExplicit27.Name

selection1.Add hybridShapePointExplicit27

Dim parameters55 As Parameters
Set parameters55 = part1.Parameters

Dim hybridShapePointExplicit28 As Parameter
Set hybridShapePointExplicit28 = parameters55.Item("Point.2860")

Dim parameters56 As CATBaseDispatch
Set parameters56 = hybridShapePointExplicit28.Parent

Dim bSTR28 As String
bSTR28 = hybridShapePointExplicit28.Name

selection1.Add hybridShapePointExplicit28

Dim parameters57 As Parameters
Set parameters57 = part1.Parameters

Dim hybridShapePointExplicit29 As Parameter
Set hybridShapePointExplicit29 = parameters57.Item("Point.2864")

Dim parameters58 As CATBaseDispatch
Set parameters58 = hybridShapePointExplicit29.Parent

Dim bSTR29 As String
bSTR29 = hybridShapePointExplicit29.Name

selection1.Add hybridShapePointExplicit29

Dim parameters59 As Parameters
Set parameters59 = part1.Parameters

Dim hybridShapePointExplicit30 As Parameter
Set hybridShapePointExplicit30 = parameters59.Item("Point.2868")

Dim parameters60 As CATBaseDispatch
Set parameters60 = hybridShapePointExplicit30.Parent

Dim bSTR30 As String
bSTR30 = hybridShapePointExplicit30.Name

selection1.Add hybridShapePointExplicit30

Dim parameters61 As Parameters
Set parameters61 = part1.Parameters

Dim hybridShapePointExplicit31 As Parameter
Set hybridShapePointExplicit31 = parameters61.Item("Point.2875")

Dim parameters62 As CATBaseDispatch
Set parameters62 = hybridShapePointExplicit31.Parent

Dim bSTR31 As String
bSTR31 = hybridShapePointExplicit31.Name

selection1.Add hybridShapePointExplicit31

Dim parameters63 As Parameters
Set parameters63 = part1.Parameters

Dim hybridShapePointExplicit32 As Parameter
Set hybridShapePointExplicit32 = parameters63.Item("Point.2876")

Dim parameters64 As CATBaseDispatch
Set parameters64 = hybridShapePointExplicit32.Parent

Dim bSTR32 As String
bSTR32 = hybridShapePointExplicit32.Name

selection1.Add hybridShapePointExplicit32

Dim parameters65 As Parameters
Set parameters65 = part1.Parameters

Dim hybridShapePointExplicit33 As Parameter
Set hybridShapePointExplicit33 = parameters65.Item("Point.2877")

Dim parameters66 As CATBaseDispatch
Set parameters66 = hybridShapePointExplicit33.Parent

Dim bSTR33 As String
bSTR33 = hybridShapePointExplicit33.Name

selection1.Add hybridShapePointExplicit33

Dim parameters67 As Parameters
Set parameters67 = part1.Parameters

Dim hybridShapePointExplicit34 As Parameter
Set hybridShapePointExplicit34 = parameters67.Item("Point.2879")

Dim parameters68 As CATBaseDispatch
Set parameters68 = hybridShapePointExplicit34.Parent

Dim bSTR34 As String
bSTR34 = hybridShapePointExplicit34.Name

selection1.Add hybridShapePointExplicit34

Dim parameters69 As Parameters
Set parameters69 = part1.Parameters

Dim hybridShapePointExplicit35 As Parameter
Set hybridShapePointExplicit35 = parameters69.Item("Point.2881")

Dim parameters70 As CATBaseDispatch
Set parameters70 = hybridShapePointExplicit35.Parent

Dim bSTR35 As String
bSTR35 = hybridShapePointExplicit35.Name

selection1.Add hybridShapePointExplicit35

Dim parameters71 As Parameters
Set parameters71 = part1.Parameters

Dim hybridShapePointExplicit36 As Parameter
Set hybridShapePointExplicit36 = parameters71.Item("Point.2885")

Dim parameters72 As CATBaseDispatch
Set parameters72 = hybridShapePointExplicit36.Parent

Dim bSTR36 As String
bSTR36 = hybridShapePointExplicit36.Name

selection1.Add hybridShapePointExplicit36

Dim parameters73 As Parameters
Set parameters73 = part1.Parameters

Dim hybridShapePointExplicit37 As Parameter
Set hybridShapePointExplicit37 = parameters73.Item("Point.2890")

Dim parameters74 As CATBaseDispatch
Set parameters74 = hybridShapePointExplicit37.Parent

Dim bSTR37 As String
bSTR37 = hybridShapePointExplicit37.Name

selection1.Add hybridShapePointExplicit37

Dim parameters75 As Parameters
Set parameters75 = part1.Parameters

Dim hybridShapePointExplicit38 As Parameter
Set hybridShapePointExplicit38 = parameters75.Item("Project.239")

Dim parameters76 As CATBaseDispatch
Set parameters76 = hybridShapePointExplicit38.Parent

Dim bSTR38 As String
bSTR38 = hybridShapePointExplicit38.Name

selection1.Add hybridShapePointExplicit38

Dim parameters77 As Parameters
Set parameters77 = part1.Parameters

Dim hybridShapePointExplicit39 As Parameter
Set hybridShapePointExplicit39 = parameters77.Item("Point.2894")

Dim parameters78 As CATBaseDispatch
Set parameters78 = hybridShapePointExplicit39.Parent

Dim bSTR39 As String
bSTR39 = hybridShapePointExplicit39.Name

selection1.Add hybridShapePointExplicit39

Dim parameters79 As Parameters
Set parameters79 = part1.Parameters

Dim hybridShapePointExplicit40 As Parameter
Set hybridShapePointExplicit40 = parameters79.Item("Project.240")

Dim parameters80 As CATBaseDispatch
Set parameters80 = hybridShapePointExplicit40.Parent

Dim bSTR40 As String
bSTR40 = hybridShapePointExplicit40.Name

selection1.Add hybridShapePointExplicit40

Dim parameters81 As Parameters
Set parameters81 = part1.Parameters

Dim hybridShapePointExplicit41 As Parameter
Set hybridShapePointExplicit41 = parameters81.Item("Point.2896")

Dim parameters82 As CATBaseDispatch
Set parameters82 = hybridShapePointExplicit41.Parent

Dim bSTR41 As String
bSTR41 = hybridShapePointExplicit41.Name

selection1.Add hybridShapePointExplicit41

Dim parameters83 As Parameters
Set parameters83 = part1.Parameters

Dim hybridShapePointExplicit42 As Parameter
Set hybridShapePointExplicit42 = parameters83.Item("Project.241")

Dim parameters84 As CATBaseDispatch
Set parameters84 = hybridShapePointExplicit42.Parent

Dim bSTR42 As String
bSTR42 = hybridShapePointExplicit42.Name

selection1.Add hybridShapePointExplicit42

Dim parameters85 As Parameters
Set parameters85 = part1.Parameters

Dim hybridShapePointExplicit43 As Parameter
Set hybridShapePointExplicit43 = parameters85.Item("Point.2897")

Dim parameters86 As CATBaseDispatch
Set parameters86 = hybridShapePointExplicit43.Parent

Dim bSTR43 As String
bSTR43 = hybridShapePointExplicit43.Name

selection1.Add hybridShapePointExplicit43

Dim parameters87 As Parameters
Set parameters87 = part1.Parameters

Dim hybridShapePointExplicit44 As Parameter
Set hybridShapePointExplicit44 = parameters87.Item("Project.242")

Dim parameters88 As CATBaseDispatch
Set parameters88 = hybridShapePointExplicit44.Parent

Dim bSTR44 As String
bSTR44 = hybridShapePointExplicit44.Name

selection1.Add hybridShapePointExplicit44

Dim parameters89 As Parameters
Set parameters89 = part1.Parameters

Dim hybridShapePointExplicit45 As Parameter
Set hybridShapePointExplicit45 = parameters89.Item("Point.3")

Dim parameters90 As CATBaseDispatch
Set parameters90 = hybridShapePointExplicit45.Parent

Dim bSTR45 As String
bSTR45 = hybridShapePointExplicit45.Name

selection1.Add hybridShapePointExplicit45

Dim parameters91 As Parameters
Set parameters91 = part1.Parameters

Dim hybridShapePointExplicit46 As Parameter
Set hybridShapePointExplicit46 = parameters91.Item("Point.4")

Dim parameters92 As CATBaseDispatch
Set parameters92 = hybridShapePointExplicit46.Parent

Dim bSTR46 As String
bSTR46 = hybridShapePointExplicit46.Name

selection1.Add hybridShapePointExplicit46

Dim parameters93 As Parameters
Set parameters93 = part1.Parameters

Dim hybridShapePointExplicit47 As Parameter
Set hybridShapePointExplicit47 = parameters93.Item("Point.1")

Dim parameters94 As CATBaseDispatch
Set parameters94 = hybridShapePointExplicit47.Parent

Dim bSTR47 As String
bSTR47 = hybridShapePointExplicit47.Name

selection1.Add hybridShapePointExplicit47

Dim parameters95 As Parameters
Set parameters95 = part1.Parameters

Dim hybridShapePointExplicit48 As Parameter
Set hybridShapePointExplicit48 = parameters95.Item("Point.2")

Dim parameters96 As CATBaseDispatch
Set parameters96 = hybridShapePointExplicit48.Parent

Dim bSTR48 As String
bSTR48 = hybridShapePointExplicit48.Name

selection1.Add hybridShapePointExplicit48

Dim parameters97 As Parameters
Set parameters97 = part1.Parameters

Dim hybridShapePointExplicit49 As Parameter
Set hybridShapePointExplicit49 = parameters97.Item("Point.1")

Dim parameters98 As CATBaseDispatch
Set parameters98 = hybridShapePointExplicit49.Parent

Dim bSTR49 As String
bSTR49 = hybridShapePointExplicit49.Name

selection1.Add hybridShapePointExplicit49

Dim parameters99 As Parameters
Set parameters99 = part1.Parameters

Dim hybridShapePointExplicit50 As Parameter
Set hybridShapePointExplicit50 = parameters99.Item("Point.2")

Dim parameters100 As CATBaseDispatch
Set parameters100 = hybridShapePointExplicit50.Parent

Dim bSTR50 As String
bSTR50 = hybridShapePointExplicit50.Name

selection1.Add hybridShapePointExplicit50

Dim parameters101 As Parameters
Set parameters101 = part1.Parameters

Dim hybridShapePointExplicit51 As Parameter
Set hybridShapePointExplicit51 = parameters101.Item("Point.3")

Dim parameters102 As CATBaseDispatch
Set parameters102 = hybridShapePointExplicit51.Parent

Dim bSTR51 As String
bSTR51 = hybridShapePointExplicit51.Name

selection1.Add hybridShapePointExplicit51

Dim parameters103 As Parameters
Set parameters103 = part1.Parameters

Dim hybridShapePointExplicit52 As Parameter
Set hybridShapePointExplicit52 = parameters103.Item("Point.4")

Dim parameters104 As CATBaseDispatch
Set parameters104 = hybridShapePointExplicit52.Parent

Dim bSTR52 As String
bSTR52 = hybridShapePointExplicit52.Name

selection1.Add hybridShapePointExplicit52

Dim parameters105 As Parameters
Set parameters105 = part1.Parameters

Dim hybridShapePointExplicit53 As Parameter
Set hybridShapePointExplicit53 = parameters105.Item("Point.5")

Dim parameters106 As CATBaseDispatch
Set parameters106 = hybridShapePointExplicit53.Parent

Dim bSTR53 As String
bSTR53 = hybridShapePointExplicit53.Name

selection1.Add hybridShapePointExplicit53

Dim parameters107 As Parameters
Set parameters107 = part1.Parameters

Dim hybridShapePointExplicit54 As Parameter
Set hybridShapePointExplicit54 = parameters107.Item("Point.6")

Dim parameters108 As CATBaseDispatch
Set parameters108 = hybridShapePointExplicit54.Parent

Dim bSTR54 As String
bSTR54 = hybridShapePointExplicit54.Name

selection1.Add hybridShapePointExplicit54

Dim parameters109 As Parameters
Set parameters109 = part1.Parameters

Dim hybridShapePointExplicit55 As Parameter
Set hybridShapePointExplicit55 = parameters109.Item("Point.7")

Dim parameters110 As CATBaseDispatch
Set parameters110 = hybridShapePointExplicit55.Parent

Dim bSTR55 As String
bSTR55 = hybridShapePointExplicit55.Name

selection1.Add hybridShapePointExplicit55

Dim parameters111 As Parameters
Set parameters111 = part1.Parameters

Dim hybridShapePointExplicit56 As Parameter
Set hybridShapePointExplicit56 = parameters111.Item("Point.8")

Dim parameters112 As CATBaseDispatch
Set parameters112 = hybridShapePointExplicit56.Parent

Dim bSTR56 As String
bSTR56 = hybridShapePointExplicit56.Name

selection1.Add hybridShapePointExplicit56

Dim parameters113 As Parameters
Set parameters113 = part1.Parameters

Dim hybridShapePointExplicit57 As Parameter
Set hybridShapePointExplicit57 = parameters113.Item("Point.9")

Dim parameters114 As CATBaseDispatch
Set parameters114 = hybridShapePointExplicit57.Parent

Dim bSTR57 As String
bSTR57 = hybridShapePointExplicit57.Name

selection1.Add hybridShapePointExplicit57

Dim parameters115 As Parameters
Set parameters115 = part1.Parameters

Dim hybridShapePointExplicit58 As Parameter
Set hybridShapePointExplicit58 = parameters115.Item("Point.10")

Dim parameters116 As CATBaseDispatch
Set parameters116 = hybridShapePointExplicit58.Parent

Dim bSTR58 As String
bSTR58 = hybridShapePointExplicit58.Name

selection1.Add hybridShapePointExplicit58

Dim parameters117 As Parameters
Set parameters117 = part1.Parameters

Dim hybridShapePointExplicit59 As Parameter
Set hybridShapePointExplicit59 = parameters117.Item("Point.11")

Dim parameters118 As CATBaseDispatch
Set parameters118 = hybridShapePointExplicit59.Parent

Dim bSTR59 As String
bSTR59 = hybridShapePointExplicit59.Name

selection1.Add hybridShapePointExplicit59

Dim parameters119 As Parameters
Set parameters119 = part1.Parameters

Dim hybridShapePointExplicit60 As Parameter
Set hybridShapePointExplicit60 = parameters119.Item("Point.12")

Dim parameters120 As CATBaseDispatch
Set parameters120 = hybridShapePointExplicit60.Parent

Dim bSTR60 As String
bSTR60 = hybridShapePointExplicit60.Name

selection1.Add hybridShapePointExplicit60

Dim parameters121 As Parameters
Set parameters121 = part1.Parameters

Dim hybridShapePointExplicit61 As Parameter
Set hybridShapePointExplicit61 = parameters121.Item("Point.13")

Dim parameters122 As CATBaseDispatch
Set parameters122 = hybridShapePointExplicit61.Parent

Dim bSTR61 As String
bSTR61 = hybridShapePointExplicit61.Name

selection1.Add hybridShapePointExplicit61

Dim parameters123 As Parameters
Set parameters123 = part1.Parameters

Dim hybridShapePointExplicit62 As Parameter
Set hybridShapePointExplicit62 = parameters123.Item("Point.14")

Dim parameters124 As CATBaseDispatch
Set parameters124 = hybridShapePointExplicit62.Parent

Dim bSTR62 As String
bSTR62 = hybridShapePointExplicit62.Name

selection1.Add hybridShapePointExplicit62

Dim parameters125 As Parameters
Set parameters125 = part1.Parameters

Dim hybridShapePointExplicit63 As Parameter
Set hybridShapePointExplicit63 = parameters125.Item("Point.15")

Dim parameters126 As CATBaseDispatch
Set parameters126 = hybridShapePointExplicit63.Parent

Dim bSTR63 As String
bSTR63 = hybridShapePointExplicit63.Name

selection1.Add hybridShapePointExplicit63

Dim parameters127 As Parameters
Set parameters127 = part1.Parameters

Dim hybridShapePointExplicit64 As Parameter
Set hybridShapePointExplicit64 = parameters127.Item("Point.16")

Dim parameters128 As CATBaseDispatch
Set parameters128 = hybridShapePointExplicit64.Parent

Dim bSTR64 As String
bSTR64 = hybridShapePointExplicit64.Name

selection1.Add hybridShapePointExplicit64

Dim parameters129 As Parameters
Set parameters129 = part1.Parameters

Dim hybridShapePointExplicit65 As Parameter
Set hybridShapePointExplicit65 = parameters129.Item("Point.17")

Dim parameters130 As CATBaseDispatch
Set parameters130 = hybridShapePointExplicit65.Parent

Dim bSTR65 As String
bSTR65 = hybridShapePointExplicit65.Name

selection1.Add hybridShapePointExplicit65

Dim parameters131 As Parameters
Set parameters131 = part1.Parameters

Dim hybridShapePointExplicit66 As Parameter
Set hybridShapePointExplicit66 = parameters131.Item("Point.18")

Dim parameters132 As CATBaseDispatch
Set parameters132 = hybridShapePointExplicit66.Parent

Dim bSTR66 As String
bSTR66 = hybridShapePointExplicit66.Name

selection1.Add hybridShapePointExplicit66

Dim parameters133 As Parameters
Set parameters133 = part1.Parameters

Dim hybridShapePointExplicit67 As Parameter
Set hybridShapePointExplicit67 = parameters133.Item("Point.19")

Dim parameters134 As CATBaseDispatch
Set parameters134 = hybridShapePointExplicit67.Parent

Dim bSTR67 As String
bSTR67 = hybridShapePointExplicit67.Name

selection1.Add hybridShapePointExplicit67

Dim parameters135 As Parameters
Set parameters135 = part1.Parameters

Dim hybridShapePointExplicit68 As Parameter
Set hybridShapePointExplicit68 = parameters135.Item("Point.20")

Dim parameters136 As CATBaseDispatch
Set parameters136 = hybridShapePointExplicit68.Parent

Dim bSTR68 As String
bSTR68 = hybridShapePointExplicit68.Name

selection1.Add hybridShapePointExplicit68

Dim parameters137 As Parameters
Set parameters137 = part1.Parameters

Dim hybridShapePointExplicit69 As Parameter
Set hybridShapePointExplicit69 = parameters137.Item("Point.21")

Dim parameters138 As CATBaseDispatch
Set parameters138 = hybridShapePointExplicit69.Parent

Dim bSTR69 As String
bSTR69 = hybridShapePointExplicit69.Name

selection1.Add hybridShapePointExplicit69

Dim parameters139 As Parameters
Set parameters139 = part1.Parameters

Dim hybridShapePointExplicit70 As Parameter
Set hybridShapePointExplicit70 = parameters139.Item("Point.22")

Dim parameters140 As CATBaseDispatch
Set parameters140 = hybridShapePointExplicit70.Parent

Dim bSTR70 As String
bSTR70 = hybridShapePointExplicit70.Name

selection1.Add hybridShapePointExplicit70

Dim parameters141 As Parameters
Set parameters141 = part1.Parameters

Dim hybridShapePointExplicit71 As Parameter
Set hybridShapePointExplicit71 = parameters141.Item("Point.25")

Dim parameters142 As CATBaseDispatch
Set parameters142 = hybridShapePointExplicit71.Parent

Dim bSTR71 As String
bSTR71 = hybridShapePointExplicit71.Name

selection1.Add hybridShapePointExplicit71

Dim parameters143 As Parameters
Set parameters143 = part1.Parameters

Dim hybridShapePointExplicit72 As Parameter
Set hybridShapePointExplicit72 = parameters143.Item("Point.1")

Dim parameters144 As CATBaseDispatch
Set parameters144 = hybridShapePointExplicit72.Parent

Dim bSTR72 As String
bSTR72 = hybridShapePointExplicit72.Name

selection1.Add hybridShapePointExplicit72

Dim parameters145 As Parameters
Set parameters145 = part1.Parameters

Dim hybridShapePointExplicit73 As Parameter
Set hybridShapePointExplicit73 = parameters145.Item("Point.1")

Dim parameters146 As CATBaseDispatch
Set parameters146 = hybridShapePointExplicit73.Parent

Dim bSTR73 As String
bSTR73 = hybridShapePointExplicit73.Name

selection1.Add hybridShapePointExplicit73

Dim parameters147 As Parameters
Set parameters147 = part1.Parameters

Dim hybridShapePointExplicit74 As Parameter
Set hybridShapePointExplicit74 = parameters147.Item("Point.6")

Dim parameters148 As CATBaseDispatch
Set parameters148 = hybridShapePointExplicit74.Parent

Dim bSTR74 As String
bSTR74 = hybridShapePointExplicit74.Name

selection1.Add hybridShapePointExplicit74

Dim parameters149 As Parameters
Set parameters149 = part1.Parameters

Dim hybridShapePointExplicit75 As Parameter
Set hybridShapePointExplicit75 = parameters149.Item("Point.7")

Dim parameters150 As CATBaseDispatch
Set parameters150 = hybridShapePointExplicit75.Parent

Dim bSTR75 As String
bSTR75 = hybridShapePointExplicit75.Name

selection1.Add hybridShapePointExplicit75

Dim parameters151 As Parameters
Set parameters151 = part1.Parameters

Dim hybridShapePointExplicit76 As Parameter
Set hybridShapePointExplicit76 = parameters151.Item("Point.8")

Dim parameters152 As CATBaseDispatch
Set parameters152 = hybridShapePointExplicit76.Parent

Dim bSTR76 As String
bSTR76 = hybridShapePointExplicit76.Name

selection1.Add hybridShapePointExplicit76

Dim parameters153 As Parameters
Set parameters153 = part1.Parameters

Dim hybridShapePointExplicit77 As Parameter
Set hybridShapePointExplicit77 = parameters153.Item("Point.9")

Dim parameters154 As CATBaseDispatch
Set parameters154 = hybridShapePointExplicit77.Parent

Dim bSTR77 As String
bSTR77 = hybridShapePointExplicit77.Name

selection1.Add hybridShapePointExplicit77

Dim parameters155 As Parameters
Set parameters155 = part1.Parameters

Dim hybridShapePointExplicit78 As Parameter
Set hybridShapePointExplicit78 = parameters155.Item("Point.10")

Dim parameters156 As CATBaseDispatch
Set parameters156 = hybridShapePointExplicit78.Parent

Dim bSTR78 As String
bSTR78 = hybridShapePointExplicit78.Name

selection1.Add hybridShapePointExplicit78

Dim parameters157 As Parameters
Set parameters157 = part1.Parameters

Dim hybridShapePointExplicit79 As Parameter
Set hybridShapePointExplicit79 = parameters157.Item("Point.11")

Dim parameters158 As CATBaseDispatch
Set parameters158 = hybridShapePointExplicit79.Parent

Dim bSTR79 As String
bSTR79 = hybridShapePointExplicit79.Name

selection1.Add hybridShapePointExplicit79

Dim parameters159 As Parameters
Set parameters159 = part1.Parameters

Dim hybridShapePointExplicit80 As Parameter
Set hybridShapePointExplicit80 = parameters159.Item("Point.12")

Dim parameters160 As CATBaseDispatch
Set parameters160 = hybridShapePointExplicit80.Parent

Dim bSTR80 As String
bSTR80 = hybridShapePointExplicit80.Name

selection1.Add hybridShapePointExplicit80

Dim parameters161 As Parameters
Set parameters161 = part1.Parameters

Dim hybridShapePointExplicit81 As Parameter
Set hybridShapePointExplicit81 = parameters161.Item("Point.13")

Dim parameters162 As CATBaseDispatch
Set parameters162 = hybridShapePointExplicit81.Parent

Dim bSTR81 As String
bSTR81 = hybridShapePointExplicit81.Name

selection1.Add hybridShapePointExplicit81

Set visPropertySet1 = visPropertySet1.Parent

Dim bSTR82 As String
bSTR82 = visPropertySet1.Name

Dim bSTR83 As String
bSTR83 = visPropertySet1.Name

visPropertySet1.SetShow 1

selection1.Clear 

Dim selection2 As Selection
Set selection2 = partDocument1.Selection

Dim visPropertySet2 As VisPropertySet
Set visPropertySet2 = selection2.VisProperties

Dim parameters163 As Parameters
Set parameters163 = part1.Parameters

Dim hybridShapeLineExplicit1 As Parameter
Set hybridShapeLineExplicit1 = parameters163.Item("Line.521")

Dim parameters164 As CATBaseDispatch
Set parameters164 = hybridShapeLineExplicit1.Parent

Dim bSTR84 As String
bSTR84 = hybridShapeLineExplicit1.Name

selection2.Add hybridShapeLineExplicit1

Dim parameters165 As Parameters
Set parameters165 = part1.Parameters

Dim hybridShapeLineExplicit2 As Parameter
Set hybridShapeLineExplicit2 = parameters165.Item("Line.523")

Dim parameters166 As CATBaseDispatch
Set parameters166 = hybridShapeLineExplicit2.Parent

Dim bSTR85 As String
bSTR85 = hybridShapeLineExplicit2.Name

selection2.Add hybridShapeLineExplicit2

Dim parameters167 As Parameters
Set parameters167 = part1.Parameters

Dim hybridShapeLineExplicit3 As Parameter
Set hybridShapeLineExplicit3 = parameters167.Item("Line.524")

Dim parameters168 As CATBaseDispatch
Set parameters168 = hybridShapeLineExplicit3.Parent

Dim bSTR86 As String
bSTR86 = hybridShapeLineExplicit3.Name

selection2.Add hybridShapeLineExplicit3

Dim parameters169 As Parameters
Set parameters169 = part1.Parameters

Dim hybridShapeLineExplicit4 As Parameter
Set hybridShapeLineExplicit4 = parameters169.Item("Line.525")

Dim parameters170 As CATBaseDispatch
Set parameters170 = hybridShapeLineExplicit4.Parent

Dim bSTR87 As String
bSTR87 = hybridShapeLineExplicit4.Name

selection2.Add hybridShapeLineExplicit4

Dim parameters171 As Parameters
Set parameters171 = part1.Parameters

Dim hybridShapeLineExplicit5 As Parameter
Set hybridShapeLineExplicit5 = parameters171.Item("Line.302")

Dim parameters172 As CATBaseDispatch
Set parameters172 = hybridShapeLineExplicit5.Parent

Dim bSTR88 As String
bSTR88 = hybridShapeLineExplicit5.Name

selection2.Add hybridShapeLineExplicit5

Dim parameters173 As Parameters
Set parameters173 = part1.Parameters

Dim hybridShapeLineExplicit6 As Parameter
Set hybridShapeLineExplicit6 = parameters173.Item("Line.307")

Dim parameters174 As CATBaseDispatch
Set parameters174 = hybridShapeLineExplicit6.Parent

Dim bSTR89 As String
bSTR89 = hybridShapeLineExplicit6.Name

selection2.Add hybridShapeLineExplicit6

Dim parameters175 As Parameters
Set parameters175 = part1.Parameters

Dim hybridShapeLineExplicit7 As Parameter
Set hybridShapeLineExplicit7 = parameters175.Item("Line.308")

Dim parameters176 As CATBaseDispatch
Set parameters176 = hybridShapeLineExplicit7.Parent

Dim bSTR90 As String
bSTR90 = hybridShapeLineExplicit7.Name

selection2.Add hybridShapeLineExplicit7

Dim parameters177 As Parameters
Set parameters177 = part1.Parameters

Dim hybridShapeLineExplicit8 As Parameter
Set hybridShapeLineExplicit8 = parameters177.Item("Line.224")

Dim parameters178 As CATBaseDispatch
Set parameters178 = hybridShapeLineExplicit8.Parent

Dim bSTR91 As String
bSTR91 = hybridShapeLineExplicit8.Name

selection2.Add hybridShapeLineExplicit8

Dim parameters179 As Parameters
Set parameters179 = part1.Parameters

Dim hybridShapeLineExplicit9 As Parameter
Set hybridShapeLineExplicit9 = parameters179.Item("Line.225")

Dim parameters180 As CATBaseDispatch
Set parameters180 = hybridShapeLineExplicit9.Parent

Dim bSTR92 As String
bSTR92 = hybridShapeLineExplicit9.Name

selection2.Add hybridShapeLineExplicit9

Dim parameters181 As Parameters
Set parameters181 = part1.Parameters

Dim hybridShapeLineExplicit10 As Parameter
Set hybridShapeLineExplicit10 = parameters181.Item("Line.541")

Dim parameters182 As CATBaseDispatch
Set parameters182 = hybridShapeLineExplicit10.Parent

Dim bSTR93 As String
bSTR93 = hybridShapeLineExplicit10.Name

selection2.Add hybridShapeLineExplicit10

Dim parameters183 As Parameters
Set parameters183 = part1.Parameters

Dim hybridShapeLineExplicit11 As Parameter
Set hybridShapeLineExplicit11 = parameters183.Item("Line.545")

Dim parameters184 As CATBaseDispatch
Set parameters184 = hybridShapeLineExplicit11.Parent

Dim bSTR94 As String
bSTR94 = hybridShapeLineExplicit11.Name

selection2.Add hybridShapeLineExplicit11

Dim parameters185 As Parameters
Set parameters185 = part1.Parameters

Dim hybridShapeLineExplicit12 As Parameter
Set hybridShapeLineExplicit12 = parameters185.Item("Line.547")

Dim parameters186 As CATBaseDispatch
Set parameters186 = hybridShapeLineExplicit12.Parent

Dim bSTR95 As String
bSTR95 = hybridShapeLineExplicit12.Name

selection2.Add hybridShapeLineExplicit12

Dim parameters187 As Parameters
Set parameters187 = part1.Parameters

Dim hybridShapeLineExplicit13 As Parameter
Set hybridShapeLineExplicit13 = parameters187.Item("Line.550")

Dim parameters188 As CATBaseDispatch
Set parameters188 = hybridShapeLineExplicit13.Parent

Dim bSTR96 As String
bSTR96 = hybridShapeLineExplicit13.Name

selection2.Add hybridShapeLineExplicit13

Dim parameters189 As Parameters
Set parameters189 = part1.Parameters

Dim hybridShapeLineExplicit14 As Parameter
Set hybridShapeLineExplicit14 = parameters189.Item("Line.1 ( *LN575291 - wsp GS_1427615 -  )")

Dim parameters190 As CATBaseDispatch
Set parameters190 = hybridShapeLineExplicit14.Parent

Dim bSTR97 As String
bSTR97 = hybridShapeLineExplicit14.Name

selection2.Add hybridShapeLineExplicit14

Dim parameters191 As Parameters
Set parameters191 = part1.Parameters

Dim hybridShapeLineExplicit15 As Parameter
Set hybridShapeLineExplicit15 = parameters191.Item("Line.2 ( *LN575292 - wsp GS_1427615 -  )")

Dim parameters192 As CATBaseDispatch
Set parameters192 = hybridShapeLineExplicit15.Parent

Dim bSTR98 As String
bSTR98 = hybridShapeLineExplicit15.Name

selection2.Add hybridShapeLineExplicit15

Dim parameters193 As Parameters
Set parameters193 = part1.Parameters

Dim hybridShapeLineExplicit16 As Parameter
Set hybridShapeLineExplicit16 = parameters193.Item("Line.3 ( *LN575293 - wsp GS_1427615 -  )")

Dim parameters194 As CATBaseDispatch
Set parameters194 = hybridShapeLineExplicit16.Parent

Dim bSTR99 As String
bSTR99 = hybridShapeLineExplicit16.Name

selection2.Add hybridShapeLineExplicit16

Dim parameters195 As Parameters
Set parameters195 = part1.Parameters

Dim hybridShapeLineExplicit17 As Parameter
Set hybridShapeLineExplicit17 = parameters195.Item("Line.4 ( *LN575294 - wsp GS_1427615 -  )")

Dim parameters196 As CATBaseDispatch
Set parameters196 = hybridShapeLineExplicit17.Parent

Dim bSTR100 As String
bSTR100 = hybridShapeLineExplicit17.Name

selection2.Add hybridShapeLineExplicit17

Dim parameters197 As Parameters
Set parameters197 = part1.Parameters

Dim hybridShapeLineExplicit18 As Parameter
Set hybridShapeLineExplicit18 = parameters197.Item("Line.5 ( *LN575295 - wsp GS_1427615 -  )")

Dim parameters198 As CATBaseDispatch
Set parameters198 = hybridShapeLineExplicit18.Parent

Dim bSTR101 As String
bSTR101 = hybridShapeLineExplicit18.Name

selection2.Add hybridShapeLineExplicit18

Dim parameters199 As Parameters
Set parameters199 = part1.Parameters

Dim hybridShapeLineExplicit19 As Parameter
Set hybridShapeLineExplicit19 = parameters199.Item("Line.6 ( *LN575296 - wsp GS_1427615 -  )")

Dim parameters200 As CATBaseDispatch
Set parameters200 = hybridShapeLineExplicit19.Parent

Dim bSTR102 As String
bSTR102 = hybridShapeLineExplicit19.Name

selection2.Add hybridShapeLineExplicit19

Dim parameters201 As Parameters
Set parameters201 = part1.Parameters

Dim hybridShapeLineExplicit20 As Parameter
Set hybridShapeLineExplicit20 = parameters201.Item("Line.7 ( *LN575297 - wsp GS_1427615 -  )")

Dim parameters202 As CATBaseDispatch
Set parameters202 = hybridShapeLineExplicit20.Parent

Dim bSTR103 As String
bSTR103 = hybridShapeLineExplicit20.Name

selection2.Add hybridShapeLineExplicit20

Dim parameters203 As Parameters
Set parameters203 = part1.Parameters

Dim hybridShapeLineExplicit21 As Parameter
Set hybridShapeLineExplicit21 = parameters203.Item("Line.8 ( *LN575298 - wsp GS_1427615 -  )")

Dim parameters204 As CATBaseDispatch
Set parameters204 = hybridShapeLineExplicit21.Parent

Dim bSTR104 As String
bSTR104 = hybridShapeLineExplicit21.Name

selection2.Add hybridShapeLineExplicit21

Dim parameters205 As Parameters
Set parameters205 = part1.Parameters

Dim hybridShapeLineExplicit22 As Parameter
Set hybridShapeLineExplicit22 = parameters205.Item("Line.2")

Dim parameters206 As CATBaseDispatch
Set parameters206 = hybridShapeLineExplicit22.Parent

Dim bSTR105 As String
bSTR105 = hybridShapeLineExplicit22.Name

selection2.Add hybridShapeLineExplicit22

Dim parameters207 As Parameters
Set parameters207 = part1.Parameters

Dim hybridShapeLineExplicit23 As Parameter
Set hybridShapeLineExplicit23 = parameters207.Item("Line.4")

Dim parameters208 As CATBaseDispatch
Set parameters208 = hybridShapeLineExplicit23.Parent

Dim bSTR106 As String
bSTR106 = hybridShapeLineExplicit23.Name

selection2.Add hybridShapeLineExplicit23

Dim parameters209 As Parameters
Set parameters209 = part1.Parameters

Dim hybridShapeLineExplicit24 As Parameter
Set hybridShapeLineExplicit24 = parameters209.Item("Line.5")

Dim parameters210 As CATBaseDispatch
Set parameters210 = hybridShapeLineExplicit24.Parent

Dim bSTR107 As String
bSTR107 = hybridShapeLineExplicit24.Name

selection2.Add hybridShapeLineExplicit24

Dim parameters211 As Parameters
Set parameters211 = part1.Parameters

Dim hybridShapeLineExplicit25 As Parameter
Set hybridShapeLineExplicit25 = parameters211.Item("Line.1")

Dim parameters212 As CATBaseDispatch
Set parameters212 = hybridShapeLineExplicit25.Parent

Dim bSTR108 As String
bSTR108 = hybridShapeLineExplicit25.Name

selection2.Add hybridShapeLineExplicit25

Dim parameters213 As Parameters
Set parameters213 = part1.Parameters

Dim hybridShapeLineExplicit26 As Parameter
Set hybridShapeLineExplicit26 = parameters213.Item("Line.1")

Dim parameters214 As CATBaseDispatch
Set parameters214 = hybridShapeLineExplicit26.Parent

Dim bSTR109 As String
bSTR109 = hybridShapeLineExplicit26.Name

selection2.Add hybridShapeLineExplicit26

Dim parameters215 As Parameters
Set parameters215 = part1.Parameters

Dim hybridShapeLineExplicit27 As Parameter
Set hybridShapeLineExplicit27 = parameters215.Item("Line.1")

Dim parameters216 As CATBaseDispatch
Set parameters216 = hybridShapeLineExplicit27.Parent

Dim bSTR110 As String
bSTR110 = hybridShapeLineExplicit27.Name

selection2.Add hybridShapeLineExplicit27

Dim parameters217 As Parameters
Set parameters217 = part1.Parameters

Dim hybridShapeLineExplicit28 As Parameter
Set hybridShapeLineExplicit28 = parameters217.Item("Line.2")

Dim parameters218 As CATBaseDispatch
Set parameters218 = hybridShapeLineExplicit28.Parent

Dim bSTR111 As String
bSTR111 = hybridShapeLineExplicit28.Name

selection2.Add hybridShapeLineExplicit28

Dim parameters219 As Parameters
Set parameters219 = part1.Parameters

Dim hybridShapeLineExplicit29 As Parameter
Set hybridShapeLineExplicit29 = parameters219.Item("Line.3")

Dim parameters220 As CATBaseDispatch
Set parameters220 = hybridShapeLineExplicit29.Parent

Dim bSTR112 As String
bSTR112 = hybridShapeLineExplicit29.Name

selection2.Add hybridShapeLineExplicit29

Dim parameters221 As Parameters
Set parameters221 = part1.Parameters

Dim hybridShapeLineExplicit30 As Parameter
Set hybridShapeLineExplicit30 = parameters221.Item("Line.4")

Dim parameters222 As CATBaseDispatch
Set parameters222 = hybridShapeLineExplicit30.Parent

Dim bSTR113 As String
bSTR113 = hybridShapeLineExplicit30.Name

selection2.Add hybridShapeLineExplicit30

Dim parameters223 As Parameters
Set parameters223 = part1.Parameters

Dim hybridShapeLineExplicit31 As Parameter
Set hybridShapeLineExplicit31 = parameters223.Item("Line.7")

Dim parameters224 As CATBaseDispatch
Set parameters224 = hybridShapeLineExplicit31.Parent

Dim bSTR114 As String
bSTR114 = hybridShapeLineExplicit31.Name

selection2.Add hybridShapeLineExplicit31

Dim parameters225 As Parameters
Set parameters225 = part1.Parameters

Dim hybridShapeLineExplicit32 As Parameter
Set hybridShapeLineExplicit32 = parameters225.Item("Line.2")

Dim parameters226 As CATBaseDispatch
Set parameters226 = hybridShapeLineExplicit32.Parent

Dim bSTR115 As String
bSTR115 = hybridShapeLineExplicit32.Name

selection2.Add hybridShapeLineExplicit32

Dim parameters227 As Parameters
Set parameters227 = part1.Parameters

Dim hybridShapeLineExplicit33 As Parameter
Set hybridShapeLineExplicit33 = parameters227.Item("Line.1 ( *LN575291 - wsp GS_1427615 -  )")

Dim parameters228 As CATBaseDispatch
Set parameters228 = hybridShapeLineExplicit33.Parent

Dim bSTR116 As String
bSTR116 = hybridShapeLineExplicit33.Name

selection2.Add hybridShapeLineExplicit33

Dim parameters229 As Parameters
Set parameters229 = part1.Parameters

Dim hybridShapeLineExplicit34 As Parameter
Set hybridShapeLineExplicit34 = parameters229.Item("Line.2 ( *LN575292 - wsp GS_1427615 -  )")

Dim parameters230 As CATBaseDispatch
Set parameters230 = hybridShapeLineExplicit34.Parent

Dim bSTR117 As String
bSTR117 = hybridShapeLineExplicit34.Name

selection2.Add hybridShapeLineExplicit34

Dim parameters231 As Parameters
Set parameters231 = part1.Parameters

Dim hybridShapeLineExplicit35 As Parameter
Set hybridShapeLineExplicit35 = parameters231.Item("Line.3 ( *LN575293 - wsp GS_1427615 -  )")

Dim parameters232 As CATBaseDispatch
Set parameters232 = hybridShapeLineExplicit35.Parent

Dim bSTR118 As String
bSTR118 = hybridShapeLineExplicit35.Name

selection2.Add hybridShapeLineExplicit35

Dim parameters233 As Parameters
Set parameters233 = part1.Parameters

Dim hybridShapeLineExplicit36 As Parameter
Set hybridShapeLineExplicit36 = parameters233.Item("Line.4 ( *LN575294 - wsp GS_1427615 -  )")

Dim parameters234 As CATBaseDispatch
Set parameters234 = hybridShapeLineExplicit36.Parent

Dim bSTR119 As String
bSTR119 = hybridShapeLineExplicit36.Name

selection2.Add hybridShapeLineExplicit36

Dim parameters235 As Parameters
Set parameters235 = part1.Parameters

Dim hybridShapeLineExplicit37 As Parameter
Set hybridShapeLineExplicit37 = parameters235.Item("Line.5 ( *LN575295 - wsp GS_1427615 -  )")

Dim parameters236 As CATBaseDispatch
Set parameters236 = hybridShapeLineExplicit37.Parent

Dim bSTR120 As String
bSTR120 = hybridShapeLineExplicit37.Name

selection2.Add hybridShapeLineExplicit37

Dim parameters237 As Parameters
Set parameters237 = part1.Parameters

Dim hybridShapeLineExplicit38 As Parameter
Set hybridShapeLineExplicit38 = parameters237.Item("Line.6 ( *LN575296 - wsp GS_1427615 -  )")

Dim parameters238 As CATBaseDispatch
Set parameters238 = hybridShapeLineExplicit38.Parent

Dim bSTR121 As String
bSTR121 = hybridShapeLineExplicit38.Name

selection2.Add hybridShapeLineExplicit38

Dim parameters239 As Parameters
Set parameters239 = part1.Parameters

Dim hybridShapeLineExplicit39 As Parameter
Set hybridShapeLineExplicit39 = parameters239.Item("Line.7 ( *LN575297 - wsp GS_1427615 -  )")

Dim parameters240 As CATBaseDispatch
Set parameters240 = hybridShapeLineExplicit39.Parent

Dim bSTR122 As String
bSTR122 = hybridShapeLineExplicit39.Name

selection2.Add hybridShapeLineExplicit39

Dim parameters241 As Parameters
Set parameters241 = part1.Parameters

Dim hybridShapeLineExplicit40 As Parameter
Set hybridShapeLineExplicit40 = parameters241.Item("Line.8 ( *LN575298 - wsp GS_1427615 -  )")

Dim parameters242 As CATBaseDispatch
Set parameters242 = hybridShapeLineExplicit40.Parent

Dim bSTR123 As String
bSTR123 = hybridShapeLineExplicit40.Name

selection2.Add hybridShapeLineExplicit40

Set visPropertySet2 = visPropertySet2.Parent

Dim bSTR124 As String
bSTR124 = visPropertySet2.Name

Dim bSTR125 As String
bSTR125 = visPropertySet2.Name

visPropertySet2.SetShow 1

selection2.Clear 

Dim selection3 As Selection
Set selection3 = partDocument1.Selection

Dim visPropertySet3 As VisPropertySet
Set visPropertySet3 = selection3.VisProperties

Dim parameters243 As Parameters
Set parameters243 = part1.Parameters

Dim hybridShapeCurveExplicit1 As Parameter
Set hybridShapeCurveExplicit1 = parameters243.Item("Flexible Curve.216")

Dim parameters244 As CATBaseDispatch
Set parameters244 = hybridShapeCurveExplicit1.Parent

Dim bSTR126 As String
bSTR126 = hybridShapeCurveExplicit1.Name

selection3.Add hybridShapeCurveExplicit1

Dim parameters245 As Parameters
Set parameters245 = part1.Parameters

Dim hybridShapeCircleExplicit1 As Parameter
Set hybridShapeCircleExplicit1 = parameters245.Item("Circle.231")

Dim parameters246 As CATBaseDispatch
Set parameters246 = hybridShapeCircleExplicit1.Parent

Dim bSTR127 As String
bSTR127 = hybridShapeCircleExplicit1.Name

selection3.Add hybridShapeCircleExplicit1

Dim parameters247 As Parameters
Set parameters247 = part1.Parameters

Dim hybridShapeCurveExplicit2 As Parameter
Set hybridShapeCurveExplicit2 = parameters247.Item("Flexible Curve.251")

Dim parameters248 As CATBaseDispatch
Set parameters248 = hybridShapeCurveExplicit2.Parent

Dim bSTR128 As String
bSTR128 = hybridShapeCurveExplicit2.Name

selection3.Add hybridShapeCurveExplicit2

Dim parameters249 As Parameters
Set parameters249 = part1.Parameters

Dim hybridShapeCurveExplicit3 As Parameter
Set hybridShapeCurveExplicit3 = parameters249.Item("Flexible Curve.261")

Dim parameters250 As CATBaseDispatch
Set parameters250 = hybridShapeCurveExplicit3.Parent

Dim bSTR129 As String
bSTR129 = hybridShapeCurveExplicit3.Name

selection3.Add hybridShapeCurveExplicit3

Dim parameters251 As Parameters
Set parameters251 = part1.Parameters

Dim hybridShapeCircleExplicit2 As Parameter
Set hybridShapeCircleExplicit2 = parameters251.Item("Circle.251")

Dim parameters252 As CATBaseDispatch
Set parameters252 = hybridShapeCircleExplicit2.Parent

Dim bSTR130 As String
bSTR130 = hybridShapeCircleExplicit2.Name

selection3.Add hybridShapeCircleExplicit2

Dim parameters253 As Parameters
Set parameters253 = part1.Parameters

Dim hybridShapeCurveExplicit4 As Parameter
Set hybridShapeCurveExplicit4 = parameters253.Item("Flexible Curve.263")

Dim parameters254 As CATBaseDispatch
Set parameters254 = hybridShapeCurveExplicit4.Parent

Dim bSTR131 As String
bSTR131 = hybridShapeCurveExplicit4.Name

selection3.Add hybridShapeCurveExplicit4

Dim parameters255 As Parameters
Set parameters255 = part1.Parameters

Dim hybridShapeCurveExplicit5 As Parameter
Set hybridShapeCurveExplicit5 = parameters255.Item("Flexible Curve.264")

Dim parameters256 As CATBaseDispatch
Set parameters256 = hybridShapeCurveExplicit5.Parent

Dim bSTR132 As String
bSTR132 = hybridShapeCurveExplicit5.Name

selection3.Add hybridShapeCurveExplicit5

Set visPropertySet3 = visPropertySet3.Parent

Dim bSTR133 As String
bSTR133 = visPropertySet3.Name

Dim bSTR134 As String
bSTR134 = visPropertySet3.Name

visPropertySet3.SetShow 1

selection3.Clear 

Dim selection4 As Selection
Set selection4 = partDocument1.Selection

Dim visPropertySet4 As VisPropertySet
Set visPropertySet4 = selection4.VisProperties

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("GS_8509441.2\Geometrical Set.1")

Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Sketch.1")

Set sketches1 = sketch1.Parent

Dim bSTR135 As String
bSTR135 = sketch1.Name

selection4.Add sketch1

Dim sketch2 As Sketch
Set sketch2 = sketches1.Item("Sketch.2")

Set sketches1 = sketch2.Parent

Dim bSTR136 As String
bSTR136 = sketch2.Name

selection4.Add sketch2

Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies1.Item("7606511__A__1__A__5P__FRGMOD__BUCHSENGEH.8-POL.M.KRAGEN_1.2_ELA_K__KONZ.1\Referenceskeleton")

Dim sketches2 As Sketches
Set sketches2 = hybridBody2.HybridSketches

Dim sketch3 As Sketch
Set sketch3 = sketches2.Item("Sketch.3")

Set sketches2 = sketch3.Parent

Dim bSTR137 As String
bSTR137 = sketch3.Name

selection4.Add sketch3

Dim sketch4 As Sketch
Set sketch4 = sketches2.Item("Sketch.4")

Set sketches2 = sketch4.Parent

Dim bSTR138 As String
bSTR138 = sketch4.Name

selection4.Add sketch4

Set visPropertySet4 = visPropertySet4.Parent

Dim bSTR139 As String
bSTR139 = visPropertySet4.Name

Dim bSTR140 As String
bSTR140 = visPropertySet4.Name

visPropertySet4.SetShow 1

selection4.Clear 

Dim selection5 As Selection
Set selection5 = partDocument1.Selection

Dim visPropertySet5 As VisPropertySet
Set visPropertySet5 = selection5.VisProperties

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Absolute Axis System")

Set axisSystems1 = axisSystem1.Parent

Dim bSTR141 As String
bSTR141 = axisSystem1.Name

selection5.Add axisSystem1

Set visPropertySet5 = visPropertySet5.Parent

Dim bSTR142 As String
bSTR142 = visPropertySet5.Name

Dim bSTR143 As String
bSTR143 = visPropertySet5.Name

visPropertySet5.SetShow 1

selection5.Clear 

End Sub