求助：零部件自动生成工程图的二次开发

780133

   经典图书

用vb开发solidworks，自动生成二维工程图，并进行尺寸标注，搞不定工程图中的尺寸标注，也就是无法选中需要进行尺寸标注的对象，如直线，圆弧等。其坐标值是怎么计算的~？望高手给予解答，不胜感激！！！以下为生成三视图的宏代码及进行一条边尺寸标注的代码，求解为啥无法进行标注······

• Sub main()
  
• 
  
• Set swApp = Application.SldWorks
  
• 
  
• Set Part = swApp.ActiveDoc
  
• Set Part = swApp.OpenDoc6("D:11.2工程图模板.SLDDRW", 3, 0, "", longstatus, longwarnings)
  
• Set Part = swApp.ActiveDoc
  
• Dim myModelView As Object
  
• Set myModelView = Part.ActiveView
  
• myModelView.FrameLeft = 0
  
• myModelView.FrameTop = 21
  
• Set myModelView = Part.ActiveView
  
• myModelView.FrameState = swWindowState_e.swWindowMaximized
  
• swApp.ActivateDoc2 "工程图模板 - 图纸1", False, longstatus
  
• Set Part = swApp.ActiveDoc
  
• Set myModelView = Part.ActiveView
  
• myModelView.FrameState = swWindowState_e.swWindowMaximized
  
• Dim myView As Object
  
• 
  
• 
  
• 
  
• Set myView = Part.CreateDrawViewFromModelView3("D:每日更新11.2EHA封头.SLDPRT", "*前视", 0.15, 0.2, 0)
  
• boolstatus = Part.Extension.SelectByID2("工程图视图1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
  
• 
  
• 
  
• boolstatus = Part.ActivateView("工程图视图1")
  
• Set myView = Part.CreateUnfoldedViewAt3(0.32, 0.2, 0, False) '左视图
  
• Part.ClearSelection2 True
  
• 
  
• 
  
• boolstatus = Part.Extension.SelectByID2("工程图视图1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
  
• Set myView = Part.CreateUnfoldedViewAt3(0.15, 0.1, 0, False) '俯视图
  
• Part.ClearSelection2 True
  
• 
  
• 
  
• boolstatus = Part.Extension.SelectByID2("工程图视图1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0)
  
• Part.ClearSelection2 True
  
• boolstatus = Part.ActivateSheet("图纸1")
  
• 
  
• boolstatus = Part.ActivateView("工程图视图1")
  
• boolstatus = Part.Extension.SelectByID2("EHA封头-1@工程图视图1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
  
• 
  
• 
  
• boolstatus = Part.ActivateView("工程图视图1")
  
• boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.15, 0.21185, -2000, False, 0, Nothing, 0)
  
• Dim myDisplayDim As Object
  
• Set myDisplayDim = Part.AddDimension2(0.15, 0.285, 0)
  
• Part.ClearSelection2 True
  
• 
  

复制代码