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

冷泉

拜求解决方案

entity/ln1,ln2,ln3,ln4,ln5,ln6 entity/ps(6) entity/cur(6) % r, ]% B! D% jentity/obj1,obj2,obj3 ) T5 Z1 {% F# S' m1 Xentity/pt1,pt2,pt3,pt4,pt5 ' f3 \) \3 C% |$ L) T/ _entity/pl ) }$ u& r/ L- d  L: J8 y4 Eentity/grp l100: ) A7 S( X: x4 D( D) n     pt1=point/-2,0,1      pt2=point/-2,0,-1 4 ~' {' H8 Q7 h) r     pt3=point/1.7,0,0 5 y, b) x% t' J8 [5 F# }$ m     pt4=point/-4,0,0 % f4 o0 G* z7 `& U$ ]% U. W     ln1=line/pt1,pt3 : ~6 ?: l$ T) `6 n' H( L     ln2=line/pt2,pt3      ln3=line/pt1,pt2 ) a$ k  D" u+ m7 i$ d+ H7 El101: ; ^0 u$ P5 D7 Y     cur(1)=line/parlel,ln1,zlarge,2      cur(2)=line/parlel,ln2,zsmall,2 * N* ]' g- y% C% d     cur(3)=line/pt4,parlel,ln3 & q# Z6 ^( {6 n. _. U* B     cur(4)=fillet/cur(3),cur(1),center,pt1,radius,2 ( K; g" g+ j+ i0 f     cur(5)=fillet/cur(2),cur(3),center,pt2,radius,2      cur(6)=fillet/cur(1),cur(2),center,pt3,radius,2 ) Q& e" \! P- }- L     grp=group/cur(1..6) - v4 t. Q! k0 [4 F7 l1 ~l102:      ps(1)=point/2,-5,0      ps(2)=point/2.3,-4,0      ps(3)=point/2.7,-3,0      ps(4)=point/3.0,-2,0 + `5 Q$ m: Z5 q7 ], i% b! L1 b/ C. k     ps(5)=point/3.4,-1,0      ps(6)=point/3.7,0,0      obj1=bcurve/ps(1..6),degree,3 ( n9 Z: I/ t- rl103: $ C. Y# I; q$ S3 _1 l     ln4=line/-4,0,0,-4,-5,0 l104: ( N8 z( n8 [) O     pt5=point/0,1,0 , m/ u) p+ r! h# x( m& Q4 i     ln5=line/pt5,atangl,45      pl=plane/perpto,ln5,thru,ps(6) , F! k$ C& ]/ y" _: ]1 z, b' [l105:   J' w9 M2 J* Q- |$ O" A     obj2=solext/cur(1..6),height,4,axis,0,1,0      obj3=solcut/obj2,with,pl,cnt,c1,c2 ( p) j1 u+ R  U! S9 ^trm: 8 ~6 A6 U" j$ ^" m' t$ U) \9 ahalt 我写的程序，我想通过曲线OBJ1和直线LN4导引曲面GRP,并将OBJ3其中的一部分删去 怎么做啊 & {+ c! B2 n! s0 J* u* _: ^: t6 f

rick

entity/ln(6),ps(6),cur(6),obj(3),pt(5),pl,grp,TE(10)
& Y* F$ I2 d! I" N- F) n& A

     pt(1)=point/-2,0,1
     pt(2)=point/-2,0,-1
     pt(3)=point/1.7,0,0
6 P' L8 Q' z( g/ e/ M     pt(4)=point/-4,0,0
( l+ z1 `* K& }- N. |+ z     ln(1)=line/pt(1),pt(3)
     ln(2)=line/pt(2),pt(3)
+ D' ?3 r7 `& v* G! S; D$ P+ O. M     ln(3)=line/pt(1),pt(2)


     cur(1)=line/parlel,ln(1),zlarge,2
1 E- C- \; J3 f1 C" b" O! t     cur(2)=line/parlel,ln(2),zsmall,2
     cur(3)=line/pt(4),parlel,ln(3)
8 c+ [9 A0 w; f! K* g     cur(4)=fillet/cur(3),cur(1),center,pt(1),radius,2
     cur(5)=fillet/cur(2),cur(3),center,pt(2),radius,2
     cur(6)=fillet/cur(1),cur(2),center,pt(3),radius,2
     grp=group/cur(1..6)

9 ]$ R5 J4 ?7 }# y5 c' F     ps(1)=point/2,-5,0
) ^0 W; L  q" i) X7 x     ps(2)=point/2.3,-4,0
     ps(3)=point/2.7,-3,0
     ps(4)=point/3.0,-2,0
     ps(5)=point/3.4,-1,0
     ps(6)=point/3.7,0,0
6 V+ W4 u0 {" W. H! S9 W. I1 ~     obj(1)=bcurve/ps(1..6),degree,3
; |3 n4 P0 ^- h

     ln(4)=line/-4,0,0,-4,-5,0

2 S3 t6 c0 q, l+ q+ r& r: M1 {     pt(5)=point/0,1,0
     ln(5)=line/pt(5),atangl,45
- {1 o9 L$ O" h! P# ^     pl=plane/perpto,ln(5),thru,ps(6)


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

2 ?  f( M: v9 ~5 _     obj(3)=solcut/obj(2),with,pl,cnt,NUM,c2
" M; ^( o8 f7 ], ]. P  F: x

    MASK/70
l100:
    DO/DOL90:,I,1,NUM
        TE(I) = NEXTE/IFEND,L200:
% q' M! H3 n0 n* B    DOL90:
3 W: u9 ]/ l$ Y! l. u% M* VL200:
' M7 A/ c- X# x; v" \$ e- h1 m        DELETE/TE(I)
2 L! k9 }) x! w4 F
trm:
: K1 k, L9 a, R" r2 |" s: Chalt

冷泉

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