各位老大，小弟求个小外挂

351827871

小弟在此跪求会二次开发 的老大可以不可以帮小弟做个（分层外挂）特征就是比如同一个东西但是镜像的或阵列的体积像同的可以移动到同一个图层里面，就是要把几百件的东西把相同体积的分开，分的东西都是人家转过来的产品装配图，如果再可以的话另外做个把同一个高度的也放在同一个图层里面，不过厚度那个功能误差可以再4个毫米之内，大侠们，可以帮我做个这样的外挂吗？小弟在此感激不尽，因为每次老板叫我把东西分开麻烦死我了，先谢过大家了。

荔浦林

你这个好像好难的，我不会，有2个难点：1、要有一个筛选相同体积的算法。2、同样的：哪一个尺寸（ug里面定义的）作为厚度的算法。提个参考思路：对于这个算法我的经验-------在建模之初就在表达式里预先定义3个变量作为：长、宽、高。然后根据3个变量关联建模、算体积，这样就好进行下一步筛选了，放到图层那都不是事。上一个截取的批量放图层的源代码（只是无筛选、手工点选操作的，我的装配都不超过256个组件的，这段代码对于我没用过几回），你再根据您的算法作条件选择修改修改。如感兴趣自己编译、链接了。
entity/obj(1000)
number/n
  l( n  A. L! [) Q& A. o; wdata/p,1,n,1,a,1
" y* w7 E  [& X* gl50:
; W" ^' Z7 v, `0 ^, g* P- r# V      choose/'选择分层方式：',$
2 z- z/ E/ K" b6 w; _, L1 x                          '批量手动放置多层',$
                          '批量手动放置单层',resp
( v; a2 E- o0 H8 f; {, H      jump/end:,end:,,,L501:,L502:,resp
# N6 n2 m6 h% M' l+ `" A0 ^6 G       
, Y+ t1 ~# h9 h) J* e) L9 @L501:
    L5011:
        mask/63
! A" A2 L' _- V  x8 ^& u% A        inexte/all
# O( [5 f8 F! o  b0 V+ J) t  I3 E: P* w        a=1
( e$ X; J: G' k* Q; |7 i      L50111:
                ifthen/a<=num
0 F5 Z1 i9 d* \8 g! ]9 M; ~" O                obj(a)=&nulent
( }+ j% Z2 a) e: k) ]2 P& C; r                a=a+1
/ [! x7 m3 q+ g' c  g( Z                jump/L50111:
' B/ c) t+ R- V0 Y8 J' _) d                endif
                n=0
: y3 ^3 V% K' k" u$ n( p4 Y" |    L50112:
        mask/63
0 n7 ^* ~. ^% R$ V6 J            ident/'选择要移动的组件',obj,cnt,num,resp
( _( H1 z/ t! [1 z& D3 m) S/ u            jump/,L50:,,resp
/ p! j$ A1 E& O% n( K5 C    L5012:
' D2 B. d$ p. y& H" F        param/'输入开始层',$
: a2 C$ D" y: V% K5 v                        '输入开始层',p,resp
        jump/L50112:,L50:,,,resp
7 S0 x, I* ~3 V& m2 Z    L5013:
5 l- B; O" `% ~( C; d4 F3 E       
        n=n+1
        ifthen/n<=num
            &layer(obj(n))=p
2 i+ b1 a) c3 z' q3 t; }& H        p=p+1
        jump/L5013:
        endif
) [  |# m# X3 M) n            jump/L501:
L502:
   L5021:mask/63
& B2 v  \1 d- D5 x0 z) ^3 Y        inexte/all
8 {2 [& |. \3 I2 Z) g        a=1
     L50211:
) z# m9 y0 S. ^) j: r- m                ifthen/a<=num
% O' e0 j9 z" w                obj(a)=&nulent
- k9 V' ?& L/ n) z                a=a+1
                jump/L50211:
                endif
# j  x& R& Q7 `8 C- d2 R! e( }                n=0
7 R" u1 l0 B7 ~" q; e: D     L50212:
        mask/63
        ident/'选择要移动的组件',obj,CNT,num,resp
. _5 V3 Y4 u" S) a        jump/,L50:,,resp
   L5023:
        param/'输入目标层',$
: `3 x8 D  e0 a                        '输入目标层',p,resp
8 B) n! f$ }# S7 Y        jump/L50212:,L50:,,,,resp
   L5024:
        n=n+1
9 y5 E, s1 c9 F+ u+ I        ifthen/n<=num

            &layer(obj(n))=p
        jump/L5024:
        endif
$ m5 O( _( l# Y5 B8 @5 |: \' ?        p=p+1
     jump/L502:   
end:
halt