求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: ! V2 v5 |/ A0 S: O  C: x题目： 8 T- Q8 j$ _6 R2 u- \用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码 5 x/ C% m$ m: a4 y0 r2 k: B

答案如下：
ENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
NUMBER/mat1(12)
3 r: Y* [# z0 Z( z: `- M
$ S" t+ H0 l' Z9 z
MASK/70
' F( c% @- i! C3 |* u
8 _& w8 }. Z8 L
  V' Y, U7 `  K: J9 D# }6 j2 {! {3 e) q i=0

5 c& u+ C+ `' Q% f7 y0 U& }: |
INEXTE

2 a( u8 o6 f3 q0 j
L01:
; V+ N* W2 V9 q0 C    i=i+1
    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句

2 j6 y! z, a. E0 L
   
: ]5 B$ J$ b8 n+ k    JUMP/L01:
  V7 l& A1 V" J( f1 `
) |& I2 [0 M' m% I4 H% x
& K3 ~& V6 _( K  _L02:
1 U! W, k( O& q1 o& z0 ?; F7 d$$PRINT/i-1
2 U1 X8 j+ l1 f/ U $$  JUMP/L04:
mat1=MATRIX/TRANSL,0,0,0

: J8 s: |- D& q& Z
3 l  p5 [' k; hDO/L03:,j,1,i-1
5 e( Y1 G3 [% z) f* k- ] obj25(j)=TRANSF/mat1,obj(j)
obj11(j)=TRANSF/mat1,obj(j)
2 G& p' p0 b, X8 z4 C5 e' gobj1(j)=TRANSF/mat1,obj(j)
" S2 p( M" j6 q0 T+ @  _$ h

&LAYER(obj11(j))=11
8 D* ?6 u( a* ]" ~6 U  &COLOR(obj11(j))=15

/ U! ~8 p( t8 V' A& {0 ~% q
& Z) Z" }5 [  o1 p: B6 g9 R &LAYER(obj1(j))=1
  &COLOR(obj1(j))=11
0 z6 F' Q& F  f: I

&LAYER(obj25(j))=256


" y6 q8 n% V+ O) l4 D- G0 V$ hL03:
& o3 X8 o4 u% w& z

4 ?! T+ ^$ _, M' K  F8 ?LAYER/WORK,1 $$设置工作层为1层
7 {7 j# a& c3 c5 E&LYRVIS(256)=2 $$256设置为不可见状态
&LYRVIS(11)=2 $$11设置为不可见状态


4 q: n0 c6 _- E3 e8 `  T% J# sVIEW/7 $$设置为正等视图
L04:
HALT
  V/ W; K' l/ {9 I

luoming1023

主要是我在GRIP中没有找到COPY TO LAYER的命令，有谁知道吗，或者有更好的办法吗

dhdfsjnsdnjsns

我是UG爱好者，看了LZ的帖子，我只想说一句楼上的贴很好！UG论坛好强大！
我也在研究 有结果再来交流

dhdfsjnsdnjsns

呵呵  看看 我的
  ENTITY/obj,objct(90000)
  mask/70
# y5 }1 Q  @4 N2 ~# x( f' n
7 G; z. J  a7 Q: z1 K. v* P6 L  INEXTE/ALL $$所有      
  j=0
5 B5 E) E) @% @
m10:
   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
   $$jump/m10:,end:,,,resp

LOOP:
  [% X9 ?) _. x5 U7 \, U6 R0 P6 k# D& X   LAYER/ACTIVE,1..256
  P4 l/ _6 W) F2 Y# b7 i   j=j+1
   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
   &layer(OBJ)=1
7 W) i5 F# H0 }: ]% M   jump/LOOP:
" S6 }$ ^. m7 X' q9 V" W* i
m20:
' X0 \( O# X- x2 C  I* i, U8 D   n=n-1
   
   &layer(objct(n+1))=100
! D+ P% A9 b/ }" K   if/n==0,jump/end:
' v" h0 N" T4 l2 E, Q) k  Z$ K   jump/m20:

   

. P" o% W8 A' E$ i/ x2 P/ J6 bEND:
0 W3 e! C( _/ r( z) {HALT

zhwhades

我会C/C++的写法，用move就行

alloyleyq

都是专门人才呀。学习中。

戏男

全是高手呀