求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: 题目： 0 f9 Q! j7 o3 M% J用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码

答案如下：
3 [; s( E$ N. s" y- h0 t# uENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
NUMBER/mat1(12)

1 ^- O6 K. ^) p3 f/ u5 k/ d% i  D* p
MASK/70
# v2 N5 m6 `3 }8 _

8 T3 [3 h$ Z6 {& X i=0

, _4 k% E+ e! ]
3 }* _- q9 @2 @; i% ]3 lINEXTE
/ E$ E5 D' p- H
+ x, D1 S6 F  u
* H- _& |0 V: S$ l) GL01:
    i=i+1
0 W: `5 q. v3 @8 F. l! O0 {: \    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句
; ~& N3 M& A) @! @
. G/ m: C: T' k2 R, O, S1 r% B
   
    JUMP/L01:
* w% v( q0 Q- g  s
: K% [% f& `' j
/ B) z( P0 S0 TL02:
/ O- `  P( B' O/ b1 R9 u3 r! \2 `/ a* D$$PRINT/i-1
$$  JUMP/L04:
- r$ Y/ r5 M) E1 U2 S8 U+ I% s# I2 dmat1=MATRIX/TRANSL,0,0,0
/ x+ b' K& t0 l2 P) {

! h7 ]& q6 C0 ?  m3 @6 UDO/L03:,j,1,i-1
obj25(j)=TRANSF/mat1,obj(j)
' {2 e2 {' e& f' D" e0 M obj11(j)=TRANSF/mat1,obj(j)
obj1(j)=TRANSF/mat1,obj(j)

# K5 E; r/ O1 F+ q
# D% R  ^& R, D) @/ L &LAYER(obj11(j))=11
5 f7 e  z$ ?& q$ T1 _! o  &COLOR(obj11(j))=15
0 A# l0 B/ |& _$ T5 ^

/ D) @, Q# {3 _8 [ &LAYER(obj1(j))=1
- ]! q8 \) d/ {, H# k  &COLOR(obj1(j))=11

+ Y( v- T1 O- v. y8 t
! V. @; D- K9 M6 k1 b' W- v &LAYER(obj25(j))=256

: U; T0 r% v8 z: P' `$ ?
L03:

0 a6 ^) h2 N$ ?
% E, q- ]8 }# [0 }2 s1 vLAYER/WORK,1 $$设置工作层为1层
&LYRVIS(256)=2 $$256设置为不可见状态
&LYRVIS(11)=2 $$11设置为不可见状态

  A7 S2 [, x8 J3 g2 B# ^, q9 `( ]
, j* i% G  j1 X, G' QVIEW/7 $$设置为正等视图
3 I9 ]- ]; c! o0 J9 ]8 M1 TL04:
# }: w, ?+ y2 e; L% xHALT

luoming1023

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

dhdfsjnsdnjsns

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

dhdfsjnsdnjsns

呵呵  看看 我的
) @) u9 ^( c5 {) D3 n  ENTITY/obj,objct(90000)
( u9 a9 X; K' x+ R  mask/70
4 @0 e" h. B; E5 m, K$ ^$ x
6 j* K( h1 N3 e  INEXTE/ALL $$所有      
  j=0
  N, i! X8 z4 O9 Z
m10:
   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
+ H* U; R' [1 d) x1 Y( ]( v   $$jump/m10:,end:,,,resp

; A1 Z( m- w! D+ oLOOP:
  _: D( ]3 j- D3 w- O, R' }   LAYER/ACTIVE,1..256
1 C9 S  i, ~0 ?( x- j1 ?5 g4 o4 G: A   j=j+1
* x' i' G- r" t   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
   &layer(OBJ)=1
   jump/LOOP:
8 p) J8 ]! d+ ?7 O+ F
- k) `! t5 R. Q4 W9 r1 bm20:
+ j. z6 U2 M6 D. y7 T/ o/ X8 k; E8 `   n=n-1
' P; ]) m7 T; C8 j$ J   
   &layer(objct(n+1))=100
, I7 A- i% N) ]8 N   if/n==0,jump/end:
( c: @% {- J: ]) E   jump/m20:

   
+ ~( `+ N2 K5 ]+ i% c
1 W! m4 C) A5 h5 u* CEND:
: W" W& K( L) s$ |' r3 O, tHALT

zhwhades

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

alloyleyq

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

戏男

全是高手呀