求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: 题目： / [- [: ]3 C, m& r' x) C用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码 6 h8 ^" |; @* O9 k; x. y* u

答案如下：
0 M0 X+ ~1 ^3 qENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
NUMBER/mat1(12)
3 D' i( r! V$ ]& I8 {! ]6 B( r
! B9 }* }7 q5 @+ Q
MASK/70


i=0
8 F% H' Y, O7 d
, Z, K6 J5 g: t+ O
INEXTE
4 \* F/ I7 r% |/ v4 u
$ q1 W: K6 Z/ J5 P% r- o
% P$ {9 _( d8 ~L01:
    i=i+1
    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句
' y  J0 j9 {9 t( W: Q. a

   
. k7 ]% D7 J: y. {0 N0 T- e+ v    JUMP/L01:


L02:
/ h: P3 Y2 y) ]  ]7 ^$$PRINT/i-1
+ f& N1 c6 Z5 i3 s $$  JUMP/L04:
mat1=MATRIX/TRANSL,0,0,0


% K! V, o; U+ V0 u% U6 Z3 {* E( GDO/L03:,j,1,i-1
obj25(j)=TRANSF/mat1,obj(j)
/ J  ^4 ?! U2 ]: u1 a obj11(j)=TRANSF/mat1,obj(j)
6 [* j3 z6 y& j  s2 N1 i" dobj1(j)=TRANSF/mat1,obj(j)
3 z+ e5 I! N! q- \9 H
# I6 a/ T1 r3 p* F* Z9 c: ]
&LAYER(obj11(j))=11
$ d. s( b6 h* `  &COLOR(obj11(j))=15
* N5 y8 ]) G- {3 y

# l- @" e& S$ }6 V, r% R$ j5 M &LAYER(obj1(j))=1
, n! A5 M/ l3 g9 L' _  &COLOR(obj1(j))=11
: ]% R) o4 `' @+ Q' j3 ]# F2 _

. x  h/ h: s6 g" L' n &LAYER(obj25(j))=256
. j0 _5 J: s8 b

$ m; y5 H, m7 T; `6 g. G* oL03:
5 u' |+ ?, E" |& n; A" N/ O

( T: B5 y, }6 o% m! F) ^LAYER/WORK,1 $$设置工作层为1层
&LYRVIS(256)=2 $$256设置为不可见状态
0 O9 e( G- @4 d( C3 V( ~&LYRVIS(11)=2 $$11设置为不可见状态
  y8 Z% q8 n- r* ]  N2 d

VIEW/7 $$设置为正等视图
& H, b7 u5 k. m/ c2 {L04:
* C- V( B; |% b. N  J& MHALT
. h$ z/ d, _+ E' w& i  a( j' T

luoming1023

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

dhdfsjnsdnjsns

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

dhdfsjnsdnjsns

呵呵  看看 我的
+ g. E! l9 \" M1 }: V! ^  ENTITY/obj,objct(90000)
  mask/70

  INEXTE/ALL $$所有      
& C2 t  B8 d3 f; A" c  j=0

m10:
9 ^# v4 s# _1 y, G   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
   $$jump/m10:,end:,,,resp

$ p9 r, O( Y, w5 D- P0 z" }LOOP:
7 M# ^: g) b$ V3 d8 i  h   LAYER/ACTIVE,1..256
. [! s. I& z2 P0 R( n* l' F   j=j+1
2 c# J' z" h/ G3 o& J   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
% C  K% |& H2 {8 k# V   &layer(OBJ)=1
. w4 I2 N- Q5 \* N: [; N   jump/LOOP:

/ N3 a( g! G4 c9 _) L1 `. f! L/ |m20:
; c" |' f/ ?7 ]9 {# a. r4 O   n=n-1
   
   &layer(objct(n+1))=100
   if/n==0,jump/end:
% s; R5 p3 C( w& y0 }: ]   jump/m20:

3 ?! J1 a" y* t3 A6 p9 F4 u8 s   

0 w8 w+ s. o/ rEND:
' T) M% g8 }* ]6 S/ xHALT

zhwhades

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

alloyleyq

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

戏男

全是高手呀