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

冷泉

拜求解决方案

entity/ln1,ln2,ln3,ln4,ln5,ln6 $ u# u: m$ ~- M. c. @, g9 r  n2 \entity/ps(6) entity/cur(6) entity/obj1,obj2,obj3   f$ r0 c. K3 Q9 s8 ientity/pt1,pt2,pt3,pt4,pt5 entity/pl 1 o+ I8 J# b" V  M3 dentity/grp 8 C5 V4 ?5 g9 _+ ]9 }  ~# Sl100: + {9 L6 N/ C! u3 g. o- \4 q     pt1=point/-2,0,1 ; p; N. e5 o& o7 l  H+ G& v     pt2=point/-2,0,-1 & f! u: V  o0 d* e0 P! C     pt3=point/1.7,0,0      pt4=point/-4,0,0      ln1=line/pt1,pt3      ln2=line/pt2,pt3 - j$ n+ B' V0 ~* m8 i" O     ln3=line/pt1,pt2 l101:      cur(1)=line/parlel,ln1,zlarge,2 . y) v+ \1 ?# [* b8 c" R8 |     cur(2)=line/parlel,ln2,zsmall,2      cur(3)=line/pt4,parlel,ln3 ! H2 d: ?6 H& h% s     cur(4)=fillet/cur(3),cur(1),center,pt1,radius,2 5 b8 e8 W- l; K1 Y* Y     cur(5)=fillet/cur(2),cur(3),center,pt2,radius,2      cur(6)=fillet/cur(1),cur(2),center,pt3,radius,2   N: N! |& i2 @; Q0 }% G! Y     grp=group/cur(1..6) l102:      ps(1)=point/2,-5,0 " k# f+ y# f: d4 N& @- P7 g     ps(2)=point/2.3,-4,0 - w1 m# p, A  r" O6 ]     ps(3)=point/2.7,-3,0 7 K3 P" V! Y0 w     ps(4)=point/3.0,-2,0 ! I+ K- B& b( I0 I4 d/ j     ps(5)=point/3.4,-1,0      ps(6)=point/3.7,0,0 3 L: b2 u* D0 S" A4 N9 T; R8 u, y     obj1=bcurve/ps(1..6),degree,3 1 M1 n+ k( j3 K" Y8 r2 il103:      ln4=line/-4,0,0,-4,-5,0 + ~0 I  g- @4 p' y# K: Pl104:      pt5=point/0,1,0      ln5=line/pt5,atangl,45 + c! P+ ~2 z( ?# S     pl=plane/perpto,ln5,thru,ps(6) l105: * U1 Q) P3 H$ j3 ?7 }     obj2=solext/cur(1..6),height,4,axis,0,1,0      obj3=solcut/obj2,with,pl,cnt,c1,c2   M8 n5 i3 z# |& Z9 o4 H+ Btrm: ! {' t1 y; r2 P6 T, y9 |halt 0 e6 d7 @( {" W( S* M我写的程序，我想通过曲线OBJ1和直线LN4导引曲面GRP,并将OBJ3其中的一部分删去 怎么做啊 / y5 U2 \% N& ?8 l

rick

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


7 O6 Q, ^* G- m6 ~3 u4 l  v! i     pt(1)=point/-2,0,1
# V$ G4 b* J+ O. ^     pt(2)=point/-2,0,-1
4 l" R4 Q: U, [% f, Z5 X     pt(3)=point/1.7,0,0
% X8 z  g' ~9 p0 L% J4 \7 b! N     pt(4)=point/-4,0,0
1 r& B9 m+ {/ j+ u, @     ln(1)=line/pt(1),pt(3)
     ln(2)=line/pt(2),pt(3)
     ln(3)=line/pt(1),pt(2)
( X3 S( n' O% _2 B8 Y$ i% I
1 R/ ]- j) s6 i, Q2 F; p
$ L6 S( r4 v) w6 e! h$ _) X     cur(1)=line/parlel,ln(1),zlarge,2
, \( x8 Y: g0 b$ b- Z6 F     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
5 V  ^. I7 G6 `1 e% v8 @     cur(5)=fillet/cur(2),cur(3),center,pt(2),radius,2
! s9 e/ I/ b, r3 _. K4 b' l     cur(6)=fillet/cur(1),cur(2),center,pt(3),radius,2
1 O, h8 j, R- @# j+ h     grp=group/cur(1..6)
/ b' F1 X. K8 o$ F( s/ n/ h. G% A
     ps(1)=point/2,-5,0
+ d! }2 `9 `0 W& t) k) l7 o     ps(2)=point/2.3,-4,0
     ps(3)=point/2.7,-3,0
     ps(4)=point/3.0,-2,0
; O) q, N: T" L, ?! e     ps(5)=point/3.4,-1,0
     ps(6)=point/3.7,0,0
* _" v# A8 p: j- C" G- m     obj(1)=bcurve/ps(1..6),degree,3
8 p/ c% M- d- f3 i4 a4 W0 L
% u7 b3 p1 s9 @% ]! J0 Y
     ln(4)=line/-4,0,0,-4,-5,0
4 @) j- W: L2 e6 J& S% L- p# q0 D; ?
3 \7 M/ g& K8 H1 z( \7 |7 B     pt(5)=point/0,1,0
0 l8 J. W' }7 w# p     ln(5)=line/pt(5),atangl,45
8 g. M# A/ k! }4 y/ P9 u     pl=plane/perpto,ln(5),thru,ps(6)
5 p( r) e- d7 B

2 E% ^3 r! s/ ~* W) o/ C. k. @' e! p     obj(2)=solext/cur(1..6),height,4,axis,0,1,0
* ]9 p$ l% D4 Y5 f: j6 }
     obj(3)=solcut/obj(2),with,pl,cnt,NUM,c2
/ l9 g& `& u, [5 @, e- s

) d5 s# x" W& w2 D$ t, M, o    MASK/70
. B  c3 @! T; D! V# L, P! Ql100:
' h1 j) Q7 q6 k+ R5 n; q    DO/DOL90:,I,1,NUM
/ u: G7 f0 z& S        TE(I) = NEXTE/IFEND,L200:
2 D' m' \! @. X    DOL90:
6 h' b5 S4 T2 I7 r7 kL200:
        DELETE/TE(I)

5 K! W. r1 ~( X! ]0 @3 Ltrm:
halt

冷泉

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