InsertModelAnnotations3的应用

g444555666bf

   经典图书

• 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
  

复制代码