移入图层程序

疯行天下

entity/obj      $$定义实体
number/sln      $$定义实体数量
2 c  N, ]1 f  ]  R! _$ S7 d+ ~. Z; B" Y* Unumber/col      $$定义颜色数量
number/lyr      $$定义层数量
& o( \$ Z3 M! x. C1 Edata/col,1      $$赋颜色数量值
data/lyr,1      $$赋图层数量值
entity/box(1000)
, h. W, g( n/ d* ?5 [
$$手动分层

! A: \& d4 v& G# w* W& I2 YA10:
    ident/'选择要改变图层的实体',box,cnt,m,resp
0 V0 P9 d! }5 O5 R* _# X: ^- {    jump/A10:,trm:,,,resp

A101:
4 V6 J1 I& \6 p7 B. l1 |8 M, r    param/'输入新图层','图层号=',n,resp
, ]. S+ K3 E$ \) Y: V    jump/A10:,trm:,,,resp
: L$ H! b/ e: T1 C' j
    if/n<=0 or n>256,jump/pr:
" d  Z2 T2 b! t4 [1 z   
- R4 G2 m4 h! A/ Z
0 A$ f6 w4 \- a    &layer(box(m))=n    $$修改多选功能
    jump/A10:
' O! f0 I* j6 B& \  _6 I4 E
pr:
  e! K0 K; G+ E2 j4 _  j, G% Q# ?    messg/'只能在1—256之间输入,重新输入图层号'
! D* j% S* |; |# F    jump/A101:
( \  f: H- s& }
trm:
halt
0 H$ I* c# n  q+ W" z8 S
问题点：1
以上为为部分程序
) c2 j) }; B" p! }* q5 j选取多个体但是只有一个实体被移入图层
未找到问题点在哪里
1 ^1 B# w4 F3 l& j0 y将 ： &layer(box(m))=n
8 g; T, F, d; B改成：&layer(box(1..m))=n
1 {6 k! A, R  o) }0 i- @' s' u就出问题
5 L2 `( n! K- L* _$ x问题点：2
+ F& ]0 b! w5 ]- F8 n$ r4 ^5 ?请教个手工选取自动分层外挂
* \! _+ h# d2 E7 t( t$ p  
手动选取需要移入层的多个实体  然后手工输入起始层
1 W" D, M5 X+ c$ |. y将实体自动移入单个层（一个实体一个层）

baton520

最近也在研究这个，问题和你出了一样，选了多个，结果只能变一个，有高手说，要实现的话要用循环语句，还没搞定，对你有帮助吗？

XIAObo595219317

代码不对哦   都编译不了

dhdfsjnsdnjsns

我也在研究，楼主多交流啊

沈才曾

entity/box(5000)
NUMBER/n
$ T, d( {3 F  r% C+ J( y9 t
$$手动分层
$ @9 u; h5 i+ }2 z! X
A10:
i=1
    ident/'选择要移动的实体'+istr(n),box,cnt,m,resp
    jump/A10:,trm:,,,resp
7 r, @# H$ e  z5 r
" w0 a4 T7 k7 @) o* _, DA101:
& l: v/ k) a3 }& w( B    param/'输入图层号','图层号=',n,resp
) J' b* ~8 B7 w5 `; z1 w- D* S    jump/A10:,trm:,,,resp

A102:
  y! m& x9 S) |% ^& k; A    if/n<=0 or n>256,jump/pr:
A103:
% r9 a+ A4 [( b, Q/ L# `$ @7 ?/ wdo/E30:,i,1,m

: U+ ?2 C0 y- e# {    &layer(box(i))=n    $$修改多选功能
E30:
. u, }% k4 p6 [  T    jump/A10:

trm:
7 O  _5 z  d2 x# A; T! ~! ohalt
7 F9 f# X5 Y6 V* d' h, }+ ?6 I3 @# T
( e1 Q2 b7 W8 {1 q; ypr:
$ A3 |! r+ U7 @, i# `* Z. N    messg/'只能在1—256之间输入,重新输入图层号'
7 h5 @: \+ Z4 H; q- ~5 A: \5 a    jump/A101:
, ^5 o  r% K9 R/ x4 U, f: j& |

沈才曾

改过的代码，你编译下试试看就知道了，增加了DO语句

hnfmhggxx

沈才曾 发表于 2015-5-26 08:12
改过的代码，你编译下试试看就知道了，增加了DO语句

8 M! V9 _: q+ X6 U/ M- e, V大哥能不能帮忙改下这个手动分层的，在分完前一个层时自动将现在选的放到加一层去呢，比如刚将一个产品放到1层，现在选一下就把他放到2层去，谢谢！