[VBA函数]：不用爱心币也能有快捷键！

空壳

刚才有个设计院的快捷键要1个币，我想说：
楼主！你的那一个爱心币要的太容易了吧！
你的命令也不全啊！有立面的吗？有剖面的吗？
我的快捷键可是有的！那我的.lsp发上来得要几个币啊？！！！

(defun C:Slt ();平面楼梯_工具
        (menucmd"s=stair_")
)
(defun C:Sm ();平面门窗
        (menucmd"s=WINDOW_")
)
(defun C:SZ ()柱子
        (menucmd"s=column_")
)
(defun C:SX ()轴线
        (menucmd"s=axis_")
)
(defun C:SBh ()标号
        (menucmd"s=mkno_")
)
(defun C:Stk ()图库
        (menucmd"s=ddbl_")
)
(defun C:SD ()尺寸
        (_@ld"dimadj")
        (menucmd"s=dim_")
)
(defun C:Swz ()文字
        (menucmd"s=words_")
)

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

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

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

(defun C:Xj () ;减去轴线
        (_@Ld"Axtool1")
        (C:axdel)
)

(defun C:XX () ;直线轴网
        (_@Ld"Axis")
        (C:desaxis)
        (princ "\n快捷键,让我有飞一般的感觉,我喜欢!")
    (princ)
)
(defun C:XD () ;轴网标注
        (_@Ld"Dimax")
        (C:dimax)
        (princ "\n好!快的感觉不加快,什么键?")
    (princ)
)

(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:Xt () ;轴线剪裁
        (_@Ld"Axtool")
        (C:axtrim)
)

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

(defun C:wd () ;双线直墙
        (_@Ld"Dwall")
        (c:dwall)
      (princ "\n看什么看！加了墙线好看多了！")
   (princ)
)

(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:wb () ;加保温层
        (_@Ld"HPWALL")
        (c:hpwallp)
)

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


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

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

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

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

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

(defun C:zc () ;柱子参数
        (_@Ld"col1")
        (c:chacol)
)

(defun C:zk () ;柱子空心
        (_@Ld"col1")
        (c:clline)
)

(defun C:zs () ;柱子实心
        (_@Ld"cltool1")
        (c:clsolid)
)

(defun C:ze () ;柱子擦除
        (_@Ld"column")
        (c:cerase)
)

(defun C:zh () ;柱子替换
        (_@Ld"column")
        (c:colcha)
)

;#########  窗  ###########
(defun C:cc () ;顺序插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdin)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)
(defun C:cz () ;中心插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdinc)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)
(defun C:cd () ;垛宽插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdinb)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)
(defun C:mcx () ;门窗选型
        (_@Ld"clwall")
        (c:wdstyle)
      (princ "\n你懂什么！萝卜，白菜各有所爱！我就是喜欢这样的！")
   (princ)
)

(defun C:fc () ;顺序插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdin)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)
(defun C:fz () ;中心插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdinc)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)

(defun C:fd () ;垛宽插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdinb)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)

(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:ytl () ;直线阳台
        (_@Ld"balcon1")
        (c:lbalcony)
)

(defun C:ytc () ;弧线阳台
        (_@Ld"balcon1")
        (c:abalcony)
)

(defun C:yte () ;阳台擦除
        (_@Ld"balcon1")
        (c:baerase)
)

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

(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:sss () ;手工散水
        (_@Ld"outside")
        (c:outlnm)
)

(defun C:ssz () ;自动散水
        (_@Ld"outside")
        (c:outlna)
)

(defun C:tjp () ;平面台阶
        (_@Ld"step")
        (c:step)
)

(defun C:pdp () ;平面坡道
        (_@Ld"slope")
        (c:slope)
)

;######### 屋顶  ######

(defun C:wms () ;绘屋顶线
        (_@Ld"3droof")
        (c:roflnm)
)

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

(defun C:mj () ;房间面积
        (_@Ld"Tool1")
        (c:rmarea)
)

(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:twd () ;多边剪裁
        (_@Ld"Detail")
        (c:dwgcut2)
)

(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:tbo () ;图块输出
        (_@Ld"Bltool")
        (c:blkout)
)


(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:eN () ;洁具布置
        (_@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:dj () ;等距注窗
        (_@Ld"Dimwd")
        (c:dimwdt)
)

(defun C:dq () ;墙厚标注
        (_@Ld"Dimw")
        (c:dimw)
)

(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)
)

;##########  立面  #########

(defun C:lp () ;调入平面
        (_@Ld"elev")
        (c:elefloor)
)

(defun C:lf () ;立面标层
        (_@Ld"elemk2")
        (c:elemk2)
)

(defun C:lq () ;立面幕墙
        (_@Ld"elerpw")
        (c:elerpw)
)

(defun C:lb () ;插标准层
        (_@Ld"elev")
        (c:eleins)
)

(defun C:ls () ;门窗参数
        (_@Ld"elev")
        (c:elechw)
)







(defun C:lt () ;立面窗套
        (_@Ld"elwct")
        (c:elwct)
)

(defun C:lmc () ;插入门窗
        (_@Ld"elwct")
        (c:einsw)
)

(defun C:ly () ;门窗原形
        (_@Ld"window3")
        (c:ewdpl)
)

(defun C:lmr () ;门入库
        (_@Ld"ewdtool")
        (c:edipt)
)

(defun C:lcr () ;窗入库
        (_@Ld"ewdtool")
        (c:ewipt)
)

(defun C:lqz () ;弃造门窗
        (_@Ld"ewdtool")
        (c:ewabt)
)


(defun C:liy () ;单插阳台
        (_@Ld"ebl")
        (c:einsbl)
)

(defun C:lyy () ;阳台原形
        (_@Ld"ebltool")
        (c:eblpl)
)

(defun C:lyr () ;阳台入库
        (_@Ld"ebltool")
        (c:eblipt)
)

(defun C:ldp () ;生成地坪
        (_@Ld"eletool")
        (c:ebase)
)

(defun C:lcg () ;改变层高
        (_@Ld"eletool")
        (c:echah)
)

(defun C:lwd () ;立面屋顶
        (_@Ld"eroof")
        (c:eroof)
)



(defun C:ltj () ;立面台阶
        (_@Ld"estep")
        (c:estep)
)



(defun C:lys () ;雨 水 管
        (_@Ld"ewdtool")
        (c:drain)
)


把以上这些存成mark.lsp， 在acadr14.lsp里调用，或在天正的\sys\acad.mnl里调用都行。
还有就是要说的，立面和剖面我还没有加全，没有那么多的时间了，其实别的命令用的也应该不是很多了。也有的不一定好使哦！呵呵

eachy

是命令好还是加个菜单导航条好？

hszt71

这是用于天正建筑哪个版本的？

boy_tian

这是3.0的，个人觉得快捷键还是自己定义的好，符合自己的习惯记得快。

萧山

是呀，不过用5。0的话，就可以自己设了

mh0801

没办法   我想要更多的积分