社区 › VB › 列出图纸集中的绘图

quamper 发表于 2008-2-6 15:13:58

列出图纸集中的绘图

我正在寻找一种方法来列出引用到工作表集中的图纸。有人有任何他们想分享的片段吗？
提前感谢！
**** Hidden Message *****

超级晕 发表于 2008-2-6 15:49:36

我不确定如何通过VBA访问Sheetset的东西，因为我从来不需要这样做。
但我曾经需要一个工作表集中文件的简单列表，并且能够通过从工作表集管理器中选择“发布对话框”来获得它。在发布对话框中，您可以将该列表保存为*。DSD文件，这是一个列出DWG、布局名称等的纯文本文件...该文件的格式应该很容易以编程方式解析。

属于我们的雨天 发表于 2008-2-8 15:57:27

Matt
我正在努力更改工作表集中的自定义属性，但我遇到了可以帮助您的代码
尝试：
确保您设置了对类型库
AcSMComponents1.0 Type Library
'This example lists all sheet sets
Sub Example_SSListAll()
    Dim sheetset As New sheetset
    ' Get the sheet set manager
    Dim ssMgr As New AcSmSheetSetMgr
    Dim dbIter As IAcSmEnumDatabase
    Dim db As IAcSmDatabase
   
    Set dbIter = ssMgr.GetDatabaseEnumerator
   
    Set db = dbIter.Next
    Do While Not db Is Nothing
      ThisDrawing.Utility.Prompt ("----------BEGIN------------" & vbCrLf)
      sheetset.List db
      Set db = Nothing
      Set db = dbIter.Next
      ThisDrawing.Utility.Prompt ("---------- END ------------" & vbCrLf)
    Loop
   
    Set dbIter = Nothing
    Set ssMgr = Nothing
   
    ThisDrawing.Application.Update
End Sub


的引用，此外，任何有关自定义属性的帮助将不胜感激！
马克

冠ゑ山 发表于 2008-2-8 16:37:34

马特
我已经把床单组计数和其他一些方法扔在那里，但是有一件事确实引起了我的注意。
我要打印他的pdf，看看我能找到什么
谢谢！
我发布的方法是否帮助您满足了您的需求？
马克

查看完整版本: 列出图纸集中的绘图