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

标题: 工程图上如何显示实际的视角 [打印本页]
作者: belibe    时间: 2022-6-20 14:07
标题: 工程图上如何显示实际的视角
设计图纸会参照以前项目的图纸，这些老图纸有时候是第三视角的，借用的时候没发现，生产就可能做错。  想工程图上做个字段，能够显示实际的视角。如果发现是第三视角的就重新改下，有没有办法？

2.png
作者: Alex_Wang    时间: 2022-6-20 16:04
好想法，顶一下！！！！！！！！！！！
作者: Allate    时间: 2022-6-20 17:24
好像没有提供这个字段，应该要使用宏才行
作者: caption_cn    时间: 2022-6-21 09:39
这是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
作者: gym9643    时间: 2022-6-21 14:28
活到老学到老！
作者: nbxhynbxhy    时间: 2022-6-21 14:43
caption_cn 发表于 2022-6-21 09:39
这是SW自己是例子，就是查询和更改工程图视角设置的。
剩下的自己玩吧

谢谢分享，正点！！！
作者: belibe    时间: 2022-8-17 17:03
caption_cn 发表于 2022-6-21 09:39
这是SW自己是例子，就是查询和更改工程图视角设置的。
剩下的自己玩吧

这个宏试了下，运行后，第一变第三，第三变第一。
有没有判断是不是第一视角的代码，不是跳出窗口提示。后面手动改就行
作者: belibe    时间: 2022-8-22 09:39
Allate 发表于 2022-6-20 17:24
好像没有提供这个字段，应该要使用宏才行

网上有人用C++，写了个程序。通过这句来判断是否第一视角 if radiofirst.checked = false      可是我用VB写就报错，大神帮忙看看
作者: Allate    时间: 2022-8-22 11:36
belibe 发表于 2022-8-22 09:39
网上有人用C++，写了个程序。通过这句来判断是否第一视角 if radiofirst.checked = false      可是我用V ...

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

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



欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/) Powered by Discuz! X3.2