4.60.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 17 行

entity/pl,refpt,cenpt,obj

l10:
ident/'pick the limit plane',pl,resp
jump/l10:,trm:,,resp

l20:
ident/'pick the point',refpt,resp
jump/l20:,trm:,,resp

l30:
cenpt=point/3,0,0
obj=sphere/center,cenpt,radius,1.5,pl,refpt

trm:
halt