呵呵..就1度测量一点吧..
下面是我做的小程序。。希望各位老师指点。。{/cy}
ASSIGN/ANG1 = 0
ASSIGN/ANG2 = ANG1
DO/
ASSIGN/A = DEG2RAD(ANG2)
ASSIGN/VI = -COS(A)
ASSIGN/VJ = -SIN(A)
ASSIGN/XX = 1.7775*COS(A)-0.3*COS(4*A)*COS(A)-1.2*SIN(4*A)*SIN(A)
ASSIGN/YY = 1.7775*SIN(A)-0.3*COS(4*A)*SIN(A)-1.2*SIN(4*A)*COS(A)
POINT1 =AUTO/SURFACE POINT,SHOWALLPARAMS = NO
THEO/XX,YY,-3,VI,VJ,0.0005167
ACTL/9.729,-8.163,-3.022,-0.7659936,0.642745,0.0115209
TARG/XX,YY,-3.022,VI,VJ,0.0115216
DIM LOC1= LOCATION OF POINT POINT1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X XX 0.000 0.000 9.729 0.000 0.000 ----#----
Y YY 0.000 0.000 -8.163 0.000 0.000 ----#----
END OF DIMENSION LOC1
ASSIGN/ANG2 = ANG2+1
UNTIL/ ANG2==360
SCN2 =FEAT/SET,RECT
THEO/9.729,-8.163,-3,0,0,1
ACTL/9.729,-8.163,-3.022,0,0,1
CONSTR/SET,BASIC,POINT1[1.....360],,
A0 =ALIGNMENT/START,RECALL:START, LIST= YES
ALIGNMENT/BF2D,ZPLUS,LEASTSQR,CREATE WEIGHTS=NO,ROTANDTRANS,0,0,0,0
SHOWALLINPUTS=NO,SHOWALLPARAMS=NO
ALIGNMENT/END
DIM PROF1= PROFILE OF LINE OF SET SCN2 FORMANDLOCATION UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
M 0.000 0.010 0.000 0.000 0.000 0.000 #--------
[此贴子已经被作者于2007-3-2 13:59:19编辑过]