[分享]：天正3.0或6.0都可以用的命令缩写

心梦相随

在天正3.0或6.0都可以用。其他的可以自己添加了。
(if(member"_@LD"(atoms-family 1))(progn
(defun wf:vr()(if(and(null(wcmatch(getvar"acadver")"*14*"))
(=(getvar"cprofile")"TArch6"))t nil))
(defun c:da()(if(wf:vr)(command"_T61_TDim3")
(progn(_@Ld"dimlw")(c:dimlwt)))(princ))
(defun c:dw()(if(wf:vr)(command"_T61_TDimWall")
(progn(_@Ld"dimw")(c:dimw)))(princ))
(defun c:ww();;墙线
(if(wf:vr)(command"_T61_TWall")(progn
(_@Ld"dwall")(c:dwall)))(princ))
(defun c:wm();;墙移动
(if(wf:vr)(command"_T61_TWallThick")(progn
(_@Ld"Wltool3")(c:wlmove)))(princ))
(defun c:qq()(_@Ld"Thickl")(c:latopli))
(defun c:qe()(_@Ld"Thickl")(c:pltola))
(defun c:wd()(_@Ld"clwall")(c:wdstyle))
(defun c:wb()
(if(wf:vr)(command"_T61_TStatOp")(progn
(_@Ld"wdtable")(c:wdtable)))(princ))
(defun c:we()
(if(wf:vr)(command"_T61_TOpening")(progn
(menucmd"P0=wfg.P101")(menucmd"P0=*")))(princ))
(defun c:wr(/ opt)(cond
((wf:vr)(initget"W Z N")(setq opt(getkword"\nW-内外翻转/Z-左右翻转/N-名称复位<退出>:"))
(cond((= opt "W")(command"_T61_TMirWinIO"))((= opt "Z")(command"_T61_TMirWinLR"))
((= opt "N")(c:T61_TResetLabPos))))
(t(initget"W Z N")(setq opt(getkword"\nW-内外翻转/Z-左右翻转/N-名称翻转<退出>:"))
(_@Ld"Wdtool")(cond((= opt "Z")(c:wdrevx))((= opt "W")(c:wdrevy))
((= opt "N")(c:narevy)))))(princ))
(defun c:wf(/ opt)
(if(wf:vr)(command"_T61_TDoorLine")(progn
(initget"D W B M N S E")(setq opt(getkword"\nD-换平面门/W-换平面窗/B-单侧变宽/M-两侧变宽/N-门窗名称/S-加门口线/E-门窗删除<退出>:"))
(cond((= opt "D")(_@Ld"Wdtool")(c:dcha))
((= opt "W")(_@Ld"Wdtool")(c:wcha))
((= opt "B")(_@Ld"Wdtool1")(c:cdwc))
((= opt "M")(_@Ld"Wdtool1")(c:cdws))
((= opt "N")(_@Ld"Wdtool")(c:wdname))
((= opt "S")(_@Ld"Wdtool4")(c:adddrln))
((= opt "E")(_@Ld"Wderase")(c:wderase))
)))(princ))
(defun c:ws(/ opt)(cond
((wf:vr)(initget"F S")(setq opt(getkword"\nF-立面门窗修改/S-立面门窗插入<退出>:"))
(cond((= opt "F")(c:T61_TEWinLib))((= opt "S")(command"_T61_TEWPara"))))
(t(initget"D W F S")
(setq opt(getkword"\nD-换立面门/W-换立面窗/F-立面门窗修改/S-立面门窗插入<退出>:"))
(cond((= opt "D")(_@Ld"Ewdtool")(c:edcha))((= opt "W")(_@Ld"Ewdtool")(c:ewcha))
((= opt "F")(_@Ld"Elev")(c:elechw))((= opt "S")(_@Ld"elwct")(c:einsw))
)))(princ))
(defun c:lp(/ opt)
(if(wf:vr)(command"_T61_TLinePattern")(progn
(initget"R")(setq opt(getkword"\nR-绘制防水线/<绘制线图案>:"))
(cond((= opt "R")(_@Ld"Linepat")(c:protw))
(T(_@Ld"Lnptlib")(c:lnptlib)))
))(princ))
(defun c:pp(/ opt)(initget"S")
(setq opt(getkword"\nS-小剖切号/<大剖切号>:"))
(cond((= opt "S")(if(wf:vr)(command"_T61_TSection1")
(progn(_@Ld"Otherdim")(c:sectnum2))))
(T(if(wf:vr)(command"_T61_TSection")(progn(_@Ld"Otherdim")(c:sectnum1)))
))(princ))
(defun c:lv(/ opt)(initget"C")
(setq opt(getkword"\nC-盥洗设备复制/<盥洗设备插入>:"))(_@Ld"lvtry")
(cond((= opt "C")(c:lvscren))(T(c:lvtry)))(princ))
(defun c:wc(/ opt)
(cond((wf:vr)(initget"S")(setq opt(getkword"\nS-围区裁剪/<围区复制>:"))
(if(= opt "S")(command"_T61_Tclip")(c:T61_TCutDrawing)))
(t(initget"B S")(setq opt(getkword"\nB-图块裁剪/S-围区裁剪/<围区复制>:"))(_@Ld"dwgcut")
(cond((= opt "B")(c:blkcut))((= opt "S")(c:dwgcut))
(T(c:dwgcut0)))))(princ))
(defun c:t1(/ opt)
(if(wf:vr)(command"_T61_TRStair")(progn
(initget"D")(setq opt(getkword"\nD-梯段双剖线/<梯段插入>:"))
(if(= opt "D")(progn(_@Ld"Sttool")(c:dsect))
(progn(_@Ld"Tstair")(c:tstair)))
))(princ))
(defun c:yn()
(if(wf:vr)(command"_T61_TIndexDim")(progn
(_@Ld"Otherdim")(c:indexdim)))(princ))
(defun c:ys()
(if(wf:vr)(command"_T61_TIndexSec")(progn
(_@Ld"Otherdim")(c:indexnum2)))(princ))
(defun c:bb()
(if(wf:vr)(c:T61_tkw)(progn
(_@Ld"bltool")(c:blkout)))(princ))
(defun c:tk()(_@Ld"Title")(c:title))
(defun c:mj()(_@Ld"rmarea")(c:rmarea))
(defun c:dimz(/ s)(setq s(entsel"\n选取转变为DOTE的图层<退出>:"))
(if(and s(null(tblsearch "LAYER" "DOTE")))(progn(setq s(cdr(assoc 8(entget(car s)))))
(command"_.rename" "layer" s "Dote")(_@ld"dimax")(c:dimax)
(command"_.rename" "layer" "Dote" s)))(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;天正六;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if(wf:vr)(progn
(defun c:v()(command"_T61_TObjEdit"))
(defun c:cc()(princ"\n对象查询编辑<退出>:")(command"_T61_TObjinfo"))
(defun c:rt(/ fl)
(initget "W T D")(setq fl(getkword"\nM-多行文字/<单行文字>:"))
(cond((= fl "M")(command"_T61_TMText"))(t(command"_T61_TText")))(princ))
(defun c:bgn(/ opt)(initget"M")(setq opt(getkword"\nM-连注标高/<单注标高>:"))
(if(= opt "M")(command"_T61_TMElev")
(command"_T61_TElev"))(princ))
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
))(princ)