导航:首页 > 程序命令 > 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加载宏命令相关的资料

热点内容
安卓机为什么会死机 浏览:845
python模块交叉编译 浏览:363
单片机音乐盒程序 浏览:607
网页源码改语言 浏览:358
三相电表容量算法 浏览:833
linuxoracle查看sid 浏览:751
什么的服务器快 浏览:764
程序员看不起编程 浏览:764
python网页状态码 浏览:17
10分的硬币算法 浏览:772
vmwareesxi服务器怎么关闭 浏览:782
我的世界手机命令方块循环 浏览:305
冷凝式压缩机加水吗 浏览:750
少儿编程培训方法 浏览:807
树莓派怎么切换国内服务器 浏览:707
java两个数的差 浏览:919
编程语言性能排行 浏览:336
深度学习推理引擎编译 浏览:515
cdr怎么转pdf格式 浏览:405
蒙商信用卡app里怎么修改收货地址 浏览:332