[呼吁]热切期待"对象均布与对齐工具"改进版!

yzxgwl

dispbbs.asp?boardID=16&ID=22926&page=1

mccad

最近工作确实很忙。
你自己可以在acad200xdoc.lsp中加入以下代码：

2. (vl-load-com)
3. ;;自动加载VBA程序的函数
4. (defun AutoVBALoad (cmdname project macro)
5.    (eval
6.        (list 'defun
7.      (read (strcat "C:" cmdname))
8.      nil
9.      (list
10.          'vl-vbarun
11.          (strcat
12.              project
13.              "!"
14.              (if macro
15.    macro
16.    cmdname
17.              )
18.          )
19.      )
20.      (princ)
21.        )
22.    )
23. )
24. ;;自动加载VBA程序
25. (AutoVBALoad "ao" "alignentity.dvb" "AlignEnt")
26. (AutoVBALoad "eo" "alignentity.dvb" "ArrangeEnt")

(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)        )    ) ) ;;自动加载VBA程序 (AutoVBALoad "ao" "alignentity.dvb" "AlignEnt") (AutoVBALoad "eo" "alignentity.dvb" "ArrangeEnt")

yzxgwl

谢谢管理员! 呵呵!又可以很好的用这个工具了!

xlmx-whj

谢谢，也解决了我的问题。

neatmud

不行。
起码在2006+天正下不行。

longer1000

mccad 发表于 2004-7-10 21:00
最近工作确实很忙。
你自己可以在acad200xdoc.lsp中加入以下代码：

2012不能加载？明总怎么回事

yzxgwl

希望能更新能在64位cad中使用！