[求助]关于lisp建层

wengsg

以下是我编的建层程序，在CAD中运行后，图层不能按我建的顺序排列。怎样才能按我编的顺序排列？请求高手帮忙解决！ ;;;专业图层 TC.lsp
(defun c:TC ()
(COMMAND "-PURGE" "A" "" "n")
;|(command "layer" "m" "坐标线" "c" "6" ""
"l" "ACAD_ISO02W100" "" "lw" "0.00"
"" ""
)
(command "layer" "m"
"方里网、内图廓及测量控制点" "c"
"3" "" ""
)|;
(command "layer" "m" "边框-边框(内图框)"
"c" "141" "" "lw"
"0.15" "" ""
)
(command "layer" "m" "边框(其它轮廓)" "c"
"253" "" "lw" "0.15" ""
""
)
(command "layer" "m" "图例" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "图幅基本信息" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "河流" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "湖泊或水体" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "交通" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "境界" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "等高线" "c" "7" "" "" "lw" "0.15" "")
(command "layer" "m" "高程点" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "地貌类型" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "居民地" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "城镇(政府所在地)"
"c" "3" "" "lw"
"0.15" "" ""
)
(command "layer" "m" "特殊地物" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "地理底图信息" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "基础地质" "c" "7" "" "" "lw" "0.15" "")
(command "layer" "m" "地层分区" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "地层界线" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "断裂" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "地层产状" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "水文地质" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "地下水类型" "c" "7" "" "" "lw" "0.15" "")
(command "layer" "m" "地下水富水性" "c"
"7" "" "lw" "0.15" ""
""
)
(command "layer" "m" "地下水径流模数" "c"
"253" "" "lw" "0.15" ""
""
)
(command "layer" "m" "地下水水质" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "河流" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "水文地质特征点" "c"
"3" "" "lw" "0.15" ""
""
)
(command "layer" "m" "水文地质特征界线"
"c" "3" "" "lw"
"0.15" "" ""
)
(command "layer" "m" "地下水利用规划" "c"
"7" "" "lw" "0.15" ""
""
)
(command "layer" "m" "水文地质专题图" "c"
"7" "" "" "lw" "0.15"
""
)
(command "layer" "m" "综合水文地质柱状图"
"c" "7" "" "lw"
"0.15" "" ""
)
(command "layer" "m" "地层层序" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "地层岩性描述" "c"
"3" "" "lw" "0.15" ""
""
)
(command "layer" "m" "河流" "c" "253" "" "lw" "0.15" "" "")
(command "layer" "m" "水文地质剖面图" "c"
"3" "" "lw" "0.15" ""
""
)
(command "layer" "m" "地层分布" "c" "3" "" "lw" "0.15" "" "")
(command "layer" "m" "其它镶图" "c" "7" "" "lw" "0.15" "" "")
(command "layer" "m" "视口" "c" "7" "" "p" "n" "" "")
(command "layer" "m" "底图" "c" "7" "" "p" "n" "" "")
(command "-style" "HT" "黑体" 10.0 1.0 0 "N" "N")
(command "-style" "ST" "宋体" 2.5 1.0 0 "N" "N")
;;(command "-style" "楷体_GB2312" "楷体_GB2312" "" "" "" "" "")
;(command "draworder"
(command "ortho" "on")
(setvar "pellipse" 1) ;创建椭圆形状为多段线
;;打开正交
(prompt
"\n\r 程序命令:TC "
)
(Princ)
)

citykunan

图层的排列是根据层名的，要按照你的顺序排列，建议你在层名前加上1,2,3,4...... 如：1_图例 2_图幅基本信息
3_河流
4_湖泊或水体
5_交通

wengsg

还有其它办法吗?


我不想在图层名前面加1、2、3、4……或用A、B、C、D……等。

meflying

这个意见估计只能到AUTODESK公司去提了

wengsg

有没有这个变量?