Acesso a um único ponto no recurso

In order to Access to Single Point in the Feature it is necessary to use the command PTDATA/.

In this example it is shown how to read a measured point of a feature.

$$ Measuring a Circle with 3 points

F(C1)=FEAT/CIRCLE,INNER,CART,0.0000,0.0000,0.0000,0.00000000,0.00000000,1.00000000,20.0000

MEAS/CIRCLE,F(C1),3

PTMEAS/CART,6.0000,0.0000,0.0000,-1.00000000,0.00000000,0.00000000

PTMEAS/CART,-3.0000,5.1962,0.0000,0.50000000,-0.86602540,0.00000000

PTMEAS/CART,-3.0000,-5.1962,0.0000,0.50000000,0.86602540,0.00000000

ENDMES

$$Declaring the necessary Variables


DECL/DOUBLE,xx,yy,zz,ii,jj,kk

DECL/INTGR,npt1,aa

DECL/CHAR,100,st1

$$Get the number of points measured in the circle using the function PTDATA/

npt1=ASSIGN/PTDATA(FA(C1))

$$Loop within the number of points and Copy the raw points in an sequence of New point Features
$$The access to each individual feature is made with the commandFA(name)[numPoint]


DO/aa,1,npt1,1

xx=OBTAIN/FA(C1)[aa],4

yy=OBTAIN/FA(C1)[aa],5

zz=OBTAIN/FA(C1)[aa],6

ii=OBTAIN/FA(C1)[aa],8

jj=OBTAIN/FA(C1)[aa],9

kk=OBTAIN/FA(C1)[aa],10

st1=ASSIGN/STR(aa)

F(@st1)=FEAT/POINT,CART,xx,yy,zz,ii,jj,kk

FA(@st1)=FEAT/POINT,CART,xx,yy,zz,ii,jj,kk

ENDDO