4.66.grs

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

entity/pt1,pt2,surf(2),pl(2),obj

pt1=point/0,0,0
pt2=point/-2,-2,0
surf(1)=plane/xyplan,2
surf(2)=plane/xzplan,-2
pl(1)=plane/yzplan,0
pl(2)=plane/yzplan,-4
obj=cylndr/surf(1),surf(2),center,pt1,radius,1,pl(1),pl(2),pt2
halt