!aus dem Forum von veitweight
!Pfad auf Linien
!Schätzing, 8.5.2015

finish   $/clear

*abbr,veitweight,/input,veitweight,txt
*abbr,List,*stat,liste

ab=2     !Abmessung

/prep7

!----Linien------
k,1,0,0
k,2,ab,0
k,3,0,ab
k,4,-ab,ab

larc,2,3,1,ab
l,4,3

!----Vernetzung-----
et,1,mesh200,0
esize,ab/6
lmesh,all
/pnum,node,1
nplot

!---------
*get,n_anz,node,,count   !KnotenAnzahl

!--willkürlich aus gewählter Startknoten
n_start=12

!----Liste erstellen-----
*dim,liste,array,n_anz

liste(1)=n_start
*do,i,2,n_anz
n_arb=nnear(n_start)
liste(i)=n_arb
nsel,u,,,n_arb
n_arb=n_start
*enddo
allsel    !Alle Selektierungen rückgängig

!----Pfad definieren------
path,Pfad,n_anz
*do,i,1,n_anz
ppath,i,liste(i)
*enddo

/pbc,path
lplot