代码请求

Matersammichman · 发表于 2006-10-10 11:46:24

我正在寻找可以用来列出dwg文件中包含的所有图像的代码。建议？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Maverick® · 发表于 2006-10-10 11:55:45

建议1

T.Willey · 发表于 2006-10-10 12:03:49

在图中查找“ACAD _图像_字典”(字典)，然后对所有图像进行遍历。

Fatty · 发表于 2006-10-11 04:19:12

你在找什么吗？

copy

Option Explicit
Sub GetImages()
Dim objDict As AcadDictionary
Set objDict = ThisDrawing.Dictionaries("ACAD_IMAGE_DICT")
If objDict.Count  0 Then
Dim oEntity As AcadEntity
Dim objImage As AcadRasterImage
Dim tmpArr(1) As Variant
Dim imageColl As New Collection
For Each oEntity In oSset
Set objImage = oEntity
tmpArr(0) = objImage.Name
Debug.Print tmpArr(0)
tmpArr(1) = objImage.ImageFile
Debug.Print tmpArr(1)
imageColl.Add tmpArr
Erase tmpArr
Next
Else
MsgBox "No images inserted."
End If
End If
oSset.Delete
Set oSset = Nothing
End Sub

脂肪
~'J'~

Matersammichman · 发表于 2006-10-11 08:40:59

感谢编码方面的帮助。
我尝试了您的代码，但它卡住了:
Set objDict = ThisDrawing。字典(" ACAD _图像_字典")
它为什么这样做？

Bryco · 发表于 2006-10-11 10:15:50

尝试下面这样的东西，字典有点时髦，因为它也可以是一个xrecord，所以typeof是一个很好的方法，可以直接得到它
Dim oDics 作为
AcadDictionary Dim oDic As AcadDictionary
Dim oD

Set oDics = ThisDrawing.Dictionaryaries
For Each oD In oDics
如果 TypeOf oD 是 AcadDictionary 那么
如果 oD.Name = “ACAD_IMAGE_DICT” 则
Set oDic = oD