[编程申请]：谁有关于层这样的LISP？

thebestofbest

效果图行业最急需的lisp  

请高手写一个LISP或者谁有这样的LISP：
用一条命令快速
整理选定的cad不需要的各种填充，各种标注图层，以便导入3DSMAX~~

专业行业最急需最实用的~~
谢谢大侠些~~

Command: lp
Select object: layer
Current layer:  "WALL"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: s
Enter layer name to make current <WALL>: AXIS_TEXT Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]:
Command: layer
Current layer:  "AXIS_TEXT"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]: of
Enter name list of layer(s) to turn off: * Really want layer "AXIS_TEXT" (the
CURRENT layer) off? <N> Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock]:
Command: nil
Command: *Cancel*
Command: '_zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window] <real time>: _e