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

blueeagle4 · 发表于 2010-11-2 16:06:20

用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