CorelDRAW中线要素自动闭合错误解…

CorelDRAW中线要素自动闭合错误解决（VBA）：
在CorelDRAW中导出为EPS后自动相交情况：




1.在corelDRAW9中执行VBA脚本：（模块-CorelMacros）
Public Sub SetLineOpen()

Dim SelShapes As Shapes

Dim totalNum As Long

Set SelShapes = ActiveDocument.Selection.Shapes

totalNum = SelShapes.Count

Dim Width As Double

Dim i As Long

Dim shape1 As Shape

For i = 1 To totalNum

Set shape1 = SelShapes.Item(i)

SelShapes.Item(i).Curve.Close = False

Next

End Sub





12在corelDRAW14中执行VBA脚本：

Public Sub SetLineOpen()

Dim Shps As Shapes

Dim totalNum As Long

Dim i As Integer

Set Shps = ActiveDocument.ActiveLayer.Shapes

totalNum = Shps.Count

For i = 1 To totalNum

If Shps.Item(i).Type = cdrCurveShape Then

Shps.Item(i).Curve.Closed = False

End If

Next

End Sub