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

ldbxt

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

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

望高手解答,不胜感激!

tpmao

应该可以的！
你打算在VB哪里显示呢？

cmx_stone

先在模块中确认打开哪些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

MicroStation迷

cmx_stone:没看出哪一部分是用来显示DGN文件的内容的呀？！
你可能误解了1楼的意思了，不是用VB来列出DGN文件名而是想在VB的Form中显示DGN元素！！

nnwjchen

如果只是想在VB的FORM上显示DGN图形而不作编辑,那是可以实现的.因为用DGN的Element.GetPicture方法可以把Element的图像显示在VB的FORM上的Image控件上.你试试看吧.

ldbxt

但是我查看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
该怎么办呢?

tpmao

不是说的很清楚了么？？不行！！不过你可以用VB来封装倒十可以的！！