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

最新推荐文章于 2023-06-26 18:13:51 发布

GISQZC

最新推荐文章于 2023-06-26 18:13:51 发布

阅读量1.1k

点赞数

分类专栏：地图制图学

本文链接：https://blog.csdn.net/u014136513/article/details/50580522

版权

地图制图学专栏收录该内容

7 篇文章 1 订阅

订阅专栏

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