移入图层程序

疯行天下

9 P0 U$ p5 k4 r. U8 `6 D' U# _" O! Dentity/obj      $$定义实体
number/sln      $$定义实体数量
number/col      $$定义颜色数量
: d! Q  T0 u1 Lnumber/lyr      $$定义层数量
. m8 Q2 E, L, C% s+ g# A2 Xdata/col,1      $$赋颜色数量值
data/lyr,1      $$赋图层数量值
entity/box(1000)
0 b0 X/ f; _( E4 H: I
2 y7 {  Z5 j5 t5 J1 |8 z( b$$手动分层
* r% z9 n) Q* b# u6 N- X" X+ S
A10:
    ident/'选择要改变图层的实体',box,cnt,m,resp
    jump/A10:,trm:,,,resp
* |" v1 D: J5 D2 I& L
A101:
6 d- L6 m& L  M* w    param/'输入新图层','图层号=',n,resp
    jump/A10:,trm:,,,resp

    if/n<=0 or n>256,jump/pr:
; w* f8 M+ m/ _% H2 W* A   

% U8 f( q# `$ ~. g+ y; p- X$ ]7 L4 T    &layer(box(m))=n    $$修改多选功能
    jump/A10:

2 z1 e$ r6 L1 R3 k7 zpr:
    messg/'只能在1—256之间输入,重新输入图层号'
    jump/A101:
# N7 P% u4 q  \8 R
trm:
halt

2 i& Y7 O; W$ T5 e4 i问题点：1
7 u  f8 [. d: p. D* J1 R* g以上为为部分程序
  j6 H! r: ?1 N2 r8 c选取多个体但是只有一个实体被移入图层
; V, a) g9 q! m% R未找到问题点在哪里
" [- T+ q" L! i) P6 z6 l将 ： &layer(box(m))=n
改成：&layer(box(1..m))=n
就出问题
问题点：2
6 c  W- [) U* X$ E; n% [请教个手工选取自动分层外挂
  
手动选取需要移入层的多个实体  然后手工输入起始层
+ G" w1 N) E" _; F3 j6 E将实体自动移入单个层（一个实体一个层）

baton520

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

XIAObo595219317

代码不对哦   都编译不了

dhdfsjnsdnjsns

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

沈才曾

entity/box(5000)
NUMBER/n

- I# t" m! H) C% W5 |2 \$$手动分层
# x+ ?8 k  D6 ]! p
0 F* h; s) f8 D, I# f" ]: C3 a$ oA10:
- J% x8 |6 k6 G# l0 U8 i3 ii=1
    ident/'选择要移动的实体'+istr(n),box,cnt,m,resp
( p5 q/ ]: \- o+ v4 I1 E    jump/A10:,trm:,,,resp
8 q" b- M% c! H' a2 C0 K- j
A101:
    param/'输入图层号','图层号=',n,resp
    jump/A10:,trm:,,,resp

A102:
) s5 @/ }/ _, a4 i9 ~! O2 O    if/n<=0 or n>256,jump/pr:
0 l% V; M9 F/ K' B$ |A103:
do/E30:,i,1,m

0 {" l1 P3 Y3 J* G; `, d3 ?    &layer(box(i))=n    $$修改多选功能
- D, @- o' u( Q) Q- hE30:
6 h5 V) Q! M! N: N! u' w2 Z% }    jump/A10:
! G! Z' q- R$ y- v- R3 b& K3 T$ R
* F4 ^1 M) q; D$ D9 r- ttrm:
halt

pr:
3 F+ h5 J7 n) \9 M4 @- b4 J    messg/'只能在1—256之间输入,重新输入图层号'
( U, x/ L+ F7 H# o; G9 p0 c    jump/A101:

沈才曾

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

hnfmhggxx

沈才曾 发表于 2015-5-26 08:12
6 r- K4 s9 G$ `; |+ y) [" `3 ?+ Q改过的代码，你编译下试试看就知道了，增加了DO语句

$ s  G6 Q2 ]  Q9 p) P% z! d大哥能不能帮忙改下这个手动分层的，在分完前一个层时自动将现在选的放到加一层去呢，比如刚将一个产品放到1层，现在选一下就把他放到2层去，谢谢！