求助：工程图仅修改尺寸箭头样式，该如何实现

sunshine0099 · 发表于 2024-8-20 09:53:10

经典图书

这段代码总是错误，该如何完成

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-21 11:32:11

SW2020编辑，仅改动工程图中的尺寸线箭头（可多选）

834556677 · 发表于 2024-8-20 13:24:23

经典图书

试试这个- -

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

sunshine0099 · 发表于 2024-8-20 16:15:01

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)

复制代码

huaxqhsb · 发表于 2024-8-21 14:59:19

经典案例图书

很不错，顶一下！

sunshine0099 · 发表于 2024-8-22 09:01:16

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

效果很好。能否在此基础上再优化下，运行后尺寸箭头朝内，如图示

sunshine0099 · 发表于 2024-8-22 09:15:29

经典案例图书

sunshine0099 发表于 2024-8-22 09:01
效果很好。能否在此基础上再优化下，运行后尺寸箭头朝内，如图示

我找到方法了，在命令后增加使用ArrowSide指令就可以了

834556677 · 发表于 2024-8-22 11:21:57

sunshine0099 发表于 2024-8-22 09:15
我找到方法了，在命令后增加使用ArrowSide指令就可以了

arrowside是怎么用的

834556677 · 发表于 2024-8-22 11:32:01

懂了，直接arrowside=0/1/2就可以了

sunshine0099 · 发表于 2024-8-23 08:50:43

经典图书

834556677 发表于 2024-8-22 11:32
懂了，直接arrowside=0/1/2就可以了

3869 · 发表于 2025-1-16 10:40:19

好好学习，天天向上！

hdgd501 · 发表于 2025-1-16 12:52:24

很不错，顶一下！

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