##
## Get a list of connectors, join the lot (leave it to PW to figure out validity)
## without retaining the distribution
##

# Pointwise V17.3R2 Journal file - Mon Jun 15 17:12:22 2015

package require PWI_Glyph 2.17.3

# procedure to let the user select connectors
# returns a list of such connectors
proc selectConnectors { } {

  set conMask [pw::Display createSelectionMask -requireConnector [list] \
      -blockConnector "Pole"]
  pw::Display selectEntities \
      -description "Select the connectors you want to join without Break Points" \
      -selectionmask $conMask selection
  set cons $selection(Connectors)
}


proc joinWithoutBreakPoints { cons } {
	pw::Connector join -reject _TMP(ignored)  $cons
	unset _TMP(ignored)

}



#================================Start processing==============================
# Start timer
set startTime [clock seconds]
puts [ format " Time now is [clock format $startTime -format %H:%M:%S] " startTime ] 

set cons [selectConnectors ]

joinWithoutBreakPoints $cons

puts "Distributions have not been maintained - remember to check your connector shapes etc."

# End timer
set endTime [clock seconds]
puts ""
puts "Script executed in [expr $endTime-$startTime] seconds, [clock format $startTime -format %H:%M:%S], [clock format $startTime -format %D] "