View Single Post
  #35  
Old 07-05-2010, 20:50
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

As for the previous bug you can add this bitmap check.

Code:
If s.Type <> cdrBitmapShape Then '<<<<<< ADD THIS <<<<<<
            If s.Type <> cdrCurveShape Then
                s.ConvertToCurves
            End If
            For i = s.Curve.SubPaths.Count To 1 Step -1
                 If s.Curve.SubPaths(i).Length <= tol Then
                    s.Curve.SubPaths(i).Delete
                    removeSmallSubpaths1 = True
                 End If
             Next i
End If  '<<<<<< ADD THIS <<<<<<
-John
Reply With Quote