APDL与UIDL之间的问题!
我编了一个程序,单用户选择画球时画球,单选择画块的时候画块。用Typ_Lis_RadioB选择时出了问题,如图:UIDL代码:
:N Fnc_DoProject2
:S 1026, 97, 922
:T Command
:A Draw the Sphere or Block
:D 请选择半径:
Cmd_)*Cset,1,5
Fld_0
Typ_Lab
Prm_画不同半径的原
Fld_0
Typ_Sep
Fld_2
Prm_请选择不同的半径:
Typ_lis_OptionB
Lis_R1=1,1
Lis_R1=2,2
Lis_R1=3,3
Lis_R1=4,4
Lis_R1=5,5
Fld_0
Typ_Sep
Fld_3
Prm_请选择不同的半径:
Typ_lis_OptionB
Lis_R2=6, 6
Lis_R2=7, 7
Lis_R2=8, 8
Lis_R2=9, 9
Lis_R2=10,10
Fld_4
Prm_请输入长宽高:
Typ_real3
Def_Blank
Fld_5
Prm_请选择画球还是画块
Typ_Lis_RadioB
Lis_画球 ,1
Lis_画块 ,2
Cmd_)/Go
Cmd_)*SET,My_R1,1,2,EQ,1
Cmd_)*SET,My_R1,2,2,EQ,2
Cmd_)*SET,My_R1,3,2,EQ,3
Cmd_)*SET,My_R1,4,2,EQ,4
Cmd_)*SET,My_R1,5,2,EQ,5
Cmd_)*SET,My_R2,6,3,EQ,6
Cmd_)*SET,My_R2,7,3,EQ,7
Cmd_)*SET,My_R2,8,3,EQ,8
Cmd_)*SET,My_R2,9,3,EQ,9
Cmd_)*SET,My_R2,10,3,EQ,10
Cmd_)*GET,My_R1,CPAR,1
Cmd_)*GET,My_R2,CPAR,2
Cmd_)*GET,My_cd,CPAR,3
Cmd_)*GET,My_kd,CPAR,4
Cmd_)*GET,My_gd,CPAR,5
Cmd_)sphere,5,EQ,1
Cmd_)boxx,5,EQ,2
:E END
红色代码的要求选画球时画球,画块时画块,但问题是他们不能识别,球和块一起画了怎么解决这个问题?
下面是画球和画块的宏
sphere.mac
/PREP7
SPHERE,My_R1, ,0,360,
SPHERE,My_R2, ,0,360,
VSBV,2,1
boxx.mac
FINISH
/PREP7
BLOCK,,My_cd,,My_kd,,My_gd
[ 本帖最后由 cyh3278 于 2006-8-29 18:22 编辑 ] 出现错误的画面,如图:对话框要求画块,但图面上是球和块一起画了 想请教一下,能不能编译一个交互界面写入字符串啊?
:C)*Set,D,'a'
Fld_2
Prm_请输入字符串:
Typ_char
Def_*PAR(D)
Cmd_)*GET,D,CPAR,1
我上面的这部分命令参数传递的时候不能输出字符串是哪里有问题啊?是不是CPAR的问题?
页:
[1]