谈天正快捷键设置

(defun C:Sg ();平面楼梯_工具
(menucmd"s=stair_")
)



(defun C:Sm ();平面门窗
(menucmd"s=WINDOW_")
)
(defun C:SZ ()
(menucmd"s=column_")
)
(defun C:SX ()
(menucmd"s=axis_")
)
(defun C:SB ()
(menucmd"s=mkno_")
)
(defun C:SW ()
(menucmd"s=ddbl_")
)
(defun C:SD ()
(_@ld"dimadj")
(menucmd"s=dim_")
)
(defun C:SQ ()
(menucmd"s=words_")
)

(defun C:Sv ();布图
(menucmd"s=PAPER_")
)


;######### 轴线 ###########

(defun C:XA () ;增加轴线
(_@Ld"Axtool1")
(C:axadd)
)

(defun C:XX () ;直线轴网
(_@Ld"Axis")
(C:desaxis)
)
(defun C:XD () ;轴网标注
(_@Ld"Dimax")
(C:dimax)
)

(defun C:XF () ;逐点轴标
(_@Ld"Dimax")
(C:dimax1)

)
(defun C:XC () ;多轴变号
(_@Ld"Axtool")
(C:maxcha)

)
(defun C:XR () ;轴号外偏
(_@Ld"Axtool1")
(C:axout)
)
(defun C:XE () ;取消外偏
(_@Ld"Axtool1")
(C:axin)
)

;######### 直墙 ###########

(defun C:wd () ;双线直墙
(_@Ld"Dwall")
(c:dwall)
)

(defun C:wg () ;双线隔墙
(_@Ld"Dwall")
(c:gdwall)
)

(defun C:ww () ;当前墙层
(_@Ld"Clwall")
(c:clwall)
)

(defun C:wc () ;墙线修补
(_@Ld"Wltool2")
(c:wmend)
)

(defun C:wt () ;双线裁剪
(_@Ld"Wtrim")
(c:wtrim)
)

(defun C:ws () ;墙线移动
(_@Ld"Wltool3")
(c:wlmove)
)

(defun C:we () ;墙线擦除
(_@Ld"Wltool")
(c:wlerase)
)

(defun C:wf () ;墙端封口
(_@Ld"Wltool2")
(c:wlend)
)

;######### 柱 ###########


(defun C:zd () ;方柱插入
(_@Ld"Column")
(c:fzh)
)

(defun C:zr () ;圆柱插入
(_@Ld"Column")
(c:yzh)
)

(defun C:zc () ;单插圆柱
(_@Ld"Column")
(c:yzh1)
)

(defun C:zt () ;交线处理
(_@Ld"cltool")
(c:cxl)
)

;######### 窗 ###########
(defun C:cc () ;顺序插窗
(_@Ld"Window0")
(Progn(Setq _wdins 1)(Princ))
(c:wdin)
)
(defun C:cz () ;中心插窗
(_@Ld"Window0")
(Progn(Setq _wdins 1)(Princ))
(c:wdinc)
)
(defun C:cd () ;垛宽插窗
(_@Ld"Window0")
(Progn(Setq _wdins 1)(Princ))
(c:wdinb)
)
(defun C:cf () ;门窗选型
(_@Ld"clwall")
(c:wdstyle)
)

(defun C:fc () ;顺序插门
(_@Ld"Window0")
(Progn(Setq _wdins 2)(Princ))
(c:wdin)
)
(defun C:fz () ;中心插门
(_@Ld"Window0")
(Progn(Setq _wdins 2)(Princ))
(c:wdinc)
)

(defun C:fd () ;垛宽插门
(_@Ld"Window0")
(Progn(Setq _wdins 2)(Princ))
(c:wdinb)
)

(defun C:ccw () ;换平面窗
(_@Ld"Wdtool")
(c:wcha)
)

(defun C:ccd () ;换平面门
(_@Ld"Wdtool")
(c:dcha)
)

(defun C:cr () ;任意翻转
(_@Ld"Wdtool")
(c:wdreva)
)

(defun C:cn () ;门窗名称
(_@Ld"Wdtool")
(c:wdname)
)

(defun C:cv () ;名称翻转
(_@Ld"Wdtool")
(c:narevy)
)

(defun C:cx () ;名称复位
(_@Ld"Wdtool")
(c:nahome)
)

(defun C:cf () ;造门窗表
(_@Ld"Wdtable")
(c:wdtable)
)

(defun C:cw () ;门窗复制
(_@Ld"Wdcopy")
(c:wdcopy)
)

(defun C:cm () ;门窗移动
(_@Ld"Wdtool1")
(c:mdw)
)

(defun C:ca () ;门窗变宽
(_@Ld"Wdtool1")
(c:cdwc)
)

(defun C:cs () ;单侧变宽
(_@Ld"Wdtool1")
(c:cdws)
)

(defun C:ce () ;门窗擦除
(_@Ld"Wderase")
(c:wderase)
)

(defun C:ct () ;增加窗套
(_@Ld"Wdtool2")
(c:addmdbt)
)

(defun C:cte () ;消去窗套
(_@Ld"Wdtool2")
(c:delmdbt)
)

;############ 楼梯 #########

(defun C:gt () ;两跑楼梯
(_@Ld"Tstair")
(c:tstair)
)

(def