;Have a tab active
;have the Well reports folder open
;add Well reports to default firefox download location
dim $x
dim $openinpdf
dim $i
$x=InputBox(”DE”,”Enter Number of DL’s”,10)
WinClose(”https://data.crownminerals.govt.nz - Access Document - Mozilla Firefox”)
;
;$x = InputBox ( “DE File Downloader”, “Enter Number of Documents on Page” , “10″ )
;$openinpdf = 0
;put crown minerals into foreground
WinWait( “Crown Minerals Technical Data” )
WinActivate ( “Crown Minerals Technical Data” )
WinSetState(”Crown Minerals Technical Data”, “”, @SW_MAXIMIZE)
Sleep(1000)
MouseClick ( “left” , 1270,300, 2) ;click scroller
MouseClick ( “left” , 260, 390 , 1)    ;’click in middle of page
;’send 11 tabs
;’send enter
Send(”{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}”)
Sleep(3000)
;002
for $i = 1 …

boolstatus = Part.Extension.SelectByID(””, “EXTSKETCHPOINT”, 0.48, 0.135, 0.3727, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID(””, “EXTSKETCHSEGMENT”, (0.48 + 0.48) / 2, (0.135 + -0.135) / 2, (0.3727 + 0.3727) / 2, True, 0, Nothing)
Part.CreatePlanePerCurveAndPassPoint3 False, True

Generates an arbitrary circle in space.
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim Entity As Object
Public selMgr As SelectionMgr
Sub main()
Dim SketchPoints As Variant
Set swApp = Application.SldWorks
Set Part = swApp.NewDocument(”c:\Program Files\SolidWorks\data\templates\Part.prtdot”, 0, 0#, 0#)
Dim SketchFeature As Feature
Dim MathUtil As MathUtility
Dim MathTrans As MathTransform
Dim MathP As MathPoint
Dim ModelSketchTransform As Variant
Set MathUtil = swApp.GetMathUtility
Set selMgr = Part.SelectionManager
Dim a(2)      As Double
Dim b(2)       As Double
a(0) = 0.48
a(1) = 0.135
a(2) = 0.0627
b(0) = …