FLAC3D6.0各类指针获取详解

;generate modelmodel newzone create brick size 6 6 6

;zone pointerfish def _getZonePointer    ;已知单元ID 指针名 = zone.find(单元ID）    z1 = zone.find(1)    ;已知单元坐标 指针名 = zone.near(x,y,z) 自动获取距该坐标处最近的单元指针    z2 = zone.near(3,3,3)    ;遍历单元    loop foreach z3 zone.list        zID = zone.id(z3)    endloopend@_getZonePointer

;gridpoint pointerfish def _getGridpointPointer    gp1 = gp.find(1)    gp2 = gp.near(3,3,3)    loop foreach gp3 gp.list        GpID = gp.id(gp3)    endloopend@_getGridpointPointer

zone face skinzone interface 'interface1' create by-face range group 'west'zone interface'interface2'createby-face rangegroup'east'fish def _getInterfacePointer  ;遍历模型中的接触面，有几个接触面就循环几次，count起计数作用    count = 0    loop foreach int1 interface.list        count += 1    endloop    ;获取接触面“interface2”的指针    int2 = interface.find('interface2')end@_getInterfacePointer

fish def _getInterfaceElementPointer    count = 0      ;获取接触面'interface2'（该接触面指针已由上文代码获取）的接触面单元指针    loop foreach intE interface.elem.list(int2)        count += 1    endloopend@_getInterfaceElementPointer

fish def _getInterfaceNodePoint    intN1 = interface.node.find(int2,1)    ;遍历获取获取接触面'interface2'的节点指针 intN2    count = 0     loop foreach intN2 interface.node.list(int2)        count += 1    endloopend@_getInterfaceNodePoint

structure beam create by-line (0,3,3) (6,3,3) seg 6 id 1 group 'b'structure cable create by-line (0,3,0) (6,3,0) seg 6 id 2 group 'c'structure shell create by-face id 3 group 's' range group 'top' 

fish def _getStrucNodePointer    ;已知节点ID    n1 = struct.node.find(1)    ;已知节点位置，软件自动搜寻距该位置最近的节点并获取指针    n2 = struct.node.near(3,3,6)    ;遍历获取模型中的所有结构单元节点指针    loop foreach n3 struct.node.list        NodeID = struct.node.id(n3)    endloopend@_getStrucNodePointer

fish def _getStructElemPointer    ;已知结构单元ID号    SE1 = struct.find(1)    ;已知结构单元位置    SE2 = struct.near(3,3,6)    ;遍历获取，可以用一个if语句来获取特定类型的结构单元指针    ;还可以再嵌套一个if语句，通过筛选结构单元分组等特征获取特定类型、特定分组的结构单元指针    count = 0    loop foreach SE3 struct.list        if struct.type(SE3) = 'shell'            count += 1        endif    endloopend@_getStructElemPointer

;建立一个名为“table1”的tabletable 'table1' label 'test'fish def _getTablePointer    ;已知table名    t1 = table.find('table1')    ;采用table。create（）函数自动获取    t2 = table.create('table2')    t3 = table.create(3)end@_getTablePointer

fish def _getArrayPointer    a1 = array.create(10)end@_getArrayPointer