SolidWorks机械工程师网——最大的SolidWorks学习平台
标题:
InsertModelAnnotations3的应用
[打印本页]
作者:
g444555666bf
时间:
2015-7-21 16:56
标题:
InsertModelAnnotations3的应用
Private Sub ll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwDraw As DrawingDoc
Set SwDraw = SwModel
Dim SwView As View
Set SwView = SwSelMgr.GetSelectedObject5(1)
SwDraw.InsertModelAnnotations3 0, swInsertDimensionsMarkedForDrawing, True, True, True, False
''
SwDraw.InsertModelAnnotations3 0, swInsertDimensions, True, True, True, False
End Sub
复制代码
关键点 swInsertDimensionsMarkedForDrawing + swInsertDimensions
详见帮助文件。
Private Sub ll1()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwView As View
Set SwView = SwSelMgr.GetSelectedObject5(1)
Dim SwDispDim As DisplayDimension, SwDim As Dimension
Set SwDispDim = SwView.GetFirstDisplayDimension
Do While Not SwDispDim Is Nothing
Set SwDim = SwDispDim.GetDimension
Debug.Print SwDim.FullName
Set SwDispDim = SwDispDim.GetNext
Loop
End Sub
复制代码
欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)
Powered by Discuz! X3.2