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

冷泉

拜求解决方案

entity/ln1,ln2,ln3,ln4,ln5,ln6 entity/ps(6) % {' H4 m+ m5 Ientity/cur(6) entity/obj1,obj2,obj3 9 J. V1 U- E4 t, Y5 G+ s$ y4 ventity/pt1,pt2,pt3,pt4,pt5 entity/pl entity/grp 7 u% R8 c' ?. o' ml100:      pt1=point/-2,0,1      pt2=point/-2,0,-1      pt3=point/1.7,0,0 % P  [0 E! `& u* L& e+ G6 a     pt4=point/-4,0,0      ln1=line/pt1,pt3 $ f* ~! M5 i) Z% F- b* T: h     ln2=line/pt2,pt3      ln3=line/pt1,pt2 l101: 7 U# k" Y! C+ Y/ g% |; S1 n     cur(1)=line/parlel,ln1,zlarge,2      cur(2)=line/parlel,ln2,zsmall,2 5 y( O. n# q8 q( P$ b0 K, `0 }     cur(3)=line/pt4,parlel,ln3      cur(4)=fillet/cur(3),cur(1),center,pt1,radius,2 8 q8 F% i7 X, m     cur(5)=fillet/cur(2),cur(3),center,pt2,radius,2 " M  T0 V6 E3 r     cur(6)=fillet/cur(1),cur(2),center,pt3,radius,2 2 s- _1 e  D+ K' O3 i     grp=group/cur(1..6) l102: % n2 c, s  S: e) b' g$ i/ L, Q     ps(1)=point/2,-5,0      ps(2)=point/2.3,-4,0 * z. Z4 i, ?# ?9 z1 m3 `     ps(3)=point/2.7,-3,0      ps(4)=point/3.0,-2,0 " f# N3 m% ^- ^4 r     ps(5)=point/3.4,-1,0      ps(6)=point/3.7,0,0      obj1=bcurve/ps(1..6),degree,3 : v! x5 S$ B4 t4 el103:      ln4=line/-4,0,0,-4,-5,0 , @$ N: a* x2 [7 Ol104:      pt5=point/0,1,0      ln5=line/pt5,atangl,45      pl=plane/perpto,ln5,thru,ps(6) l105:      obj2=solext/cur(1..6),height,4,axis,0,1,0 : U- S* ^+ P4 `$ ^# v! x     obj3=solcut/obj2,with,pl,cnt,c1,c2 $ n! i6 v4 m) \trm: halt 我写的程序，我想通过曲线OBJ1和直线LN4导引曲面GRP,并将OBJ3其中的一部分删去 怎么做啊 6 Z8 h/ j9 x$ z. {- ~& e% l( f

rick

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

* a: O0 U/ }  ~/ y- l
- H; F! q# g$ _5 m7 v% }( ^     pt(1)=point/-2,0,1
- i( @- Q/ r; E9 M. I/ {  o6 l: y3 e     pt(2)=point/-2,0,-1
1 v' T$ }1 l7 J5 M     pt(3)=point/1.7,0,0
3 v8 z# Q* c- S$ ~  U     pt(4)=point/-4,0,0
: a+ @( U1 H% a) E     ln(1)=line/pt(1),pt(3)
     ln(2)=line/pt(2),pt(3)
' W+ V' k% [4 F     ln(3)=line/pt(1),pt(2)
- ~4 C( z( [# M; o; ^" v' w) L
4 O. S4 E% _/ W. ?
5 k. @/ x% ?! w& n1 m     cur(1)=line/parlel,ln(1),zlarge,2
0 }$ u( q7 J7 a5 |/ v     cur(2)=line/parlel,ln(2),zsmall,2
     cur(3)=line/pt(4),parlel,ln(3)
% w" Q+ i* D( h; ^* x     cur(4)=fillet/cur(3),cur(1),center,pt(1),radius,2
     cur(5)=fillet/cur(2),cur(3),center,pt(2),radius,2
. _% g: q+ H* e0 R4 C; D$ T, `& a     cur(6)=fillet/cur(1),cur(2),center,pt(3),radius,2
! P6 k, K  e6 a     grp=group/cur(1..6)

     ps(1)=point/2,-5,0
# e; k. o1 }; R# `* X     ps(2)=point/2.3,-4,0
     ps(3)=point/2.7,-3,0
: ?7 i/ i" z1 g/ a     ps(4)=point/3.0,-2,0
2 I; k' k' |$ H7 ?7 e" m7 S2 F3 ~     ps(5)=point/3.4,-1,0
# Q2 }+ U8 B7 C* `( t     ps(6)=point/3.7,0,0
# V4 w/ V' x. U, b; B6 E     obj(1)=bcurve/ps(1..6),degree,3

: r& s2 G- q' r! u. Z, \
     ln(4)=line/-4,0,0,-4,-5,0
+ Y" {! r0 l/ a# l
     pt(5)=point/0,1,0
     ln(5)=line/pt(5),atangl,45
) ]+ y, ~9 c! U; r     pl=plane/perpto,ln(5),thru,ps(6)


  B8 ~% ~' ]( ?2 ]" F; K+ n& j     obj(2)=solext/cur(1..6),height,4,axis,0,1,0

     obj(3)=solcut/obj(2),with,pl,cnt,NUM,c2


    MASK/70
8 B5 n- _- D# i& ~& C' p. zl100:
    DO/DOL90:,I,1,NUM
* r/ m- N- k, ?" y1 `        TE(I) = NEXTE/IFEND,L200:
    DOL90:
L200:
        DELETE/TE(I)

+ J; N' E6 @1 T/ E8 Dtrm:
halt

冷泉

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