4.65.grs

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

entity/pt1,pt2,p(6),pl1,pl2,obj

pt1=point/0,0,2
pt2=point/2,10,0
p(1)=point/-2,2,-2
p(2)=point/-2,-2,-2
p(3)=point/2,0,2
p(4)=point/-2,2,2
p(5)=point/-2,-2,2
p(6)=point/2,0,-2
pl1=plane/p(1..3)
pl2=plane/p(4..6)
obj=cylndr/pt1,radius,2,pl1,pl2,pt2
halt