求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: 题目： 用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码 % g0 v) P+ a" `! R- l: M4 j& i $ U% i; _. U4 _7 K

答案如下：
ENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
1 O$ Z* k% i. K+ v- @NUMBER/mat1(12)
9 H( v( P/ H( [( g: V

9 c5 r3 R5 V& p1 n6 XMASK/70
) k, Y9 \5 x3 r

i=0


INEXTE
9 H- w. u$ W2 `; _
0 ^# a/ H. R: D: A  F* \2 j
/ G7 z3 V3 u5 g+ g1 Q& }4 x: tL01:
    i=i+1
    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句
* c- k$ g9 C0 N, l$ D
: J% W) p( P, F7 @
& S* H  v7 m0 P) v% x   
: p4 {: R) a- C! k/ H  ?9 U6 Q8 U    JUMP/L01:


L02:
$$PRINT/i-1
$$  JUMP/L04:
mat1=MATRIX/TRANSL,0,0,0

" y0 `3 v$ ?5 b4 L' n1 C
  |( U8 C3 o3 r- R% SDO/L03:,j,1,i-1
obj25(j)=TRANSF/mat1,obj(j)
obj11(j)=TRANSF/mat1,obj(j)
obj1(j)=TRANSF/mat1,obj(j)
% F8 e+ U$ D1 R. P& k( q4 w. V

&LAYER(obj11(j))=11
% Q, G3 }2 V% n: Q  &COLOR(obj11(j))=15
- e- f* m+ d+ S9 N( e+ }

; h- K7 x' |: x: U &LAYER(obj1(j))=1
! \% Q. E7 b. s) Y" w  &COLOR(obj1(j))=11

/ R/ j' l) ~9 G% ^6 q9 v; `
; S' l' z9 P* F5 v5 h. l &LAYER(obj25(j))=256
( E; ^( z4 {2 A# t

L03:
: e# W1 o: l5 e6 R

LAYER/WORK,1 $$设置工作层为1层
&LYRVIS(256)=2 $$256设置为不可见状态
8 N- B( Y2 W; v, t& G  H&LYRVIS(11)=2 $$11设置为不可见状态


1 J; b* t' S) @, n/ w9 wVIEW/7 $$设置为正等视图
- V. O' j' F9 D1 \2 o, c7 ~: b4 _L04:
HALT
: S' h, N* o+ X& ?) b7 P6 H

luoming1023

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

dhdfsjnsdnjsns

我是UG爱好者，看了LZ的帖子，我只想说一句楼上的贴很好！UG论坛好强大！
4 D, p% h8 j& T3 r7 q我也在研究 有结果再来交流

dhdfsjnsdnjsns

呵呵  看看 我的
  ENTITY/obj,objct(90000)
  mask/70
$ o7 c( K" F+ l6 f. X
( y0 q0 g, N0 }) v$ ?* S3 I( |; I  INEXTE/ALL $$所有      
$ n2 ^' T; ^5 ?) i  g- T  j=0
. `2 r: c' a# f" e1 X+ l  A4 l
. [3 C( R8 |3 Q; |m10:
3 U0 x3 U  v- W# m5 t* M# |, o   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
* a& B. o2 q3 ~! ?  C  ?6 N   $$jump/m10:,end:,,,resp
0 [. X+ {; G7 g/ T, p
' X: }7 o3 ]5 I9 }, f: p; [$ Z% rLOOP:
   LAYER/ACTIVE,1..256
  _# q) I7 a& M1 `   j=j+1
/ K" j6 Z! J. A0 t1 q: f3 J2 u   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
   &layer(OBJ)=1
" p) A1 e$ a/ o# l+ w- w   jump/LOOP:

8 ?! L. h- W% ^# Tm20:
   n=n-1
. T  X' Q8 p0 {6 X) w: t* y   
   &layer(objct(n+1))=100
   if/n==0,jump/end:
" |4 M& h( J- y& s7 n3 x- e   jump/m20:
" a9 m& m9 m  l8 Y+ ]% m
! z4 A9 J7 X0 q  L$ Z- B; z   
# O% z# E) i1 r! Y  d# \4 V& X
3 W1 ]/ J8 d2 G: I2 F& J# V$ L$ REND:
HALT

zhwhades

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

alloyleyq

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

戏男

全是高手呀