求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: 题目： 8 D; |0 g! v, @4 o. m  h  k用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码

答案如下：
& H+ O6 f, g5 g- bENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
NUMBER/mat1(12)


MASK/70
, U+ i* U) |0 m* Q& e* N

( f0 a  l" R& {  T1 S6 d i=0
$ q$ H# Q. c5 g( C* P6 S) [
- X: ~6 N! ]1 m9 F8 g& ]
INEXTE
! U  D! W3 E, P$ A  g! u
0 n; f. I( K8 b' v- R! M" I
L01:
/ L8 J- L6 w2 |6 K0 ^& I1 C    i=i+1
7 z9 t3 X. {8 T" U: Z* f; {    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句


   
. r/ r  a- K  \  I0 X    JUMP/L01:
2 G; G) w; w. t; v* c0 K$ \

+ o9 W2 J6 K9 w0 S4 DL02:
: D4 P; X* E+ X7 p" g( w( x7 P: P$$PRINT/i-1
. W/ {' L- X9 G; L9 v $$  JUMP/L04:
mat1=MATRIX/TRANSL,0,0,0

1 C: M* s( b) C. u9 m
( P0 V: e5 ~5 W# dDO/L03:,j,1,i-1
  O$ o/ ], g) T* q3 N. F  {. l obj25(j)=TRANSF/mat1,obj(j)
obj11(j)=TRANSF/mat1,obj(j)
obj1(j)=TRANSF/mat1,obj(j)
0 v6 l5 Z0 ^3 `; ]5 E$ k5 D

&LAYER(obj11(j))=11
8 z' W  o, z( ~$ C/ D% g& o  &COLOR(obj11(j))=15
( {3 }9 l. H1 @1 q6 v! T, m
% R1 L2 j' x3 ?
&LAYER(obj1(j))=1
  &COLOR(obj1(j))=11


$ W+ ~( X9 h! i' X6 s( Z/ _+ C &LAYER(obj25(j))=256

' I% d" y5 ?! L7 X" N5 K. \! g4 u
L03:


LAYER/WORK,1 $$设置工作层为1层
5 d* b! }. Z; z+ [% S% F$ P&LYRVIS(256)=2 $$256设置为不可见状态
9 m9 Q( w# y' ]) o' q  T&LYRVIS(11)=2 $$11设置为不可见状态
; G6 q, S# B# C" \6 H  w

VIEW/7 $$设置为正等视图
) ]1 [+ B! ]5 y: x8 [% oL04:
: u0 ~) `, Y$ B4 i) q$ zHALT
* m8 r* G  d1 n* g! P+ W

luoming1023

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

dhdfsjnsdnjsns

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

dhdfsjnsdnjsns

呵呵  看看 我的
$ t: {0 k' ~8 K5 ]9 F4 i  ENTITY/obj,objct(90000)
( Y, ^: x7 O/ O9 N! |- W  mask/70
$ k% [# |& c5 D$ U2 R4 v1 [
& `# D& d. ?$ I' p$ {  INEXTE/ALL $$所有      
  ]. w5 k) H1 H* I  j=0
4 q; C& D. f& O
m10:
   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
   $$jump/m10:,end:,,,resp

. O, e$ E3 x5 q4 W! g& v- p- \LOOP:
   LAYER/ACTIVE,1..256
   j=j+1
: @4 F, s  {( t2 c9 J4 J1 j* `   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
   &layer(OBJ)=1
   jump/LOOP:

2 v# y: N& M; a% a: u! um20:
   n=n-1
   
0 p/ t3 r# e3 ^1 J3 f4 R8 |   &layer(objct(n+1))=100
   if/n==0,jump/end:
   jump/m20:

   

END:
HALT

zhwhades

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

alloyleyq

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

戏男

全是高手呀