导航:首页 > 程序命令 > cad加载宏命令

cad加载宏命令

发布时间:2024-03-28 08:54:17

⑴ CAD怎么运行宏

一般运行宏的三种办法:

1、输入vbarun,然后选择宏(首先使用vbaload装载DVB文件);

2、使用vde进入编辑环境,然后运行宏。

直接在命令栏内输入宏名称即可,就像输入命令一样。

1、首先将程序(即DVB文件)与acad2006doc.lsp放在同一本目录下;

2、添加代码:

需要把以下代码放进acad200xdoc.lsp(其中x表示版本,我的电脑上装的是2006,所以是acad2006doc.lsp)

代码如下:

;;自动加载VBA程序的函数
(defun AutoVBALoad (app cmdliste / qapp)
(vl-load-com)
(setq qapp (strcat "\"" app "\""))
(mapcar
'(lambda (cmd / nom_cmd dot nodotcmd)
(progn
(setq dot (vl-string-search "." cmd))
(if dot
(setq nodotcmd (substr cmd (+ dot 2)))
(setq nodotcmd cmd)
)
(setq nom_cmd (strcat "C:" nodotcmd))
(eval
(read (strcat
"(defun " nom_cmd "(/ app)"
"(if (setq app(fdvbfile " qapp "))"
"(vl-vbarun (strcat app \"!" cmd "\"))"
"(nodvbfile " qapp "))"
"(princ))"
)))))
cmdliste
)
nil
)
(defun fdvbfile (app)
(if (not (findfile app))
(if (not (findfile (strcat app ".dvb"))) nil (strcat app ".dvb")) app)
)
(defun nodvbfile (filename)
(princ (strcat "\n文件 " filename "(.dvb) 在搜索路径文件夹中未找到。" ))
(princ "\n请检查支持文件的安装,然后重试。")
(princ)
)

然后在acad200xdoc.lsp中紧接着输入如下代码,当然,这个是可以扩展的,这里这个例子是帮助明经通道论坛上的panwei5301写的代码。

;;自动加载VBA程序 (AutoVBALoad "程序名称"'("宏名称" "模块名称.宏名称"))
(AutoVBALoad "临时DVB"'("lianxi01" "lianxi01"))

panwei5301请注意:这里的临时DVB是DVB的文件名,两个lianxi01都是宏名称,当然你可以这样写:

(AutoVBALoad "临时DVB"'("lianxi01" "模块1.lianxi01"))

因为你的lianxi01是放在模块1中的。

3、直接运行程序的名称即可。

阅读全文

与cad加载宏命令相关的资料

热点内容
51单片机入门自学 浏览:548
如何看步数有同步服务器 浏览:10
单片机扫描实验代码 浏览:721
惠州抖音app推广平台怎么引流 浏览:758
如何再网络设置里面添加服务器 浏览:191
陶瓷pdf 浏览:672
选股指标源码最新 浏览:577
arm嵌入式linuxpdf 浏览:477
本田裂行的压缩比 浏览:24
ps色彩调色命令 浏览:592
宽带的服务器地址怎么看 浏览:423
vb如何给文件加密 浏览:215
python柱状图显示前十 浏览:63
文件包加密是什么意思 浏览:500
南方加密狗多少钱一只 浏览:839
php100张恩民视频 浏览:640
安卓手机复制门禁卡加密 浏览:754
有哪些程序员特有的技能 浏览:399
痞幼资源包解压密码 浏览:699
pdf版本的ppt 浏览:176