4.45.grs

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

entity/cur(100),face,obj(100)

$$选择被投影几何体。
l10:
ident/'pick curves',cur,cnt,num,resp
jump/l10:,trm:,,resp

$$选择曲面或平面。
l20:
ident/'select a face',face,resp
jump/l20:,trm:,,resp

$$生成投影几何体。
l30:
obj=proj/cur(1..num),on,face

trm:
halt