APDL与UIDL之间的问题！

cyh3278

我编了一个程序，单用户选择画球时画球，单选择画块的时候画块。用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 编辑 ]

cyh3278

出现错误的画面，如图：对话框要求画块，但图面上是球和块一起画了

飞鹤

想请教一下，能不能编译一个交互界面写入字符串啊？
:C)*Set,D,'a'
Fld_2
  Prm_请输入字符串：
  Typ_char
Def_*PAR(D)
Cmd_)*GET,D,CPAR,1
我上面的这部分命令参数传递的时候不能输出字符串是哪里有问题啊？是不是CPAR的问题？