用智能尺寸功能生成尺寸,通过下面代码将尺寸生成尺寸链接
- Sub main()
- Set swApp = Application.SldWorks
- Set Part = swApp.ActiveDoc
- boolstatus = Part.Extension.SelectByID2("RD2@Drawing View3", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
- boolstatus = Part.Extension.SelectByID2("RD1@Drawing View3", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
- Part.AlignDimensions
- End Sub
复制代码 |