4.73.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

entity/outcurve(100),incurve(100),obj
number/list(100)

l10:
ident/'pick the outside boundary',outcurve,cnt,num1,resp
jump/l10:,trm:,,resp

l20:
ident/'pick the inside boundary',incurve,cnt,num2,resp
jump/l20:,trm:,,resp

l30:
do/l40:,indx,1,num2
list(indx)=1

l40:
obj=bplane/outcurve(1..num1),hole,list(1..num2),incurve(1..num2)

trm:
halt