Objeto selecionado em segmentos

Esse código divide os objetos selecionados em uma lwpolyline com um determinado número de segmentos de igual comprimento. comando: sec (enter) select objeto: objeto s1 select: (enter) ..... após seleção que transforma objeto em disciplina com segmentos específicos (clique no objeto e veja diferença antes e depois ....)