移入图层程序

疯行天下

( T3 o8 K* F6 [; `
% r% U0 B! P& @/ Ventity/obj      $$定义实体
; q% q" Y& u5 Rnumber/sln      $$定义实体数量
4 v: w- Y; L/ Qnumber/col      $$定义颜色数量
( D& D  E) W4 J, U5 mnumber/lyr      $$定义层数量
data/col,1      $$赋颜色数量值
data/lyr,1      $$赋图层数量值
entity/box(1000)

4 ~' S, @; t1 l# {: F$$手动分层
9 |: X& {* [* ?$ [. B+ Q
8 L' T$ }2 r8 X& k3 A4 CA10:
7 |9 V; Q' b  `. P3 h1 ~+ ^' u+ ?. I    ident/'选择要改变图层的实体',box,cnt,m,resp
    jump/A10:,trm:,,,resp

A101:
    param/'输入新图层','图层号=',n,resp
( V: Q2 n" R( H+ D" B    jump/A10:,trm:,,,resp
0 w9 T" v6 z; _6 c$ l1 ]
    if/n<=0 or n>256,jump/pr:
   

    &layer(box(m))=n    $$修改多选功能
4 r! I" d) m) S3 B  `    jump/A10:

pr:
    messg/'只能在1—256之间输入,重新输入图层号'
# I& L8 L, t1 e2 P    jump/A101:

; e/ i  [2 o# q* h: ^8 xtrm:
halt

+ |" N1 H1 Y/ A# m4 c; J& |问题点：1
8 V( R& p$ t' l! x" z4 t( w' j以上为为部分程序
. N2 D7 i! i0 [' s选取多个体但是只有一个实体被移入图层
未找到问题点在哪里
将 ： &layer(box(m))=n
0 G7 ^  l% @, d( K1 O* g/ M0 m改成：&layer(box(1..m))=n
4 E; ~3 H( |- T6 ?就出问题
5 f# h. Q  k% V问题点：2
请教个手工选取自动分层外挂
* v! c7 r$ m) q  O8 o/ h. @  
手动选取需要移入层的多个实体  然后手工输入起始层
  P( [- Z; t. z# u将实体自动移入单个层（一个实体一个层）
, u. X8 d. V" S+ r/ R4 U2 Y3 W$ W& j

baton520

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

XIAObo595219317

代码不对哦   都编译不了

dhdfsjnsdnjsns

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

沈才曾

entity/box(5000)
NUMBER/n

  a2 h: v% w4 t/ d- r2 k$$手动分层

" `; c4 w) @1 c. _& IA10:
i=1
  @: s5 D. x$ ?8 H% {: w' W$ ^$ T    ident/'选择要移动的实体'+istr(n),box,cnt,m,resp
    jump/A10:,trm:,,,resp

A101:
    param/'输入图层号','图层号=',n,resp
9 K9 g9 y9 B9 f4 O, u* _: M    jump/A10:,trm:,,,resp

A102:
    if/n<=0 or n>256,jump/pr:
  h$ K9 H9 Q* S' G2 w* ~A103:
( Y: A8 l( Z- W2 t; ^do/E30:,i,1,m

    &layer(box(i))=n    $$修改多选功能
E30:
1 r7 T/ c$ j$ q7 G    jump/A10:

3 f% R, k' v, d4 W; C4 gtrm:
halt
# ~. [2 P0 x, C! l2 k
( j; u! x" A" r1 R3 W4 Wpr:
8 C& Y8 g( H3 G3 Z$ s+ V8 ?    messg/'只能在1—256之间输入,重新输入图层号'
* U, Q8 |$ r: J, X5 I; s4 A    jump/A101:
3 d3 Y  O1 g  C, R* I

沈才曾

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

hnfmhggxx

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

. y7 [% U9 A! U5 l3 |* \4 n大哥能不能帮忙改下这个手动分层的，在分完前一个层时自动将现在选的放到加一层去呢，比如刚将一个产品放到1层，现在选一下就把他放到2层去，谢谢！