问手册上一个FISH例子

sdustqh

附件中是手册上关于fishcall使用的一个例子，它的主要意图是什么呢，麻烦给指点一下！还有，运行的时候为什么过不去呢，第二句就开始不行了，为什么呢？
多谢了！

haixing123

还得下载下来看啊

haixing123

; Example to illustrate the use of FISHCALL 14 and 15 and FISH functions
; mclickx, mclicky and mclickz.
; The coordinate values obtained are also printed on the screen and can be
; routed to a log file if set log on is specified.
;
new
call fishcall.fis
gen zone brick size 10 10 10 p0 0 0 0 p1 10 0 0 p2 0 10 0 p3 0 0 10
model elastic
prop she 1e4 bulk 1e6 dens 2000
set grav 10
fix x y z range z 0

plot block model axes white
;
def leftdblclick
  i = mclickx
  j = mclicky
  k = mclickz
  ii=out('LCLICK ' + ' ' + string(i) + ' ' + string(j) + ' ' + string(k));
  zpnt = z_near(i,j,k)
  if zpnt # NULL then
    zid = z_id(zpnt)
    ii = out( 'LCLICK ' + ' ' +'zId = ' + ' ' + string(zid))
    command
      m ssoft range id zid   ; Assign a model
    endcommand
  endif
end
;
def rightdblclick
  i = mclickx
  j = mclicky
  k = mclickz
  ii=out( 'RCLICK ' + ' ' + string(i) + ' ' + string(j) + ' ' + string(k));
  zpnt = z_near(i,j,k)
  if zpnt # NULL then
    zid = z_id(zpnt)
    ii = out('RCLICK ' + ' ' + 'zId = ' + ' ' + string(zid))
    command
      m mohr range id zid  ; Assign a model
    endcommand
  endif
end
;
leftdblclick
rightdblclick
;
set fishcall FC_LEFT_DC leftdblclick
set fishcall FC_RIGHT_DC rightdblclick

; At this point users can double click on the model with left and right
; mouse buttons and see what happens.

haixing123

是这个程序吧，高手指点吧，不用下载了

gyx139885

这个我也没有搞懂，请高手解答啊

kjj0501

应该是你的文件夹中没有fishcall.fis
所以程序在调用fishcall.fis时出错了
不知道手册中有没有给出这个fishcall.fis

kjj0501

set echo off ; Macro definitions for FishCall numbers ...
macro FC_CYC2 0
macro FC_XINIT 1
macro FC_CYC1 2
macro FC_STRESS 3
macro FC_XSTRESS 4
macro FC_XMOT 5
macro FC_XMECH 6
macro FC_THERM 7
macro FC_XTHERM 8
macro FC_FLUID 9
macro FC_XFLUID 10
macro FC_STRESS_TOT 12
macro FC_END_CYC 13
macro FC_LEFT_DC 14
macro FC_RIGHT_DC 15
set echo on
将这个命令流放在文本文件
然后将文件名改为fishcall.fis
这样就变成为一个fis文件
将这个文件放到与主命令流同一个文件夹下
这样程序就能调用到这个fis文件
就能顺利运行下去的