关于circle的return

byb

贴一段简化过的命令。

*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7


*do,i,1,7,1

/prep7
*afun,deg

k,,x1(i),h/2,-(i-1)*800
k,,x1(i),h/2+pradius(i),-(i-1)*800
circle,kp(x1(i),h/2+pradius(i),-(i-1)*800),,,kp(x1(i),h/2,-(i-1)*800),degree(i),1
lnumber5(i)=_return
finish
*enddo


大家帮忙运行下，查看lnumber5的数组，发现只有lnumber5（1）有数组，其他的都为0，这是什么原因呢。。。

yangjungang2004

我稍稍改了一下：
/prep7
*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7

*afun,deg

*do,i,1,7,1
k,,x1(i),h/2,-(i-1)*800
k,,x1(i),h/2+pradius(i),-(i-1)*800
circle,kp(x1(i),h/2+pradius(i),-(i-1)*800),,,kp(x1(i),h/2,-(i-1)*800),degree(i),1
lnumber5(i)=_return
*enddo

结果：
PARAMETER STATUS- LNUMBER5  (  21 PARAMETERS DEFINED)
                  (INCLUDING    15 INTERNAL PARAMETERS)

      LOCATION                VALUE
        1       1       1    1.00000000   
        2       1       1    2.00000000   
        3       1       1    3.00000000   
        4       1       1    4.00000000   
        5       1       1    5.00000000   
        6       1       1    6.00000000   
        7       1       1    7.00000000

jinqinghai

原帖由 byb 于 2007-8-19 23:42 发表
贴一段简化过的命令。

*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7


...

Maybe, I don't understand what you expect fully. Try to test the following APDL for you:

*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7
/prep7
*afun,deg

*do,i,1,7,1

k,,x1(i),h/2,-(i-1)*800
k,,x1(i),h/2+pradius(i),-(i-1)*800
circle,kp(x1(i),h/2+pradius(i),-(i-1)*800),,,kp(x1(i),h/2,-(i-1)*800),degree(i),1
alls
*get,_return,line,0,num,max,  !!! it depends
lnumber5(i)=_return
*enddo

finish

[ 本帖最后由 jinqinghai 于 2007-8-20 00:08 编辑 ]

jinqinghai

原帖由 yangjungang2004 于 2007-8-20 00:00 发表
我稍稍改了一下：
/prep7
*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7

...

So, /prep7 is always topped up.
you master it very well.

byb

原帖由 yangjungang2004 于 2007-8-20 00:00 发表
我稍稍改了一下：
/prep7
*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1)=56,56,48,43,40,38,38
degree(1)=8,16,32,48,64,76,83
*dim,lnumber5,,7

...

谢谢版主解答，可是似乎没有改动什么？我运行过后，查看lnumber5的数组，值还是为0（附件所示），请版主看看。

byb

原帖由 jinqinghai 于 2007-8-20 00:03 发表


Maybe, I don't understand what you expect fully. Try to test the following APDL for you:

*dim,x1,,7
*dim,pradius,,7
*dim,degree,,7
x1(1)=80.5,76.9,72,68,64.4,62.4,60
h=8
pradius(1) ...

汗一个，版主竟然用折衷的办法处理。。。。我的目的是看看circle使用后的_return的返回值。。。。

请版主再帮忙想想。。

谢谢

jinqinghai

原帖由 byb 于 2007-8-20 09:27 发表


汗一个，版主竟然用折衷的办法处理。。。。我的目的是看看circle使用后的_return的返回值。。。。

请版主再帮忙想想。。

谢谢

Look! it works as shown.

jinqinghai

BTW, "circle" command can only return the "first line number" to the parameter of"_return"
Not like other commands such as "L", "Larc","Lstr".

[ 本帖最后由 jinqinghai 于 2007-8-20 10:17 编辑 ]

byb

ok,3Q.I KNOWS LOTS FORM YOU SAID.3Q AGAIN.