求助!关于删除层分类问题

zhong14120

ug删除层分类太麻烦了,要点一个删一个.
) K7 ?& a  f0 D. g% M- ]我想做一个开发,一次全部删除.但没找到合适的命令
9 V7 G/ H. J. E/ o1 J+ a方法一:
& T4 Z, F1 h1 s  E( W# G想查询层的组名,再用catd删除.?如何通过层查询到组名?(这个也没找到)
: Y- G. r0 g! C7 V或全部组名删除,但CATD又不接受ALL...
, L9 S4 d8 h) D5 m- k方法二:
给出组名匹配,如果有就删除,没有就结束.
我找到相应的命令CATV
CATV/'name'[,LAYER,layers,CNT,count][,DESCR,'description'][,IFERR,label:]
可惜无功而返,望知道用法的朋友给个指示.

5 k) l- D' D  }# g6 YCATV我试过的二种
CATV/'分类名'   (分类名是填的是分类的名称,但不知道返回值是什么东东??)
CATV/'分类名,层范围.一维数组,CNT,数量     (这个也是语法没通过,错在那呢?)

: l, h. F# F3 A; e( \[ 本帖最后由 zhong14120 于 2008-1-21 19:18 编辑 ]

-KASA-

循环层名，分别删除。
- T. r0 O$ N. d/ z3 lINEXTN / 12
# F- y3 \# S- E+ H3 O0 U2 ~L10:
/ s1 I) `7 W: I9 h) X! N9 F- bOBJ=NEXTN,IFEND,L20:
DELET / OBJ
JUMP/L10:
L20:

zhong14120

谢谢指点!虽然你写的格式不对但我已解决了十分感谢!

zhong14120

STRING/OBJ(20)

! t, j/ d8 t- U# S4 `, ^6 [" ], B7 H3 n
INEXTN / 12
# a' b7 ?8 j0 rL10:
% w4 W9 O% U8 [7 `, lOBJ=NEXTN/IFEND,L20:
catd / OBJ,IFERR,L10:
2 Z; P4 g5 N8 G6 a5 UJUMP/L10:
. `- [6 X# V6 B6 G/ Z3 ^( M/ d! @
L20:
7 |& T: e- ~9 B9 ^9 W
trm:
halt

, m! a3 g9 m1 }0 S& U
源码以示感谢