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

标题: 求助：工程图仅修改尺寸箭头样式，该如何实现 [打印本页]

作者: sunshine0099 时间: 2024-8-20 09:53
标题: 求助：工程图仅修改尺寸箭头样式，该如何实现
这段代码总是错误，该如何完成

Sub main()
Dim swApp As Object
Dim swModel As ModelDoc2
Dim swDispDim As DisplayDimension
Dim boolstatus As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
'boolstatus = swModel.EditDimensionProperties2(0, 0, 0, "", "", True, 9, 1, False, 2, 2, "", "", True, "", "", True)’录制宏时，改箭头方式，放代码会改变尺寸前后缀以及公差
boolstatus = swDispDim.SetArrowHeadStyle2(False, 2, 2)
swModel.GraphicsRedraw
End Sub

复制代码

修改效果

作者: 834556677 时间: 2024-8-20 13:24
试试这个- -

补充内容 (2024-8-21 15:51):
该附件会丢失公差等信息，需要仅改斜线的去其它楼层找“仅改斜线”附件

（7.59 KB, 下载次数: 120 ）

作者: sunshine0099 时间: 2024-8-20 16:15

834556677 发表于 2024-8-20 13:24
试试这个- -

这段代码是录制出来的，如果尺寸有前后缀或者有公差就会将之清除。用SetArrowHeadStyle2命令则只改动箭头。但是要报错。缺少变量，不知道怎么弄

boolstatus = Part.EditDimensionProperties2(0, 0, 0, "", "", True, 9, 0, False, 2, 2, "", "", True, "", "", True)
boolstatus = Part.EditDimensionProperties2(0, 0, 0, "", "", True, 9, 1, False, 2, 2, "", "", True, "", "", True)

复制代码

作者: 834556677 时间: 2024-8-21 11:32
SW2020编辑，仅改动工程图中的尺寸线箭头（可多选）