工程图上如何显示实际的视角

belibe · 发表于 2022-6-20 14:07:49

经典图书

设计图纸会参照以前项目的图纸，这些老图纸有时候是第三视角的，借用的时候没发现，生产就可能做错。想工程图上做个字段，能够显示实际的视角。如果发现是第三视角的就重新改下，有没有办法？

caption_cn · 发表于 2022-6-21 09:39:15

这是SW自己是例子，就是查询和更改工程图视角设置的。
剩下的自己玩吧

Sub main()
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
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)
' Current projection property
Debug.Print " "
Debug.Print "  New FirstAngle setting = " & vSheetProps(4)

swDraw.EditRebuild
End Sub

Alex_Wang · 发表于 2022-6-20 16:04:38

经典图书

好想法，顶一下！！！！！！！！！！！

Allate · 发表于 2022-6-20 17:24:12

好像没有提供这个字段，应该要使用宏才行

gym9643 · 发表于 2022-6-21 14:28:08

经典案例图书

活到老学到老！

nbxhynbxhy · 发表于 2022-6-21 14:43:36

caption_cn 发表于 2022-6-21 09:39
这是SW自己是例子，就是查询和更改工程图视角设置的。
剩下的自己玩吧

谢谢分享，正点！！！

belibe · 发表于 2022-8-17 17:03:14

经典案例图书

caption_cn 发表于 2022-6-21 09:39
这是SW自己是例子，就是查询和更改工程图视角设置的。
剩下的自己玩吧

这个宏试了下，运行后，第一变第三，第三变第一。
有没有判断是不是第一视角的代码，不是跳出窗口提示。后面手动改就行

belibe · 发表于 2022-8-22 09:39:45

Allate 发表于 2022-6-20 17:24
好像没有提供这个字段，应该要使用宏才行

网上有人用C++，写了个程序。通过这句来判断是否第一视角 if radiofirst.checked = false 可是我用VB写就报错，大神帮忙看看

Allate · 发表于 2022-8-22 11:36:45

belibe 发表于 2022-8-22 09:39
网上有人用C++，写了个程序。通过这句来判断是否第一视角 if radiofirst.checked = false 可是我用V ...

见推荐位提供的代码，已经写得很清楚了。

belibe · 发表于 2022-8-22 12:06:49

经典图书

Allate 发表于 2022-8-22 11:36
见推荐位提供的代码，已经写得很清楚了。

恩，刚才想明白了，已解决，确实很清楚了

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

工程图上如何显示实际的视角

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献