DMIS 5.2高级编程之向量编程（ Vector variable values）

$$ to measure a circle using an arbitrary number of sample points

UNITS/MM,ANGDEC

DECL/INTGR,loop,ptcnt

DECL/VECTOR,center,coord,ijk_vector

center=ASSIGN/VCART(50,100,10)

ijk_vector=ASSIGN/VCART(0,0,1)

ptcnt=PROMPT/'Total point count'

MEAS/CIRCLE,F(circ),ptcnt

  DO/loop,1,ptcnt

    coord=ASSIGN/center + VPOL(10,loop*360/ptcnt,0)

    ijk_vector=ASSIGN/VPOL(1,loop*360/ptcnt,0)

    PTMEAS/VECX(coord),VECY(coord),VECZ(coord),VECX(ijk_vector),VECY(ijk_vector) $

      ,VECZ(ijk_vector)

  ENDDO

ENDMES

$$ to project the line onto the axis

DECL/VECTOR,line,axis,prj

line=ASSIGN/VCART(25,10,15)

axis=ASSIGN/VPOL(100,30,0)

$$ scale(axis by ((dot product of line & axis) / (square of mag(axis)))

prj=ASSIGN/axis * VDOT(line,axis)/(VMAG(axis) ** 2)