【转帖】做自已的cad启动程序
 

做自已的cad启动程序
做自已的cad启动程序
cad启动并加载我们c#写的dll的方式有很多，如注册表编辑，添加lisp命令行等，但要实现独立的程序操控方式我还是建议用vb6.0写个启动程序哈，这样就有我们的桌面快捷方式，图标等完全独立于cad的东东而且还可以方便的做到cad版本控制，最终还可以用vb6打包我们的应用程序发布与卸载！
dim acadapp as acadapplication
dim acadoc as acaddocument
on error resume next
set acadapp = getobject(, "autocad.application")
if err then
err.clear
set acadapp = createobject("autocad.application") '根据情况这里可以设置不同的版本，在这里是指所有版本
if err then
msgbox "autocad不存在或autocad启动发生错误！请关闭后再打开本软件！"
unload me
exit sub
end if
end if
acadapp.visible = false
acadapp.activedocument.sendcommand "filedia" & vbcr & "0" & vbcr
acadapp.activedocument.sendcommand "netload" & vbcr & app.path & "\mydll.dll" & vbcr '在这里加载我们的mydll.dll文件
acadapp.activedocument.sendcommand "filedia" & vbcr & "1" & vbcr
acadapp.zoomall
acadapp.windowtop = true
acadapp.visible = true
unload me