OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 14-09-2022, 05:05
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
Join Date: Apr 2004
Posts: 155
Default Set First Noe w/o breaking subpath(s)

An oldie but goodie and a PITA
Running the following w/ combined subpath(s) breaks it

Any solution to keep the subpath from breaking apart.
Same would go for applying the subpath 1st then the main path

One way around it is by breaking apart the entire graphic but that
sometimes becomes cumbersome.

Any chances??

Sub SetFirstNode()      'Sets 1st Node Start Point
    Dim s As Shape
    Dim nr As NodeRange
    Set s = ActiveShape
    If s Is Nothing Then MsgBox "Please select a single node.", vbExclamation, "Set First Node": Exit Sub
    Set nr = s.Curve.Selection
    If nr.Count <> 1 Then MsgBox "Please select a single node.", vbExclamation, "Set First Node": Exit Sub
    If s.Curve.Closed Then
        s.Curve.Nodes.First.JoinWith s.Curve.Nodes.Last
        MsgBox "The shape must be closed to set First Node.", vbExclamation, "Set First Node": Exit Sub
    End If
End Sub
Using X4 & 2019 2020... yikes 2021
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
SubPath.PutCurveInfo um... info mitsu1 CorelDRAW/Corel DESIGNER VBA 2 18-04-2011 12:05
Extract subpath crash and question. runflacruiser CorelDRAW/Corel DESIGNER VBA 2 15-02-2011 06:45
About SubPath.AddNodeAt SUNNY CorelDRAW/Corel DESIGNER VBA 1 21-08-2008 00:52
subpath numbering lkoky CorelDRAW/Corel DESIGNER VBA 2 02-11-2004 02:37
Select all nodes if the subpath d-signer CorelDRAW/Corel DESIGNER VBA 2 12-05-2004 23:47

All times are GMT -5. The time now is 10:41.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com