*do,i,1,42,1
lstr,i,i+1
*enddo
如果妳的編號比較亂,那麽就要使用找最近點的命令。
*dim,num,array,42
num(1)=kp(0,0,0)
*do,i,1,41,1
num(1+i)=knear(num(i))
lstr,num(i),num(1+i)
ksel,u,kp,,num(i)
allsel
lstr,num(42),num(1)