[求助]：从天正3到天正6 求教高手

皓皓

原来我天正的好多快捷键 和 AUTOLISP应用程序 “天正3里面开关轴线，门窗等很多一两个键的快捷命令” 怎么换到天正6里一样能用 （有4个AUTOLISP应用程序）


原来是在C:\Tangent\Tch14\SYS/ACAD.MNL  里面设置的  可以自动加载
这是原来的
原天正3的AUTOLISP
(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)

(defun C:gd () ;电梯插入
        (_@Ld"Lift")
        (c:lift)

(defun C:gf () ;自动扶梯
        (_@Ld"Autostr")
        (c:autostr)

(defun C:gc () ;单侧剖断
        (_@Ld"Sttool")
        (c:ssect)

(defun C:gg () ;双侧剖断
        (_@Ld"Sttool")
        (c:dsect)

(defun C:ge () ;楼梯擦除
        (_@Ld"Sttool")
        (c:sterase)

;######### 工具  ######

(defun C:tv () ;单线剖断
        (_@Ld"Tool1")
        (c:dsect2)

(defun C:af () ;箭头绘制
        (_@Ld"Otherdim")
        (c:arrow)

(defun C:tk () ;楼板方洞
        (_@Ld"Proof")
        (c:sqrhole)
(defun C:to () ;楼板圆洞
        (_@Ld"Proof")
        (c:cirhole)
(defun C:tc () ;图元改层
        (_@Ld"Chg_Lyr")
        (c:chg_Lyr)

(defun C:te () ;隐去图层
        (_@Ld"T_Util")
        (c:off_Lyr)

(defun C:tz () ;轴线开关
        (_@Ld"Axtool")
        (c:axonf)

(defun C:tr () ;当前图层
        (_@Ld"T_Util")
        (c:set_Lyr)

(defun C:tf () ;消除重线
        (_@Ld"Ini_Lyr")
        (_@Ld"Rduplac")
        (Rduplac(Ini_Lyr))

(defun C:ts () ;连接线段
        (_@Ld"Tool1")
        (c:join)
)

(defun C:tx () ;交点打断
        (_@Ld"Tool1")
        (c:ptbreak)
)

(defun C:tq () ;虚实变换
        (_@Ld"Chdash")
        (c:chdash)
)

(defun C:ff () ;层填图案
        (_@Ld"Allfill")
        (c:layfill)
)

(defun C:fe () ;填充擦除
        (_@Ld"Allfill")
        (c:flerase)
)

(defun C:tw () ;矩形剪裁
        (_@Ld"Detail")
        (c:dwgcut1)
)

(defun C:tl () ;线图案库
        (_@Ld"Lnptlib")
        (c:lnptlib)
)

(defun C:tli () ;图案入库
        (_@Ld"Lnptlib")
        (c:lnptins)
)

(defun C:tb () ;图块输出
        (_@Ld"Bltool")
        (c:blkout)
)

(defun C:bv () ;炸不等块
        (_@Ld"3dscale")
        (c:blk3d)
)

(defun C:tbi () ;图块入库
        (_@Ld"Bltool")
        (c:blkinput)
)

(defun C:tbt () ;图块剪裁
        (_@Ld"Dwgcut")
        (c:blkcut)
)

(defun C:tg () ;图元过滤
        (_@Ld"ssgetf")
        (c:ssgetf)
)

(defun C:tt () ;图层选取
        (_@Ld"sel_lyr")
        (c:sel_lyr)
)

(defun C:tbb () ;临时炸开
        (_@Ld"Paper")
        (c:tmpexp)
)

(defun C:tbn () ;图层选取
        (_@Ld"Paper")
        (c:resexp)
)

(defun C:bl () ;出图比例
        (_@Ld"chscl")
        (c:chscl)
)



(defun C:ty () ;虚实变换
        (_@Ld"chdash")
        (c:chdash)
)


;#########  标高  图示  ############

(defun C:bf() ;单注标高
        (_@Ld"Eledim")
        (c:eledim)
)
(defun C:ba () ;上下翻转
        (_@Ld"Dimsec")
        (c:eleud)
)
(defun C:bs () ;左右翻转
        (_@Ld"Dimsec")
        (c:elelr)
)
(defun C:bg () ;连注标高
        (_@Ld"Eledim1")
        (c:cedim)
)

(defun C:bt () ;半径标注
        (_@Ld"Otherdim")
        (c:dimrd)
)



;##############      洁具   ##########

(defun C:eb () ;洁具布置
        (_@Ld"Lvtry")
        (c:lvtry)
)

(defun C:ec () ;洁具替换
        (_@Ld"Lvtry1")
        (c:lvcha)
)

(defun C:ed () ;隔断隔板
        (_@Ld"Lvtry2")
        (c:lvsep)
)

(defun C:ei () ;厨厕入库
        (_@Ld"Lvtry1")
        (c:lvinlib)
)

(defun C:et () ;隔断裁剪
        (_@Ld"Lvtry2")
        (c:lvseptrm)
)

(defun C:ew () ;洁具擦除
        (_@Ld"Lvtool")
        (c:lverase)
)


;##############3   标注  #################

(defun C:df () ;逐点标注
        (_@Ld"Dimtp")
        (c:dimmp)
)

(defun C:dc () ;门窗标注
        (_@Ld"Dimwd")
        (c:dimwdf)
)

(defun C:dr () ;标注纵移
        (_@Ld"Dmtool")
        (c:dmver)
)

(defun C:dw () ;标注平移
        (_@Ld"Dmtool")
        (c:dmhor)
)

(defun C:dt () ;标注断开
        (_@Ld"Dmtool")
        (c:dmdiv)
)

(defun C:da () ;标注合并
        (_@Ld"Dmtool")
        (c:dmmge)
)

(defun C:de () ;标注擦除
        (_@Ld"Dmtool")
        (c:dmerase)
)

(defun C:dv () ;自动上调
        (_@Ld"Dimadj")
        (c:dim_Up)
)

(defun C:dv () ;标注平移
        (_@Ld"Dmtool")
        (c:dmhor)
)



(defun C:ddd () ;改尺寸值
        (_@Ld"Dmtool")
        (c:chval)
)

(defun C:ddf () ;恢复原值
        (_@Ld"Dmtool")
        (c:recov)
)


(defun C:ddr () ;修复尺寸
        (_@Ld"Dmtool1")
        (c:dmresc)
)


(defun C:dda () ;文字翻转
        (_@Ld"Dmtool1")
        (c:txtrev)
)

(defun C:d1()
        (command "dimexo" 0)
        (command "dim1" "update" )
)
(defun C:d3()
        (command "dim1" "update" )
)
(defun c:d2()
        (command "dim1" "newtext")
)
(defun C:DH ()
        (command "dim1" "home")
)

;##########  文字  #########

(defun C:qq () ;文字标注
        (_@Ld"Words")
        (c:wrinput)
)
(defun C:qt () ;字型参数
        (_@Ld"Getfont")
        (c:getfont)
)
(defun C:qd () ;文字编辑
        (_@Ld"Words")
        (c:ddedit1)
)
(defun C:qw () ;横排汉字
        (_@Ld"Words")
        (c:hword)
)
(defun C:qe () ;竖排汉字
        (_@Ld"Words")
        (c:vword)
)
(defun C:qg () ;统一字高
        (_@Ld"Words")
        (c:hword1)
)
(defun C:qa () ;自动排版
        (_@Ld"Wet")
        (c:wet)
)
(defun C:ar () ;空间转换
        (_@Ld"paper")
        (c:tlmd01)
)
(defun C:ad () ;窗口切换
        (_@Ld"paper")
        (c:mpspace)
)
(defun C:aw () ;定义窗口
        (_@Ld"paper")
        (c:mkwin)
)
(defun C:as () ;比例重置
        (_@Ld"paper")
        (c:updbl)
)
(defun C:ae () ;删除窗口
        (_@Ld"paper")
        (c:nfwindow)
)
(defun C:av () ;实插图框
        (_@Ld"title")
        (c:title)
)
(defun C:se () ;初始设置
        (setvar "osmode" 695)
        (setvar "pickbox" 9)