求比我这更好的方法

luoming1023

给一网友的回答，看大家有没有更好的方法: / R7 K4 U7 B  J: C) T/ R: t题目： 用grip一键选择当前屏幕显示的实体，分别复制到256层和第11层和第1层，并且改变为不同的两种颜色（256保持原来颜色，11层130，1层78），然后关闭256层和11层，打开第一层，并且设第一层为工作层、求源码 ! V% g  P, q+ M* X

答案如下：
ENTITY/obj(1000),obj25(1000),obj11(1000),obj1(1000)
' W2 d, f! t, zNUMBER/mat1(12)

, Z- f1 W! T3 l6 r! t0 n5 z
  I- V9 v0 u. GMASK/70
9 F# w: N2 B  B' J

i=0


5 L: e! r+ E0 H  G+ b5 U, ZINEXTE

( E; d  t# R. C  g  j/ z; {
2 B  [  y) @/ u( _8 n5 lL01:
    i=i+1
    obj(i) = NEXTE / IFEND, L02:  $$这里赋值，注意要使用循环语句
# t3 [/ W$ v: D6 T) A8 a

5 j$ t* H/ o, t2 K* B. u   
! D! A* Q/ O3 ?) R) c) K3 _    JUMP/L01:
% ~# E5 E6 K  Z. n

4 S# X/ _( u% ~# ?0 y* GL02:
4 a- s% M8 W8 r) Z" U" l4 w$$PRINT/i-1
( L. |# |# k4 _( z+ u $$  JUMP/L04:
8 y/ ]1 a6 ]) R. Y% i: P/ T1 Umat1=MATRIX/TRANSL,0,0,0
+ w) G/ j( Q  y$ }8 j9 @
( x. S& \7 K+ r4 s8 E* X  \- I
, ^9 r% D5 T! e) t0 z0 w. ?! i% kDO/L03:,j,1,i-1
obj25(j)=TRANSF/mat1,obj(j)
obj11(j)=TRANSF/mat1,obj(j)
: [4 N+ q; E% o; q: z8 {1 o, l  Fobj1(j)=TRANSF/mat1,obj(j)
8 ^+ W( a- o4 C

% z) V( o( C0 e& a& J; |2 f &LAYER(obj11(j))=11
  &COLOR(obj11(j))=15


&LAYER(obj1(j))=1
* H" H. `( C8 u( a  &COLOR(obj1(j))=11
# l: n: u, u4 c+ W' x

&LAYER(obj25(j))=256


L03:


& f  s# w7 s7 i- q5 ^2 QLAYER/WORK,1 $$设置工作层为1层
&LYRVIS(256)=2 $$256设置为不可见状态
+ A) }) Q4 {$ h) g3 `( i&LYRVIS(11)=2 $$11设置为不可见状态

+ l* ]5 i+ n; K' b4 _
( p' g4 t, I& F9 }' \6 @7 E7 `VIEW/7 $$设置为正等视图
# L. p" b3 R8 ^# o% w' J2 JL04:
HALT

luoming1023

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

dhdfsjnsdnjsns

我是UG爱好者，看了LZ的帖子，我只想说一句楼上的贴很好！UG论坛好强大！
4 F3 Z% K" ~! Y; n( u我也在研究 有结果再来交流

dhdfsjnsdnjsns

呵呵  看看 我的
: N; `7 S- f6 v5 U  ENTITY/obj,objct(90000)
  mask/70

  _% a. \1 e/ K8 [" t' y  INEXTE/ALL $$所有      
  j=0
- C. s3 N7 ^8 l# p' Y! b1 f
* }) J7 T7 F% ?: u' J7 c* qm10:
   ident/'WXT:选择要改变图层的实体',objct,cnt,n,resp
   $$jump/m10:,end:,,,resp
; Z. G7 @" T, E
7 C2 I4 f  U# @4 N0 n% TLOOP:
, }) J/ Z7 F6 q   LAYER/ACTIVE,1..256
4 f  N  }; S+ {: d" G9 D$ O   j=j+1
   obj=NEXTE/IFEND,m20:   $$ 循环得到所有实体  
) M! W  ?* a1 d; Q: }- F$ `   &layer(OBJ)=1
- o% V- g6 n1 [( X- ^5 h# y# b   jump/LOOP:

4 t( m5 R7 H, J' d0 ?/ |: N0 ?. Fm20:
- v1 ~: l/ V! Z. u' \" k0 @; g( c   n=n-1
   
5 ~* b" _8 j+ m2 |7 N6 N. Y   &layer(objct(n+1))=100
& u5 m4 `+ C1 a8 I9 d   if/n==0,jump/end:
   jump/m20:
  m) ~. ?' N# m8 G
% V3 C' E7 p& E1 a$ U3 s2 N' Y" Y   
( A7 U/ L% O0 y
. V$ n8 H7 C: r3 w( u  N# [END:
# q$ C" {6 O+ R% _4 Y2 H3 Y& ]HALT

zhwhades

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

alloyleyq

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

戏男

全是高手呀