如何调用cad系统的打开文件对话框？乐筑天下

adison 发表于 2005-3-28 12:35:00

如何调用cad系统的打开文件对话框？

如何调用cad系统的打开文件对话框？可以同时选择多个文件。

alin 发表于 2005-3-28 22:28:00

http://discussion.autodesk.com/thread.jspa?messageID=381741

7lord 发表于 2007-8-3 16:12:00

没找到答案，望高人指点

yadg0 发表于 2007-8-6 09:14:00

在vba菜单中,工程->组件中加入microsoft common dialog,你再查查microsoft common dialog的用法.

alin 发表于 2007-8-6 09:54:00

This control is not licensed for all computers

青青20 发表于 2007-8-9 09:08:00

也可以使用ＡＰＩ，在ＣＡＤ VBA二次开发中写的非常详细．

七敏发表于 2007-11-9 19:54:00

问题是，我的VBA中根本没有“工程”这个菜单项啊？

waustin 发表于 2010-6-17 18:48:00

将filedia值设置为1。

洋葱老爹 发表于 2010-6-20 20:33:00

新建一个用户窗体,在该窗体上添加一个按键控件,一个列表控件,一个通用对话框控件.然后添加如下代码,即可实现多文件选取,并将选取的文件的文件名添加到列表控件中:
Private Sub cmd_添加_Click()
Dim I As Integer
Dim Y As Integer
Dim Z As Integer
Dim FileNames() As String

On Error GoTo errHandle
With comDlg
   .CancelError = True
   .MaxFileSize = 32767
   '&H4    隐藏只读复选框
   '&H200    允许多重选择
   '&H8000 不能具有只读属性，也不能在写保护目录下面
   '&H80000 类似资源管理器的打开
   '&H100000 不要间接引用外壳链接（也称作快捷方式）
   .flags = &H4 Or &H200 Or &H8000 Or &H80000 Or &H100000
   .DialogTitle = "选择图形文件"
   .Filter = "图形文件(*.dwg)|*.dwg|所有文件(*.*)|*.*"
   .fileName = ""
   .ShowOpen
End With
comDlg.fileName = comDlg.fileName & Chr(0)'这些文件名是用空字符Chr(0)分隔符，而不是空格分隔符隔开

Z = 1
For I = 1 To Len(comDlg.fileName)
   'InStr函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
   '语法 InStr(起点位置, string1, string2)
   I = InStr(Z, comDlg.fileName, Chr(0))
   If I = 0 Then Exit For
   ReDim Preserve FileNames(Y)
   'Mid函数，返回 Variant (String)，其中包含字符串中指定数量的字符。语法 Mid(string, start[, length])
   FileNames(Y) = Mid(comDlg.fileName, Z, I - Z)
   Z = I + 1
   Y = Y + 1
Next I
'向列表框中添加对象
Dim count As Integer
count = Lst_文件表.ListCount
If Y = 1 Then
   Lst_文件表.AddItem FileNames(Y - 1), count
Else
   For I = 1 To Y - 1
         FileNames(I) = FileNames(0) & "\" & FileNames(I)
         Lst_文件表.AddItem FileNames(I), I - 1 + count
   Next I
End If
errHandle:
End Sub

页: [1]

乐筑天下's Archiver

如何调用cad系统的打开文件对话框？