谁能帮我改改程序

冷泉

我写了个GRIP程序，在GRIP中差不出错误，但是在ug中执行出错了
那位哥哥帮我改改
# n' Y) ~  J- u3 J# C0 sentity/obj1,obj2(2),obj3,obj(3)
entity/pt1,pt2,pt3,pt4,pt5
, T3 m- Z2 X8 I( wentity/cur(4),cur1
entity/ln1
5 s2 D/ ~, _) X6 r1 v9 D- x1 n+ Dl1002:
/ L; \  S1 c. c0 n/ T/ m     pt1=point/0,0,0
     cur1=ellips/pt1,5,1.5,atangl,90,start,-90,end,0
, L7 s; i' w  s; M  N% vl1003:
     cur(3)=line/0,0,0,1.5,0,0
' k: j" B: [9 _7 ql1004:
     cur(2)=line/0,-5,0,0,0,0
     mat(1..12)=matrix/mirror,cur(3)
! l5 h: |2 M& m/ H0 F  c9 m     cur(1)=transf/mat,cur1
     delete/cur1
: g, E5 u$ }- W1 ~/ R6 a* a  a7 D     chain/start,cur(1),xlarge,end,cur(2),obj,cnt,num
     ln1=line/0,0,0,0,-6,0
5 f" o8 g5 r2 ^2 M4 e  X6 Xl1005:
     obj3=revsrf/obj(3),axis,ln1,0,360
     trm:
+ X, g% \+ s+ h. C     halt
  y/ {0 D& y/ ]8 D5 w( T错误原因：CONNOT DETERMINE SWUNG GEOMETRY INCRRVSU
ERROR 1545335 AT LINE 19 IN SPHERE
不能定义曲面，曲面没能创建

rick

1，这个程序连编译都通不过,MAT没有声明。
2，CUR(1)根本不用TRANSF的，可以直接CREATE出来，
0 g$ s* V/ h# ~' x      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)
' k% C, n/ h  v' u* e" |$ `而在obj3=revsrf/obj(3),axis,ln1,0,360 命令里你定义的只是obj(3),1和2没有去旋转
7 A: \% g  x7 J3 k: W3 ]* X0 b做一个循环就OK了

9 N) R7 k) t7 _/ s) Z7 xdo/dol00:,i,1,num
7 Q- {: {, c  ~& [9 K4 ?: D     obj3=revsrf/obj(i),axis,ln1,0,360
dol00: