Select Lines in IDW

[Anonymous]

To all, Is it possible to select (or have a selection) of 2 lines in a IDW? We need to put center marks on slotted holes, and I want to combine the "Centerline" and the "Centerline Bisector" commands. In this way, I can reduce the number of clicks by a factor 2! Just can't get it to work... Anyone?

[Anonymous]

The only way it MIGHT be possible in IV8 and earlier is if the lines are in a sketch, but surely not otherwise. The Drawing API has been severly limited so far. Hopefully IV9 will support this. Bob S. "Teun Ham" wrote in message news:40d7ef8b$1_1@newsprd01... > To all, > > Is it possible to select (or have a selection) of 2 lines in a IDW? > > We need to put center marks on slotted holes, and I want to combine the > "Centerline" and the "Centerline Bisector" commands. In this way, I can > reduce the number of clicks by a factor 2! > > Just can't get it to work... > > Anyone? > >

[Anonymous]

I have tried creating a Sketch, but I can't put the Lines into the SelectSet... Also, if I select 2 lines and look into the SelectSet, the SelectSet returns "Nothing" for Item(1) and Item(2). I will take a look into IV9 tonight... Sub IDWCreatCM() Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet Set oSheet = oDoc.ActiveSheet Dim oDrawView As DrawingView Set oDrawView = oSheet.DrawingViews.Item(1) Dim oSketch As DrawingSketch Set oSketch = oDrawView.Sketches.Item(1) Dim oLine(1 To 2) As SketchLine Set oLine(1) = oSketch.SketchLines.Item(1) Set oLine(2) = oSketch.SketchLines.Item(2) Dim oEntity(1 To 2) As Object Set oEntity(1) = oLine(1) Set oEntity(2) = oLine(2) 'MsgBox oDoc.SelectSet.Count oDoc.SelectSet.Clear oDoc.SelectSet.Select oEntity(1) 'Error! oDoc.SelectSet.Select oEntity(2) 'MsgBox oDoc.SelectSet.Count ThisApplication.CommandManager.StartCommand (kCreateCenterLineBisectorCommand) ThisApplication.CommandManager.StartCommand (kCreateCenterLineCommand) End Sub