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

zhong14120

ug删除层分类太麻烦了,要点一个删一个.
9 k8 T& Q+ P/ j* ^3 R我想做一个开发,一次全部删除.但没找到合适的命令
. `/ c9 x+ ]. |3 y" b+ X' e! k方法一:
" V* T8 f: T5 p7 n+ x( Y想查询层的组名,再用catd删除.?如何通过层查询到组名?(这个也没找到)
9 w& B0 Y# i5 a或全部组名删除,但CATD又不接受ALL...
方法二:
给出组名匹配,如果有就删除,没有就结束.
我找到相应的命令CATV
6 k7 _9 L1 g) {9 ^3 o# T" DCATV/'name'[,LAYER,layers,CNT,count][,DESCR,'description'][,IFERR,label:]
: n8 d3 F) d# O* \; I3 i. g可惜无功而返,望知道用法的朋友给个指示.

CATV我试过的二种
. _# W5 W8 ?. T# {: Y: BCATV/'分类名'   (分类名是填的是分类的名称,但不知道返回值是什么东东??)
CATV/'分类名,层范围.一维数组,CNT,数量     (这个也是语法没通过,错在那呢?)

8 q6 |3 R9 u6 u. d3 p, [[ 本帖最后由 zhong14120 于 2008-1-21 19:18 编辑 ]

-KASA-

循环层名，分别删除。
INEXTN / 12
L10:
* e& l+ p) X+ g' p4 \OBJ=NEXTN,IFEND,L20:
3 m2 F6 h3 n7 A: T1 TDELET / OBJ
JUMP/L10:
: d# M, m- P( R; d8 m% N% r, HL20:

zhong14120

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

zhong14120

STRING/OBJ(20)
. l+ y) O% ^9 _" Z
( a" m, G9 ~$ D( S( \
INEXTN / 12
+ T* F  S! Y4 S! e* f' I% AL10:
OBJ=NEXTN/IFEND,L20:
catd / OBJ,IFERR,L10:
. G9 L5 {% m8 j3 n1 \4 K3 rJUMP/L10:

L20:

/ H- ~. L# C5 Ntrm:
halt
* L  L. ^6 m' {3 G

0 n  U' @  P. O/ ~; Y9 e& S/ i源码以示感谢