#author    NBOS Software
#desc    Sample tool to create a 15 foot wide road
#customtool   Fifteen Foot Wide Road
#toolbase   PolyPath
#toolset    Custom Tools
#button    FifteenFootRoad.bmp

'Creates a 15 foot wide city road

oMap = GetCurrentMap()
n = oMap.ObjectCount()
oPath  = oMap.GetObject(n-1)  'get object is zero based

oPath.PenColor = rgb( 0,0,0)
oPath.BrushColor = rgb(191,176,176)
oPath.FractalFactor = 0
oPath.Unrender

x = oPath.GetPointX( 2)
y = oPath.GetPointY( 2)

y = y - oMap.UserToWorld( 7.5)
oPath.SetPoint 1, x, y

RefreshMap