;    =============================================
;    |             CAD图层初始化软件（结构）      |
;    |         版本: V1.0   作者: wxh5330         |
     |            　                              |
;    =============================================
;
;  JGTC.lsp
;  对CAD绘图的环境进行初始化，建立必要的图层及字体
;  2010/01/27


(defun c:JGTC ( / 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" "S_AXIS" "c" "1" "" "lt" "DOTE" "" "");                  轴线
  (command "layer" "m" "AXIS_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          轴线标注
  (command "layer" "m" "AXIS_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");         轴线编号

  (command "layer" "m" "COLU" "c" "11" "" "lt" "CONTINUOUS" "" "");             柱子
  (command "layer" "m" "COLU_DASH" "c" "11" "" "lt" "DASH" "" "");              柱子虚线
  (command "layer" "m" "COLU_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");          构造柱
  (command "layer" "m" "COLU_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          柱子编号
  (command "layer" "m" "COLU_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");        柱子填充

  (command "layer" "m" "BEAM" "c" "4" "" "lt" "DASH" "" "");                    主梁
  (command "layer" "m" "BEAM_CON" "c" "4" "" "lt" "CONTINUOUS" "" "");          主梁实线
  (command "layer" "m" "BEAM_TEXT_HOR" "c" "2" "" "lt" "CONTINUOUS" "" "");     主梁水平文字
  (command "layer" "m" "BEAM_TEXT_VER" "c" "100" "" "lt" "CONTINUOUS" "" "");   主梁竖直文字
  (command "layer" "m" "BEAM_WA" "c" "21" "" "lt" "DASH" "" "");                连梁
  (command "layer" "m" "BEAM_WA_CON" "c" "21" "" "lt" "CONTINUOUS" "" "");      连梁实线
  (command "layer" "m" "BEAM_WA_TEXT" "c" "100" "" "lt" "CONTINUOUS" "" "");    连梁文字

  (command "layer" "m" "BEAM_SE" "c" "144" "" "lt" "DASH" "" "");                次梁
  (command "layer" "m" "BEAM_SE_CON" "c" "144" "" "lt" "CONTINUOUS" "" "");      次梁实线
  (command "layer" "m" "BEAM_SE_TEXT_HOR" "c" "100" "" "lt" "CONTINUOUS" "" ""); 次梁水平文字
  (command "layer" "m" "BEAM_SE_TEXT_VER" "c" "2" "" "lt" "CONTINUOUS" "" "");   次梁竖直文字

  (command "layer" "m" "S_WALL" "c" "94" "" "lt" "CONTINUOUS" "" "");           砼墙
  (command "layer" "m" "S_WALL_DASH" "c" "94" "" "lt" "DASH" "" "");            砼墙虚线
  (command "layer" "m" "S_WALL_DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");        砼墙标注
  (command "layer" "m" "S_WALL_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");      砼墙编号
  (command "layer" "m" "S_WALL_HATCH" "c" "8" "" "lt" "CONTINUOUS" "" "");      砼墙填充
  (command "layer" "m" "S_WALL_BR" "c" "52" "" "lt" "CONTINUOUS" "" "");        砖墙
  (command "layer" "m" "S_WALL_BR_DASH" "c" "52" "" "lt" "DASH" "" "");         砖墙虚线

  (command "layer" "m" "STAIR" "c" "3" "" "lt" "CONTINUOUS" "" "");             楼梯
  (command "layer" "m" "STAIR_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");        楼梯文字
  (command "layer" "m" "STAIR_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");         楼梯标注

  (command "layer" "m" "FLOOR" "c" "124" "" "lt" "CONTINUOUS" "" "");           楼板
  (command "layer" "m" "FLOOR_DOWN_REIN" "c" "15" "" "lt" "CONTINUOUS" "" "");  楼板正筋
  (command "layer" "m" "FLOOR_DOWN_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");    楼板正筋标注
  (command "layer" "m" "FLOOR_DOWN_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");    楼板正筋文字

  (command "layer" "m" "FLOOR_UP_REIN" "c" "1" "" "lt" "CONTINUOUS" "" "");     楼板负筋
  (command "layer" "m" "FLOOR_UP_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");      楼板负筋标注
  (command "layer" "m" "FLOOR_UP_NUM" "c" "100" "" "lt" "CONTINUOUS" "" "");    楼板负筋文字

  (command "layer" "m" "HOLE" "c" "190" "" "lt" "CONTINUOUS" "" "");            洞口
  (command "layer" "m" "HOLE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          洞口标注
  (command "layer" "m" "HOLE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          洞口编号
  (command "layer" "m" "HOLE_HATCH" "c" "9" "" "lt" "CONTINUOUS" "" "");        洞口填充

  (command "layer" "m" "BASE" "c" "4" "" "lt" "CONTINUOUS" "" "");              基础
  (command "layer" "m" "BASE_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          基础标注
  (command "layer" "m" "BASE_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          基础编号

  (command "layer" "m" "PILE" "c" "150" "" "lt" "CONTINUOUS" "" "");            桩
  (command "layer" "m" "PILE_DASH" "c" "150" "" "lt" "DASH" "" "");             桩虚线

  (command "layer" "m" "STEEL" "c" "60" "" "lt" "CONTINUOUS" "" "");            钢结构实线
  (command "layer" "m" "STEEL_DASH" "c" "60" "" "lt" "DASH" "" "");             钢结构虚线

  (command "layer" "m" "BOLT" "c" "6" "" "lt" "CONTINUOUS" "" "");              螺栓
  (command "layer" "m" "BOLT_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          螺栓标注
  (command "layer" "m" "BOLT_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          螺栓编号

  (command "layer" "m" "WELD" "c" "40" "" "lt" "CONTINUOUS" "" "");             焊缝
  (command "layer" "m" "WELD_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          焊缝标注
  (command "layer" "m" "WELD_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          焊缝文字

  (command "layer" "m" "BURY" "c" "140" "" "lt" "CONTINUOUS" "" "");            预埋件
  (command "layer" "m" "BURY_DIM" "c" "3" "" "lt" "CONTINUOUS" "" "");          预埋件标注
  (command "layer" "m" "BURY_NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");          预埋件编号

  (command "layer" "m" "TAB" "c" "7" "" "lt" "CONTINUOUS" "" "");               表格线
  (command "layer" "m" "TAB_TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");          表格文字

  (command "layer" "m" "REIN" "c" "1" "" "lt" "CONTINUOUS" "" "");              钢筋
  (command "layer" "m" "TEXT" "c" "2" "" "lt" "CONTINUOUS" "" "");              文字
  (command "layer" "m" "DIM" "c" "7" "" "lt" "CONTINUOUS" "" "");               尺寸
  (command "layer" "m" "NUM" "c" "2" "" "lt" "CONTINUOUS" "" "");               编号
  (command "layer" "m" "FRAME" "c" "7" "" "lt" "CONTINUOUS" "" "");             图框
  (command "layer" "m" "THICK" "c" "7" "" "lt" "CONTINUOUS" "" "");             粗线
  (command "layer" "m" "THIN" "c" "7" "" "lt" "CONTINUOUS" "" "");              细线

  (command "layer" "m" "EDGE" "c" "100" "" "lt" "CONTINUOUS" "" "");            轮廓线
  (command "layer" "m" "NOTE" "c" "100" "" "lt" "CONTINUOUS" "" "");            文字说明
  (command "layer" "m" "HATCH2" "c" "254" "" "lt" "CONTINUOUS" "" "");          图例填充

  (command "layer" "m" "CHANGE" "c" "6" "" "lt" "CONTINUOUS" "" "p" "n" "" ""); 修改、修订（不打印）
  (command "layer" "m" "NO_PLOT" "c" "14" "" "lt" "CONTINUOUS" "" "p" "n" "" "");打印线（不打印）

   
;  (command "style" "STANDARD" "tssdeng,hztxt" "0" "0.7" "0" "" "" ""); 
;  (command "style" "TSSD" "tssdeng,hztxt" "0" "0.7" "0" "" "" "");      建立 TSSD 字体


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

;    (command "osmode" "191"); 打开端点,中点,中心,象限点,交点及垂点捕捉

;    (command "units" "2" "2" "" "" "" "")

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

(alert " 结构图层初始化完成，请打开【图层管理器】查看结果 
\n 如需修改默认图层生成参数，可编辑Program\\JGTC.lsp")

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

    (setq msg_ "\n**** 结构图层初始化 V1.0 20100127 **** 指令: JGTC ****\n")
    (prompt msg_)
    (prin1)