Acesso a um único ponto no recurso

Da wiki ArcoWiki
Ir para: navegação, pesquisa

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