讨论：SOLIDWORKS能否把工程图图幅提取到表格

hotxjz · 发表于 2019-8-2 19:39:00

SolidWorks工程图的图幅能否被单独提取出来？比如我若要统计一套图中那些是A2/A3/A4，要怎样操作或者是否有相应的插件工具能实现？

80879601 · 发表于 2019-8-3 03:55:58

可以通过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:10

顶顶顶顶顶顶顶顶顶顶

wuyuseng · 发表于 2019-8-3 13:32:02

非常感谢！虽然还不会使用，先学习一下

meixia211 · 发表于 2019-8-3 15:30:49

经典案例图书

mark，实用贴，感谢大神

huieojoer · 发表于 2019-8-3 16:45:09

二楼真是大神啊

		自动登录	找回密码
密码			立即注册