Anyone know if finecut 8.2.1 can be used with Corel Draw X7?
Myron.
I believe you must use the 8.5 version to get it to work with X7.This upgrade arrived about a month ago (march 2015) and from what I've seen so far, it works as expected.
Pity Mimaki takes so long to upgrade the program to work with new versions of Draw, in this case a whole year. [:(]BTW, I agree with George; if you have the space, leave X4 on your machine for a while to be on the safe side.
Here's just the macro itself. Don't know if this will work with X7. I'll post how I have it inserted into the FineCut macros.
CheckForIntersecting.gms
Sub Plot() ‘ Finecut start point
If DetectIntersects = True Then Exit Sub
ShowPlotDlg DRAWVER, False
End Sub
Function DetectIntersects() As Boolean
Dim sr As ShapeRange, srText As ShapeRange
Optimization = True
Dim s1 As Shape, s2 As Shape, s3 As Shape, s4 As Shape
Dim bDuplicated As Boolean, bFound As Boolean
bFound = False
Set sr = ActiveSelectionRange.Shapes.FindShapes() 'Find all the shapes inside groups, this will also return the group as a shape
sr.RemoveRange sr.FindAnyOfType(cdrGroupShape, cdrGuidelineShape, cdrBitmapShape) 'Remove any groups, guidelines or Bitmaps
For Each s1 In sr.Shapes
bDuplicated = False
If bFound Then Exit For
' If the shape is text, make a duplicate and convert the duplicate to curves
If s1.Type = cdrTextShape Then
Set s1 = s1.Duplicate
s1.ConvertToCurves
bDuplicated = True
End If
'Loop each shape to see if it intersects with the current shape
For Each s2 In sr.Shapes
If Not s1 Is s2 And s2.Type <> cdrTextShape Then
If s1.DisplayCurve.IntersectsWith(s2.DisplayCurve) Then
bFound = True
Exit For
Next s2
'If the shape was text we need to break it apart and see if any letters intersect
If bDuplicated Then
Set srText = s1.BreakApartEx
For Each s3 In srText.Shapes
For Each s4 In srText.Shapes
If Not s3 Is s4 Then
If s3.DisplayCurve.IntersectsWith(s4.DisplayCurve) Then
Next s4
Next s3
srText.Delete
Next s1
Optimization = False
ActiveWindow.Refresh
If bFound = True Then MsgBox "CAUTION, intersecting shapes.", vbCritical
DetectIntersects = bFound
End Function
Probably can't make much of this screen capture but this is how I incorporated it into the FineCut macro