'CamBam.CAD.MiscUtils
'CamBam.UI.AlignOptions
'

Sub main()

	'align the selected objects to the origin



    Dim alopt As AlignOptions = New AlignOptions

    alopt.XOffset = 0   'no offset
    alopt.XAlign = 1    'align left side
    alopt.YOffset = 10  ' offset +10 drawing units
    alopt.YAlign = 2    'align center
    alopt.ZAlign = 0    'no offset
    alopt.ZOffset = 0   'alignment disabled

    'perform the alignment
    MiscUtils.AlignObjects(alopt)



End Sub