[VBA程序]：最近写的一些对尺寸标注和线形快速编辑的程序

gjliang

这是这两天写的一个快速修改替换尺寸文本（前两天已经贴过了，现在又改了一下），有增加了文本旋转、文本高度修改、线形比例快速调整、修改线宽、修改文本高宽比例的程序，另外用lisp写了快捷调用方式，包含了vba开发的一些内容，希望能对刚入门的朋友有些帮助，不过要是对各位工作效率有一些提高的话那就更好了：）
具体使用方法：把附件中的edit.dvb文件下载后放在cad的surpport目录里，把下面这段代码粘贴到acad.mnl文件里就可以了。

(princ "\快速编辑程序，制作:thanksway")
(princ)
(vl-load-com)
;;自动加载VBA程序的函数
(defun AutoVBALoad (cmdname project macro)
  (eval
    (list 'defun
  (read (strcat "C:" cmdname))
  nil
  (list
    'vl-vbarun
    (strcat
      project
      "!"
      (if macro
macro
cmdname
      )
    )
  )
  (princ)
    )
  )
)
(AutoVBALoad "DE" "edit.dvb" "DE")

(AutoVBALoad "DR" "edit.dvb" "DR")

(AutoVBALoad "DH" "edit.dvb" "DH")

(AutoVBALoad "lc" "edit.dvb" "lc")

(AutoVBALoad "cw" "edit.dvb" "cw")

(AutoVBALoad "ts" "edit.dvb" "ts")

然后启动cad就可以使用了。快捷命令：de—标注文本快速替换
dr—标注文本旋转    dh—标注文本字高修改  lc—线形比例快速修改  cw—线宽快速修改（看看吧，能修改都可以修改了）
ts—单行文字的高宽比例调整
就这么多了，希望能对朋友们有一定的帮助，也希望得到大家的无私帮助！
（注：下载后的文件用winrar3.0以上版本程序解压）