OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 14-09-2022, 06: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??

Code:
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
        nr.BreakApart
        s.Curve.Nodes.First.JoinWith s.Curve.Nodes.Last
    Else
        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
Reply


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 13:05
Extract subpath crash and question. runflacruiser CorelDRAW/Corel DESIGNER VBA 2 15-02-2011 07:45
About SubPath.AddNodeAt SUNNY CorelDRAW/Corel DESIGNER VBA 1 21-08-2008 01:52
subpath numbering lkoky CorelDRAW/Corel DESIGNER VBA 2 02-11-2004 03:37
Select all nodes if the subpath d-signer CorelDRAW/Corel DESIGNER VBA 2 13-05-2004 00:47


All times are GMT -5. The time now is 07:51.


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