Hello, I'm trying to automate the drawing of some parts. As part of this I am trying to change the layer of both the dimensions and the centre marks to match my company's standard template. The drawing templates are pre-imported into the drawing, so I would want to change say the centre marks layer from its default to the layer called "CENTRE". So far I have been having no luck. What I think should work is shown below, but it keeps on getting stuck at the GetSelectedObject6 stage. Does anyone have any ideas of what is going on? Am I barking up completely the wrong tree? Will it work if I sort out the GetSelectedObject6 problem or does it need something else.
Dim Draw As SldWorks.DrawingDoc
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDrawComp As IDrawingComponent
boolstatus = Draw.ActivateView("Drawing View2")
boolstatus = Draw.Extension.SelectByID2("DetailItem129@Drawing View2", "CENTERMARKSYM", 0.0664070846066, 0.1201125333933, 0, True, 0, Nothing, 0)
Set swSelMgr = Draw.SelectionManager()
Set swDrawComp = swSelMgr.GetSelectedObject6(1, -1)
swDrawComp.Layer = "CENTER"