SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 讨论：SOLIDWORKS能否把工程图图幅提取到表格 [打印本页]

作者: hotxjz 时间: 2019-8-2 19:39
标题: 讨论：SOLIDWORKS能否把工程图图幅提取到表格
SolidWorks工程图的图幅能否被单独提取出来？比如我若要统计一套图中那些是A2/A3/A4，要怎样操作或者是否有相应的插件工具能实现？

作者: 80879601 时间: 2019-8-3 03:55
可以通过VBA实现,参考程序:
'获取图幅大小函数

'无输入参数
'返回图幅枚举代码，1-14

Public Function papersize()
Dim swApp                As SldWorks.SldWorks
Dim swDraw                As SldWorks.DrawingDoc
Dim swSheet                As SldWorks.Sheet
Dim vSheetProps          As Variant
Dim bFirstAng             As Boolean
Dim bRet                   As Boolean

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc
Set swSheet = swDraw.GetCurrentSheet

' Get current sheet properties

vSheetProps = swSheet.GetProperties

' Current sheet properties
'
' Debug.Print "Name = " + swSheet.GetName
' Debug.Print "  TemplateName             = " & swSheet.GetTemplateName
' Debug.Print "  PaperSize                = " & vSheetProps(0)
' Debug.Print "  TemplateIn             = " & vSheetProps(1)
' Debug.Print "  Scale1                   = " & vSheetProps(2)
' Debug.Print "  scale2                   = " & vSheetProps(3)
' Debug.Print "  FirstAngle             = " & vSheetProps(4)
' Debug.Print "  Width                   = " & vSheetProps(5)
' Debug.Print "  Height                   = " & vSheetProps(6)
'

' Switch projection property
'切换第一视角 - true/第三视角 - false
'注意:该视角切换不会更新已经定义的视角显示方式!!!!
' bFirstAng = vSheetProps(4)
' vSheetProps(4) = Not bFirstAng

' Apply updated sheet properties

swSheet.SetProperties _
      vSheetProps(0), _
      vSheetProps(1), _
      vSheetProps(2), _
      vSheetProps(3), _
      vSheetProps(4), _
      vSheetProps(5), _
      vSheetProps(6)

' 当前项目属性集合
'Debug.Print "  New FirstAngle setting = " & vSheetProps(0)

'函数返回值
papersize = vSheetProps(0)
End Function

作者: Damon_Cao 时间: 2019-8-3 04:52
顶顶顶顶顶顶顶顶顶顶

作者: wuyuseng 时间: 2019-8-3 13:32
非常感谢！虽然还不会使用，先学习一下

作者: meixia211 时间: 2019-8-3 15:30
mark，实用贴，感谢大神

作者: huieojoer 时间: 2019-8-3 16:45
二楼真是大神啊

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)