4.46.grs

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

$$声明实体变量。
entity/face(2),limface(2),limpt(2),obj,result

$$选择两个相交的曲面或平面。
l10:
ident/'pick faces',face,cnt,num,resp
jump/l10:,trm:,,resp

$$选择两个限制曲面或平面。
l20:
ident/'pick 2 limit faces',limface,cnt,num,resp
jump/l20:,trm:,,resp

$$选择两个参考点。
l30:
ident/'pick the points',limpt,cnt,num,resp
jump/l30:,trm:,,resp

$$生成相交曲线并解组。
l40:
obj=intsec/face(1),with,face(2),limface(1),limpt(1),limface(2),limpt(2)
result=&gent(obj,1)
ungrp/obj

$$程序结束
trm:
halt