沿着圆周均匀布置锚杆

寒更听雨

我想在图中的环向（某一圆周）均匀布置锚杆，怎么实现呢？期待大家提供一个具体的例子，在一圆柱的某一环向均匀地布置锚杆，相应的命令集函数

benjackxu

;短锚杆
loop k (1,37)                   ;k=37
      ;基准点1圆心坐标(x00,y00,z00)
         
      x00 =319.695
      y00 =170.13
      z00 =98+3*(k-1)

loop j (1,58)                      ;j=58
   
      R1=27.495
      R2=27.495+6
      ang1=(j-1)*3.15
      x1 =x00+R1*cos(ang1*degrad)
      y1 =y00+R1*sin(ang1*degrad)
      z1 =z00

      x2=x00+R2*cos(ang1*degrad)
      y2=y00+R2*sin(ang1*degrad)
      z2=z00

         x1f=-(x1 - 2*319.695)
         x2f=-(x2 - 2*319.695)
         y1f=-(y1 - 2*170.13)
         y2f=-(y2 - 2*170.13)

           iidx=jjdx+1
           jjdx=iidx+1
           command
            sel cable id iidx begin x1 y1 z1 end x2 y2 z2 nseg cab_seg1
            sel cable id jjdx begin x1f y1f z1 end x2f y2f z2 nseg cab_seg1
            
             sel cable id  iidx  pro emod 210e9 xcarea xcarea_mao  yten yten_mao ycomp ycomp_mao
             sel cable id  iidx pro gr_k gr_k_mao gr_c gr_c_mao gr_fric gr_fric_mao gr_per gr_per_mao
             sel cable id  jjdx  pro emod 21e9 xcarea xcarea_mao  yten yten_mao ycomp ycomp_mao
             sel cable id  jjdx pro gr_k gr_k_mao gr_c gr_c_mao gr_fric gr_fric_mao gr_per gr_per_mao
             ;sel cable id=iidx  pretension=120e3
             ;sel cable id=jjdx  pretension=120e3            
           endcommand   
      endloop

benjackxu

自己慢慢看，慢慢琢磨

寒更听雨

谢谢版主！你这个坐标表示方法，我看着很费劲儿，不习惯。
你看看我看个，哟偶问题，需要改
你帮忙改下吧

寒更听雨

command这个单词写错了，其它的没问题。改后就行了

wqq8889

是下面这种效果吗？
  loop n(1,24)
    x1=4*cos[(n-1)*15*3.14/180]
    y1=0
    z1=4*sin[(n-1)*15*3.14/180]

    x2=6*cos[(n-1)*15*3.14/180]
    y2=0
    z2=6*sin[(n-1)*15*3.14/180]

    x3=8*cos[(n-1)*15*3.14/180]
    y3=0
    z3=8*sin[(n-1)*15*3.14/180]

    command
    sel cable id n begin x1 y1 z1 end x2 y2 z2 nseg 2
    sel cable id n begin x2 y2 z2 end x3 y3 z3 nseg 2
    endcommand
  endloop

benjackxu

差不多

王大强062

怎样才能快速大量的获取仿真币呢。