simple rectangle will not offset

hi,
i have a simple rectangle with a lttle 'blip'
that will not offset in acad2000,

can anyone test in other versions to see if it does offset,
i get a "cannot offset that object" bug.

here are the coordinates ...
125, 130
125, 135
120, 130
100, 130
100, 100
150, 100
150, 130

enter as 2d polyline and close, then try to offset inside by 10.

strange thing is that when the 'blip' is taken out , the rectangle
offsets ok ?

gadski

 

Gadski, try this

Dim plineObj As AcadLWPolyline
Dim points(0 To 13) As Double
points(0) = 125: points(1) = 130
points(2) = 125: points(3) = 135
points(4) = 120: points(5) = 130
points(6) = 100: points(7) = 130
points(8) = 100: points(9) = 100
points(10) = 150: points(11) = 100
points(12) = 150: points(13) = 130
Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
plineObj.Closed = True
ZoomAll


Dim offsetObj As Variant
offsetObj = plineObj.Offset(10#)

Jordi

 

thanks jordi,

but make it offset inside (use -ve number for offset value)

that is ...
offsetObj = plineObj.Offset(-10#)

mine fails, does yours ?

 

Same here, the "little blip" is to small to create a negative offset.

 

what version of acad did you test with ?