grip 现有的两个圆'创建 圆台

圆台

entity/obj(3),ln
number/pn(3,3)

la0:
     choose/'梅雷提示!请选择按钮...',$
            '现有的两个圆',$
            '详细使用说明',deflt,1,resp
     jump/la0:,end:,,,l10:,la1:,resp


la1:
print/'命令名称：圆台'
print/'命令功能：选择两个圆创建圆台'
print/'命令制作：梅雷 qq1821117007'
print/'无需考虑圆的方向'
print/'当两圆一样时创建出来的是圆柱'
jump/la0:


l10:
mask/5
ident/'梅雷提示！请选择第1个圆...',obj(1),resp
jump/la0:,end:,,,resp

l20:
mask/5
ident/'梅雷提示！请选择第2个圆...',obj(2),resp
jump/l10:,end:,,,resp

l30:
pn(1,1..3)=&center(obj(1)) $$取圆心坐标      
r1=&radius(obj(1))         $$取圆半径        
pn(2,1..3)=&center(obj(2))     
r2=&radius(obj(2))

ln=line/pn(1,1..3),pn(2,1..3) $$创建直线
h=&length(ln)                 $$取直线长  

pn(3,1)=pn(1,1)-pn(2,1)       $$设置矢量方向
pn(3,2)=pn(1,2)-pn(2,2)
pn(3,3)=pn(1,3)-pn(2,3)

if/r1<>r2,obj(3)=solcon/origin,pn(1,1..3),height,h,$
diamtr,r1*2,r2*2,axis,-pn(3,1..3) $$ 圆台

if/r1==r2,obj(3)=solcyl/origin,pn(1,1..3),height,h,$
diamtr,r1*2,axis,-pn(3,1..3) $$ 圆柱  

delete/ln

jump/la0:

end:
halt


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/