移入图层程序

疯行天下

entity/obj      $$定义实体
number/sln      $$定义实体数量
number/col      $$定义颜色数量
number/lyr      $$定义层数量
6 a0 Q/ Y9 W0 o- {7 K# C& @3 Ldata/col,1      $$赋颜色数量值
data/lyr,1      $$赋图层数量值
$ U" I: w2 N- Tentity/box(1000)

$$手动分层
* g4 U- h8 m8 o  O% u
) ?+ v* t# E  O7 k4 `. o" _" X  bA10:
    ident/'选择要改变图层的实体',box,cnt,m,resp
& O& Z8 M: c: K+ l) b    jump/A10:,trm:,,,resp
/ ]" g$ E% ?9 W( f5 o, N; @
A101:
    param/'输入新图层','图层号=',n,resp
' l. A7 W7 b" H    jump/A10:,trm:,,,resp
8 H* u) Y% I6 p* I
    if/n<=0 or n>256,jump/pr:
   

    &layer(box(m))=n    $$修改多选功能
    jump/A10:

pr:
1 T  X" F& s' O- T  \( C' p    messg/'只能在1—256之间输入,重新输入图层号'
    jump/A101:
6 s# @$ }5 i2 ]
  K' O- D7 h9 K+ \5 c1 ttrm:
. V6 c6 Y; N. ?* ?halt

问题点：1
* r2 q  s+ L( `$ o以上为为部分程序
1 A4 E5 `7 j) r* J4 b9 n. K选取多个体但是只有一个实体被移入图层
未找到问题点在哪里
将 ： &layer(box(m))=n
改成：&layer(box(1..m))=n
% h/ g& t6 K4 `8 p  \  J就出问题
问题点：2
1 }& ~- f% P& o! q请教个手工选取自动分层外挂
7 f; C! k0 v! Q- G1 y  
手动选取需要移入层的多个实体  然后手工输入起始层
将实体自动移入单个层（一个实体一个层）

baton520

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

XIAObo595219317

代码不对哦   都编译不了

dhdfsjnsdnjsns

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

沈才曾

entity/box(5000)
NUMBER/n
/ K) z5 c7 o( F& }% d
8 M* ?/ Q3 L4 ?* Q$$手动分层

A10:
i=1
* V3 Y- G; i- [  O/ q8 e! I6 s* l- R% b    ident/'选择要移动的实体'+istr(n),box,cnt,m,resp
    jump/A10:,trm:,,,resp

* R. ~$ Q; O6 `) j0 M* X- T3 D$ HA101:
5 q& m5 ]' t' E( X5 x5 R& l% i    param/'输入图层号','图层号=',n,resp
* P, z5 t- Y/ m" Q7 J& g8 p5 F    jump/A10:,trm:,,,resp

A102:
    if/n<=0 or n>256,jump/pr:
A103:
3 ]. @' R) A' L7 W% y0 T; S% Fdo/E30:,i,1,m
( [2 c- @2 n  j$ ^2 w
/ X- b9 A1 b' j7 P! G  t    &layer(box(i))=n    $$修改多选功能
9 g3 b% c6 z: I1 x3 n# {2 _$ QE30:
    jump/A10:

: {( N/ S1 D0 h  strm:
# u7 t6 {" s( B- O' qhalt

# e, @. O6 q+ q$ l) w6 Spr:
( X* u( l0 K- z* }2 F! Z/ H    messg/'只能在1—256之间输入,重新输入图层号'
8 o5 e# r2 d, w7 w/ n    jump/A101:

沈才曾

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

hnfmhggxx

沈才曾 发表于 2015-5-26 08:12
6 I% E# H9 n( q# P改过的代码，你编译下试试看就知道了，增加了DO语句

大哥能不能帮忙改下这个手动分层的，在分完前一个层时自动将现在选的放到加一层去呢，比如刚将一个产品放到1层，现在选一下就把他放到2层去，谢谢！