谁能帮我改改程序

冷泉

我写了个GRIP程序，在GRIP中差不出错误，但是在ug中执行出错了
; h( j( F, s9 i8 h% B2 b那位哥哥帮我改改
entity/obj1,obj2(2),obj3,obj(3)
entity/pt1,pt2,pt3,pt4,pt5
3 s, x& R6 v6 `entity/cur(4),cur1
* b' O# Q: [5 Q' Rentity/ln1
3 ^5 Q: h! H$ A$ j- m) H5 _9 Gl1002:
     pt1=point/0,0,0
0 [: F/ K/ Y2 D     cur1=ellips/pt1,5,1.5,atangl,90,start,-90,end,0
! n- }" ^. t& B- ^. |4 w# m$ nl1003:
2 u/ f) h2 P2 s1 i0 R: l- y8 `     cur(3)=line/0,0,0,1.5,0,0
) G7 H& b( z' tl1004:
4 M2 s7 H+ n  z: J     cur(2)=line/0,-5,0,0,0,0
     mat(1..12)=matrix/mirror,cur(3)
- j1 L- q& S3 v3 `5 G; M9 ?# E  |     cur(1)=transf/mat,cur1
     delete/cur1
     chain/start,cur(1),xlarge,end,cur(2),obj,cnt,num
7 d! u8 T3 P9 n& F' S. O6 T     ln1=line/0,0,0,0,-6,0
l1005:
     obj3=revsrf/obj(3),axis,ln1,0,360
     trm:
! \7 ^9 }. y1 _( ~1 {7 v3 u     halt
错误原因：CONNOT DETERMINE SWUNG GEOMETRY INCRRVSU
) |6 q0 A8 V4 m6 {  o  z1 z# \: oERROR 1545335 AT LINE 19 IN SPHERE
不能定义曲面，曲面没能创建

rick

1，这个程序连编译都通不过,MAT没有声明。
2，CUR(1)根本不用TRANSF的，可以直接CREATE出来，
      cur(1)=ellips/pt1,5,1.5,atangl,-90,start,0,end,90

冷泉

嘿嘿  不好意思mat()原来做的时候声明了为NUMBER，这样的话就可以编译通过了，但是我就是在旋转的时候出了点问题，不知道怎么解决

rick

你在chain命令里定义了三个变量cur(1),cur(2),cur(3),分别为obj(1),obj(2),obj(3)
而在obj3=revsrf/obj(3),axis,ln1,0,360 命令里你定义的只是obj(3),1和2没有去旋转
做一个循环就OK了

do/dol00:,i,1,num
* E8 |& e6 p) U+ O$ n     obj3=revsrf/obj(i),axis,ln1,0,360
/ Y; e6 O+ g4 d8 edol00: