另类模型空间可视图层列表

sinommw

我在CAD实践中，常常要用到图层管理器，但调用起来觉得有些麻烦，往往是通过在图层点取来进行图层切换与操作。
故欲求一LISP，(主要是用于新建文件，在模板中利用故有图层作图）实现以下功能：

1.指定某一命令，如TL（图层列表）；
2.执行命令，将当前图纸中所有图层按顺序绘出（截图所示），线型为PL，排列间距500，线长度1000，线后标出图层名，字高3.5；所绘线与文字均与图层颜色一致；
3.为便于查找，定位第一个图层示意线基点为0，0，0（也可以是最后一个图层定为0点），或是提示指定位置。

不知可否实现？
谢谢大家参与！