找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 733|回复: 6

[求助]:vb能否打开并显示dgn文件??

[复制链接]
发表于 2004-8-19 19:05:33 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
通过引用microstation的Objects Library可以在vb中打开dgn文件

能否接着在vb中将打开的dgn文件显示出来??

望高手解答,不胜感激!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-8-20 08:44:58 | 显示全部楼层
应该可以的!
你打算在VB哪里显示呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-8-20 09:39:12 | 显示全部楼层
先在模块中确认打开哪些dgn
Sub savefun()
Dim modalHandler As New SaveAsModalHand
AddModalDialogEventsHandler modalHandler
FileName1 = Dir(FilePathV8, vbNormal)
    Do While FileName1 <> ""        
        CadInputQueue.SendCommand "DIALOG OPENFILE "   
        FileName1 = Dir
    Loop
RemoveModalDialogEventsHandler modalHandler
End Sub
然后响应对话框事件
Implements IModalDialogEvents
Private Sub IModalDialogEvents_OnDialogClosed(ByVal DialogBoxName As String, ByVal DialogResult As MsdDialogBoxResult)

End Sub

Private Sub IModalDialogEvents_OnDialogOpened(ByVal DialogBoxName As String, DialogResult As MsdDialogBoxResult)

    If DialogBoxName = "Open" Then
        CadInputQueue.SendCommand "c,fileList_setFilterCmd *.dgn"

        CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd " & FilePathV8

        CadInputQueue.SendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd " & FileName1

    '   Remove the following line to let the user close the dialog box.
        DialogResult = msdDialogBoxResultOK

    End If
End Sub
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-8-20 13:35:49 | 显示全部楼层
cmx_stone:没看出哪一部分是用来显示DGN文件的内容的呀?!
你可能误解了1楼的意思了,不是用VB来列出DGN文件名而是想在VB的Form中显示DGN元素!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-8-20 18:07:08 | 显示全部楼层
如果只是想在VB的FORM上显示DGN图形而不作编辑,那是可以实现的.因为用DGN的Element.GetPicture方法可以把Element的图像显示在VB的FORM上的Image控件上.你试试看吧.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-8-22 19:52:32 | 显示全部楼层
但是我查看ms v8的vba帮助,里面写的是
What is not in the Automation Object Model?
The Automation Object Model in MicroStation does not include the following capabilities and features:

Drawing design elements into an ActiveX control
Displaying a MicroStation view as an ActiveX control
Plotting, other than Windows printing
Creating MicroStation menu entries
Controlling visualization


而且在vb里面用对象浏览器查看的时候,ms的object libarery里面刚好没有image
该怎么办呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-6-16 09:46:44 | 显示全部楼层
不是说的很清楚了么??不行!!不过你可以用VB来封装倒十可以的!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 20:02 , Processed in 0.412744 second(s), 43 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表