UG外挂源码-平面分割加修剪

zoudong

, H4 L4 [5 h$ f# n2 yentity/fc(3),p(14),cs(4),fff(8),obj1,obj2,pp2,l(2),obj3
number/PI(3)
IFTHEN/&ACTPRT==1
MESSG/'请新建或打开一个ug图档 再执行此程序'
  C& c( G. ~. k; X$ f& ?# ]jump/end:
: z7 O4 F9 C/ ]endif

X10:
mask/70      
2 J* k3 r0 V/ U% G" Zident/'请选择需要【分割】的实体',obj1,resp
' _# H9 h& p$ U1 D$ bjump/end:,end:,,,resp  

N20:
9 o) |6 x4 h+ ]' ^mask/71
ident/'请选择分割平面',fc(2),resp
$ g- H3 A/ z5 A" Q8 m$ `( k* Ijump/X10:,end:,,resp
N30:
  }/ i" `0 @* n    draw/off  $$更新关闭
l(1)=isocrv/fc(2),udir,0.5,toler,0.001
l(2)=isocrv/fc(2),vdir,0.5,toler,0.001
3 g  g; L! ^8 z) S, ~' f" e, Cn1=typf(l(1))
4 x. V6 ^/ `  ?5 S. D) q3 w/ R7 en2=typf(l(2))
# ]4 t& @4 ?4 E# Qdelete/l(1),l(2)

' i( x3 m# k( ?+ iifthen/n1==3 and n2==3  $$如果是直线 3代表：直线
. E$ y: X( {" j9 tjump/N40:
      else       $$如果是其它的  
( }* W6 H# D, b2 C& W2 |# f      jump/pr:
      endif
8 @1 _: b3 I  N; |5 T: r9 c
N40:
& j- V* n. `* j# ^
% j6 t, m; Z! S( GPI=SPOSF(fc(2),0.5,0.5)    $$中心点
P(1)=POINT/PI
' X5 J% M3 ~! A( z+ F& N: OPI= SPOSF(fc(2),0.7,0.5)   $$表面的点  Y   
* s2 E8 Z: T9 ?1 N! M# T) RP(2)=POINT/PI
PI= SPOSF(fc(2),0.5,0.7)   $$表面的点  X   
P(3)=POINT/PI
blank/p(1..3)
5 N, i7 w: x& V2 x9 bpp2=plane/p(1),p(2),p(3)       $$在选择的面上 创建的平面
blank/pp2
0 U6 ^1 d" V# Q4 C# L+ c% q$ \      draw/ON  $$更新打开
; E# j# o# t$ N- h5 b$ `$ Tobj2=split/obj1,with,pp2       $$开始以创建的平面 分割实体
delete/pp2,p(1..3)
jump/N50:
N50:
mask/70      
ident/'请选择需要【删除】的实体',obj3,resp
jump/end:,X10:,,,resp
N60:
0 e" b5 a4 |' t/ Rdelete/obj3
) s# N+ _6 G: R2 s) m$ sjump/X10:
" }7 G) k+ A0 E+ C( g; z

pr:
draw/ON  $$更新打开
; g$ Z( i1 G) ?' e; V& W( vmessg/'提示:您选择的不是平面,请重新选择平面!'
8 C! l% A& T/ z6 n) i5 T7 @jump/N20:
% m/ a! w& t+ S7 Cend:
halt
* l" X8 T) J5 `3 ^3 l