# 多次旋转复制单元
# 先手动选中要复制的单元

set nSection 40
set a0 9

for { set a 1}  {$a < $nSection} {incr a} {
   *duplicatemark elements 1 1
    # 创建一个平面，面号为1,法线在z轴分量为1（垂直z轴）,过点（0,0,0）
    *createplane 1 0 0 1 0 0 0   
    *rotatemark elements 1 1 $a0
}