程序贴上去，找人帮我改，谢谢

冷泉

拜求解决方案

entity/ln1,ln2,ln3,ln4,ln5,ln6 8 H! W9 R, F. z0 ~# C/ q" k) Gentity/ps(6) entity/cur(6) entity/obj1,obj2,obj3 9 E' O$ X2 d4 n8 n; D4 O/ T) K6 ~entity/pt1,pt2,pt3,pt4,pt5 entity/pl entity/grp 4 Z" j" {) F" Y  H" t' y0 gl100: 6 E7 ?- z6 I) k$ j' K     pt1=point/-2,0,1 2 r# _9 X% r" R# j. W     pt2=point/-2,0,-1      pt3=point/1.7,0,0      pt4=point/-4,0,0 , V  w  D* i- F, q2 D     ln1=line/pt1,pt3      ln2=line/pt2,pt3      ln3=line/pt1,pt2 l101: % J) E0 Q: S4 ]4 w& v3 n# K+ G3 z. D+ k     cur(1)=line/parlel,ln1,zlarge,2 2 ~  ~7 e0 U5 q     cur(2)=line/parlel,ln2,zsmall,2      cur(3)=line/pt4,parlel,ln3 7 r6 Y6 t8 x( l6 j     cur(4)=fillet/cur(3),cur(1),center,pt1,radius,2 6 V8 B% C. s1 l- ?$ g* ~  ?     cur(5)=fillet/cur(2),cur(3),center,pt2,radius,2      cur(6)=fillet/cur(1),cur(2),center,pt3,radius,2 & g" D6 l) ~1 m1 I9 s& ?9 j     grp=group/cur(1..6) 6 C7 y; J3 k; Y6 k# X! T8 Fl102:      ps(1)=point/2,-5,0 % v6 f6 h# j, n( h7 s! e     ps(2)=point/2.3,-4,0      ps(3)=point/2.7,-3,0 2 Q; u# j! y+ [9 K/ T7 }     ps(4)=point/3.0,-2,0      ps(5)=point/3.4,-1,0 " M, `4 M2 V* V% }- o: {+ P     ps(6)=point/3.7,0,0      obj1=bcurve/ps(1..6),degree,3 l103: 2 y3 m4 j; r% W) z( a     ln4=line/-4,0,0,-4,-5,0 l104:      pt5=point/0,1,0 ; l) [, `, A' }5 x5 [( E     ln5=line/pt5,atangl,45 ' e& l( p* v& U: ~     pl=plane/perpto,ln5,thru,ps(6) l105: ( O+ F( [- ~/ M% F3 q+ j) f     obj2=solext/cur(1..6),height,4,axis,0,1,0      obj3=solcut/obj2,with,pl,cnt,c1,c2 trm: halt 我写的程序，我想通过曲线OBJ1和直线LN4导引曲面GRP,并将OBJ3其中的一部分删去 怎么做啊 4 a; S3 f1 }& L8 u  L3 t

rick

entity/ln(6),ps(6),cur(6),obj(3),pt(5),pl,grp,TE(10)

8 m& l$ k, x% z. E# ?
     pt(1)=point/-2,0,1
3 E( }. T$ f: P# N1 |5 w+ w     pt(2)=point/-2,0,-1
     pt(3)=point/1.7,0,0
     pt(4)=point/-4,0,0
     ln(1)=line/pt(1),pt(3)
     ln(2)=line/pt(2),pt(3)
     ln(3)=line/pt(1),pt(2)
' ~& B0 o! Z9 r* M) T9 v5 y
) S: }, D/ ~1 Q/ z# R3 }) V! i& J
; q( Y" s. y/ W- Y& u+ a: Z, C8 [     cur(1)=line/parlel,ln(1),zlarge,2
1 A3 ^, [# B/ {     cur(2)=line/parlel,ln(2),zsmall,2
     cur(3)=line/pt(4),parlel,ln(3)
     cur(4)=fillet/cur(3),cur(1),center,pt(1),radius,2
; j2 J  Y) I4 ~9 w8 i     cur(5)=fillet/cur(2),cur(3),center,pt(2),radius,2
$ {) p+ f6 ]0 y. W1 D7 L- a7 V+ _- x     cur(6)=fillet/cur(1),cur(2),center,pt(3),radius,2
     grp=group/cur(1..6)
/ y' k' F4 ~* }; {; @4 K% |$ R
9 ?4 L- v  X3 w8 G3 F     ps(1)=point/2,-5,0
     ps(2)=point/2.3,-4,0
     ps(3)=point/2.7,-3,0
1 w2 e+ p, }7 T     ps(4)=point/3.0,-2,0
     ps(5)=point/3.4,-1,0
     ps(6)=point/3.7,0,0
     obj(1)=bcurve/ps(1..6),degree,3
/ z0 U0 r; s8 I" b0 \
! [. E/ _  r7 j  U, |
     ln(4)=line/-4,0,0,-4,-5,0

( H, r1 ]0 O) Z7 i) I$ Q0 j& _4 `     pt(5)=point/0,1,0
# o. ~7 t% u% J- }3 Y  I     ln(5)=line/pt(5),atangl,45
( x- W6 z0 {- W' c0 c9 g0 P     pl=plane/perpto,ln(5),thru,ps(6)


     obj(2)=solext/cur(1..6),height,4,axis,0,1,0

     obj(3)=solcut/obj(2),with,pl,cnt,NUM,c2
+ R2 D' b. B/ ]& E5 v

    MASK/70
l100:
; ]2 F  M6 _5 l/ v( q& f    DO/DOL90:,I,1,NUM
        TE(I) = NEXTE/IFEND,L200:
    DOL90:
$ D8 X' y; A2 F6 m9 F# rL200:
        DELETE/TE(I)
  t( G5 n$ m( o/ h- p$ Y9 a2 C
4 W2 q/ ]4 M3 s; C  Ctrm:
. O3 k1 @( t& b$ k0 Ihalt

冷泉

在我的程序中间不是有一个GRP吗??我想通过obj1和ln4导引，通过扫略形成实体，我试过N多次都不成功，不知道试为什么？？
还有我想了解一下你，你是做什么工作的，你对UG好像很了解，以后向你多多学习