[编程申请]：哪位有批量建立图层的LISP源程序？

jinsong-liao

在专业图纸中一般需建立大量图层以提高绘图效率，也给其他专业带来方便，
但建立许多图层本身也是繁琐的工作，通常各专业的图层比较确定和稳定，
要是能有这样的工具，岂不是好事？
哪位有心人有吗？

wxh5330

;    =============================================
;    |             CAD图层初始化软件              |
;    |         版本: V0.1   作者: wxh5330       　|
;    =============================================
;
;  cs.lsp
;  对CAD绘图的环境进行初始化，建立必要的图层及字体
;  2004/09/21


(defun c:cs ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称
    (setq orig_blip (getvar "blipmode")); 获取系统变数的初始值
    (setq orig_cmd (getvar "cmdecho"))
    (setq orig_osnap (getvar "osmode"))
    (setq orig_layer (getvar "clayer"))

    (setvar "blipmode" 0); 设置系统变数
    (setvar "cmdecho" 0)
    (setvar "osmode" 0)

  (command "layer" "m" "DOTE" "c" "1" "" "lt" "CENTER" "" "");            轴线
  (command "layer" "m" "AXIS" "c" "7" "" "lt" "CONTINUOUS" "" "");        轴圈及一、二道

尺寸线
  (command "layer" "m" "DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");         第三道尺寸、内

部尺寸
  (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASH" "" "");              梁线
  (command "layer" "m" "BEAM-CON" "c" "4" "" "lt" "CONTINUOUS" "" "");    实线梁层
  (command "layer" "m" "BEAM-TXT" "c" "2" "" "lt" "CONTINUOUS" "" "");    梁标注
  (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" "");        板钢筋
  (command "layer" "m" "REIN-TXT" "c" "2" "" "lt" "CONTINUOUS" "" "");    板钢筋标注
  (command "layer" "m" "COLUMN" "c" "2" "" "lt" "CONTINUOUS" "" "");      柱、剪力墙
  (command "layer" "m" "COL-NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");     柱、剪力墙编号
  (command "layer" "m" "GZ" "c" "3" "" "lt" "CONTINUOUS" "" "");          构造柱层
  (command "layer" "m" "GZ-NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");      构造柱编号
  (command "layer" "m" "DASH" "c" "7" "" "lt" "DASH" "" "");              虚线层
  (command "layer" "m" "HOLE" "c" "3" "" "lt" "CONTINUOUS" "" "");        厨卫预留洞口管

井
  (command "layer" "m" "CHANGE" "c" "6" "" "lt" "CONTINUOUS" "" "");      修改
  (command "layer" "m" "HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");       竖向构件填充
  (command "layer" "m" "HATCH2" "c" "9" "" "lt" "CONTINUOUS" "" "");      其他填充
  (command "layer" "m" "MV" "c" "6" "" "lt" "CONTINUOUS" "" "");          动态视图
  (command "layer" "m" "ROOF" "c" "140" "" "lt" "CONTINUOUS" "" "");      屋面轮郭、分水

线
  (command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");      轮廓线及降板边

缘线
  (command "layer" "m" "FRAME" "c" "7" "" "lt" "CONTINUOUS" "" "");       图框及目录层
  (command "layer" "m" "NODE" "c" "7" "" "lt" "CONTINUOUS" "" "");        节点索引线及引

出线
  (command "layer" "m" "NODE-TXT" "c" "2" "" "lt" "CONTINUOUS" "" "");    节点索引文字说

明
  (command "layer" "m" "PUB-DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");     标高符号
  (command "layer" "m" "PUB-TXT" "c" "2" "" "lt" "CONTINUOUS" "" "");     标高数值
  (command "layer" "m" "BASE" "c" "3" "" "lt" "CONTINUOUS" "" "");        基础、承台
  (command "layer" "m" "PILE" "c" "2" "" "lt" "CONTINUOUS" "" "");        桩

  (command "style" "TSSD" "tssdeng,tssdchn" "0" "0.8" "0" "" "" "");        建立 TSSD 字

体


    (setvar "blipmode" orig_blip); 还原系统变数的设定值
    (setvar "cmdecho" orig_cmd)
    (setvar "osmode" orig_osnap)
    (setvar "clayer" orig_layer)

    (command "osnap" "end,mid,cen,qua,int,per"); 打开端点,中点,中心,象限点,交点及垂点捕

捉

    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0
    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0
    (command "filletrad" "0"); 将fillet命令的半径R值设为0

    (prin1)
); cs.lsp命令结束

    (setq msg_ "\n***** 图层及字体初始化 ***** 指令: cs *****\n")
    (prompt msg_)
    (prin1)

boy_jun

的确比较好用，不过我把图层名称改为中文的就不能用了，不知道是什么回事

xyp1964

试试签名栏下的“专业图层设置”程序。