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

冷泉

拜求解决方案

entity/ln1,ln2,ln3,ln4,ln5,ln6 & n7 _' E/ U5 X5 f% K' r: h2 tentity/ps(6) entity/cur(6) entity/obj1,obj2,obj3 entity/pt1,pt2,pt3,pt4,pt5 ! l, A( T- b" J" \( Yentity/pl ) d% i: B2 l  u( ^% N& \entity/grp - @! R. H5 F0 W/ a# b  I: n5 Al100:      pt1=point/-2,0,1      pt2=point/-2,0,-1 3 v% N2 i* u0 v, C- d% q/ Y& h     pt3=point/1.7,0,0      pt4=point/-4,0,0 # a5 A- v. ~! s     ln1=line/pt1,pt3      ln2=line/pt2,pt3      ln3=line/pt1,pt2   z! V( f* T+ K: T6 o/ ll101: 4 A+ ^& M: P) _# F; S3 w     cur(1)=line/parlel,ln1,zlarge,2 0 q; k2 p$ k; f! n/ Z     cur(2)=line/parlel,ln2,zsmall,2      cur(3)=line/pt4,parlel,ln3 1 |( q5 s5 W6 I     cur(4)=fillet/cur(3),cur(1),center,pt1,radius,2 7 h- f; }2 S! w3 P1 ?& o; t: L     cur(5)=fillet/cur(2),cur(3),center,pt2,radius,2 7 }% r3 k. s/ o$ Z9 o0 A     cur(6)=fillet/cur(1),cur(2),center,pt3,radius,2      grp=group/cur(1..6) l102: ! q; Z. t( p( J- g5 y* w     ps(1)=point/2,-5,0      ps(2)=point/2.3,-4,0      ps(3)=point/2.7,-3,0 ! c* W% A6 v0 w( g2 S     ps(4)=point/3.0,-2,0      ps(5)=point/3.4,-1,0      ps(6)=point/3.7,0,0      obj1=bcurve/ps(1..6),degree,3 l103:      ln4=line/-4,0,0,-4,-5,0 6 G0 i0 u8 n9 e% u- T9 Wl104: 8 J- C' O6 I% D  \+ E     pt5=point/0,1,0 : ~# }; n  @4 Z' c4 x- a3 y     ln5=line/pt5,atangl,45 " U/ q6 _7 m' x3 g     pl=plane/perpto,ln5,thru,ps(6) : K9 ?; W+ N% ~3 @2 z* d' ^) rl105: & r5 _$ P: E+ V, w! K     obj2=solext/cur(1..6),height,4,axis,0,1,0 3 e0 a6 C3 R" H+ b) `$ [; w     obj3=solcut/obj2,with,pl,cnt,c1,c2 trm: ; F% b9 N; k; T$ n9 v2 [halt 我写的程序，我想通过曲线OBJ1和直线LN4导引曲面GRP,并将OBJ3其中的一部分删去 怎么做啊 : I" K4 G0 h7 z; p3 r  m

rick

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

+ F  v6 I# _! `) k, u! {
     pt(1)=point/-2,0,1
+ Q  O  M1 F- `7 ~0 Y1 I9 b     pt(2)=point/-2,0,-1
     pt(3)=point/1.7,0,0
     pt(4)=point/-4,0,0
% R$ I" k9 B4 P     ln(1)=line/pt(1),pt(3)
/ ^  N' X& p3 E     ln(2)=line/pt(2),pt(3)
     ln(3)=line/pt(1),pt(2)


     cur(1)=line/parlel,ln(1),zlarge,2
     cur(2)=line/parlel,ln(2),zsmall,2
     cur(3)=line/pt(4),parlel,ln(3)
) `! }0 h# C2 K2 n4 R- G3 {     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
) ^( Y$ D* X: S  p8 f     grp=group/cur(1..6)
1 R4 t+ }( g& u
     ps(1)=point/2,-5,0
! g6 ?) w1 L+ v6 l" O9 \* D     ps(2)=point/2.3,-4,0
     ps(3)=point/2.7,-3,0
     ps(4)=point/3.0,-2,0
8 ]5 E9 I0 H3 S; g1 j6 `$ V     ps(5)=point/3.4,-1,0
6 d/ D/ \  B& F' _; C     ps(6)=point/3.7,0,0
4 B' l3 T/ H/ u$ r5 H" \6 U     obj(1)=bcurve/ps(1..6),degree,3


4 c6 ^8 v5 R' @- |9 [     ln(4)=line/-4,0,0,-4,-5,0
4 x/ A" b% q# {9 e! }- |5 d
     pt(5)=point/0,1,0
* k# ~# S( I: W: ?: X     ln(5)=line/pt(5),atangl,45
8 w; H  S" p$ @/ a5 a; A     pl=plane/perpto,ln(5),thru,ps(6)

) {3 e0 s2 a9 `* S0 ]' d' Q
, M, f0 L- U% q; M     obj(2)=solext/cur(1..6),height,4,axis,0,1,0

/ V' ]9 d4 n& ~     obj(3)=solcut/obj(2),with,pl,cnt,NUM,c2
* E# u/ W0 r, n) ?

6 R; c8 z+ m$ E6 h: w' j    MASK/70
l100:
: S% M* c: {! h; |: u1 t    DO/DOL90:,I,1,NUM
( k7 ^9 U: T' ]9 N        TE(I) = NEXTE/IFEND,L200:
' D9 ~) @/ a8 |* i: g3 E    DOL90:
; E3 v: x  F, Y: y# B" y2 P* PL200:
        DELETE/TE(I)
& k$ ?* u9 G3 @7 G9 w  a
trm:
, U; c) ?- a$ `& {halt

冷泉

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