正在加载...
0人已收藏
1人已打赏
0人已点赞
分享
全部回复(2 )
主题
回复
粉丝
CAD下载及教程
52.08 万条内容 · 665 人订阅
阅读下一篇
下载地址:http://www.shequ.shejis.com/nt_bbs/Dispbbs.asp?ID=389667
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复(2 )
只看楼主 我来说两句抢地板通常的做法是:
在AUTO.dvb模块1或ThisDrawing中添加如下代码:
Sub RunUserForm1()
UserForm1.Show
End Sub
新建一个文件acad.lsp,添加如下代码:
(defun c:run()
(vl-load-com)
(vl-vbaload(findfile "AUTO.dvb"))
(vl-vbarun "RunUserForm1")
(princ)
)
将acad.lsp和AUTO.dvb放在cad支持目录下。
在命令行输入run(此命令名称自行定义),即可启动你的窗体。
回复 举报
回复 举报