Connecting two points with a 3D sketch

[t_gawlik]

Hello, 
I am an iLogic beginner. I would like to use iLogic rule to connect two specific points (A1 and B1) by 3d sketch. My guess is that the rule must first create this sketch "Sketch 1" in the browser history and then connect these points with a line.

I don't know how to go about this, can you help?

[JelteDeJong · Accepted solution]

try this rule. You can run it and select 2 work points. 

Dim doc As PartDocument = ThisDoc.Document
Dim def As PartComponentDefinition = doc.ComponentDefinition

Dim wpA1 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kWorkPointFilter, "Select work point A1")
Dim wpB1 = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kWorkPointFilter, "Select work point B1")

Dim sketch3D As Sketch3D = def.Sketches3D.Add()
sketch3D.SketchLines3D.AddByTwoPoints(wpA1, wpB1)

[t_gawlik]

Thanks  JelteDeJong 

Very close to the final result
There will be more points in the future (A1 B1, A2 B2 ... An Bn) and they will be generated as a list (array?) or something similar. I don't want to point them manually but want the 3D sketch to connect them automatically