求助，Flac3d隧道添加锚杆 [复制链接]

flac3d添加隧道锚杆，出来的锚杆是横向的，怎样才能使锚杆垂直隧道壁呢？

代码是这样的：

Def place_cables47
Loop n(0,36)
E=5*float(n)
A=8.55*sin(e/180*pi)
B=8.55*cos(e/180*pi)        ;8.55隧道半径
Command
Sel cable begin b 0 a end b 47 a nseg 47
Sel cable prop emod 2e10 ytension 1e8 xcarea 1.0 &
Gr_k 2e10 gr_coh 1e10 gr_per 1.0
Endcommand
Endloop
End

结果是这样的

图片:锚杆.jpg

Sel cable begin b 0 a end b 47 a nseg 47

Sel cable begin b 0 a end b 47 a nseg 47   肯定是这句关于锚杆两头的坐标写错了，改过来就好了