怎样才能做出半球面?
我想做一排这样的网点,但是只要X方向大于0的半球部分,见图
用ASAP编程,
SYSTEM NEW
RESET
UNITS MM
L=40
W=10
D=0.35 !!前端球直径
DD=1 !!末端小球直径
CCSPACE=1 !! center-to-center peen spacing
SURFACE
PLANE X 0
NPANS=39
$DO 1 (NPANS)
{ZSHIFT=?-1
SURFACE
R=(D+(DD-D)*(?-1)/L)
ELLIPSOID (R/2) (R/2) (R/2) 0 0 0
SHIFT Z (ZSHIFT)
ARRAY 9 0 1 0
OBJECT 'PEEN.?'
BOUNDS -.(1+?)} !!为什么这个BOUNDS命令没有用呢?我想用BOUNDS命令去掉小球的上半部分
WINDOW XY
PLOT FACETS 3 3
RETURN
为什么做出来的还是球体,不是半球呢?
[ 本帖最后由 guoxuemiao 于 2008-4-11 17:35 编辑 ]
我真笨
把BOUNDS -.(1+?) 改成 BOUNDS -1,问题就解决了.
因为X=0的平面是我定义的第一个surface.....
页:
[1]