EKL_ExtractVertices

// Extracts vertices from a polyline. Used on SNC Framing template
let crvInput (GeometricFeature)
let listInput (List)
let mySeg (Curve)
let i (Integer)

// Select segments form polyline
crvInput = Wireframe\Vert\CRV_VertMid  
set listInput = crvInput.GetSubElements(1 , false)
Notify("segments: #", listInput.Size() )

// Create new segments on inputs 
i = 1
for i while i <= listInput.Size() {
	mySeg = CreateOrModifyDatum("Curve" , `Geometrical Set.22\Geometrical Set.29`  , `Geometrical Set.22\Relations.2\Knowledge Pattern.1\List.1`  , i) 
	//set mySeg = listInput.GetItem(i) //works but throws name error, why?
	set mySeg = extract(listInput.GetItem(i) , 1)
	mySeg.Name = "CRV_" + i
}