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 01-03-2020, 09:44
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 155
Default We need Coincident Nodes to join

Taking my chance writing on a ghost town forum but here goes....

Using Carveco (formerly ArtCam, theres a Join > With Coincident Nodes feature. Drawback, have to bring back to CD.

Select broken objects that touch and wallah! Joined.
No freak shapes or nodes joined at other areas.
The Join function is lacking in the above sense.

Possible?
__________________
Using X4 & 2019 2020... yikes 2021
Reply With Quote
  #2  
Old 13-05-2020, 12:19
VyperOne VyperOne is offline
Member
 
Join Date: Feb 2003
Posts: 38
Default

This is possible. I did something like that a while back, where you loop through a node range comparing one node to another and if it is within your tolerance it will join the two nodes thus closing the gap and eliminating a node.

Goes something like this:

Code:
 For Each nNode As CorelDRAW.Node In nr
           
            nLoopCount = 1
            If nNode.IsEnding = True Then

                For Each n_loop As CorelDRAW.Node In nr_loop
                    If n_loop.IsEnding = True Then

                        nodeDistance = nNode.GetDistanceFrom(n_loop)

                        If (nodeDistance <= dTolerance) And (nNode.AbsoluteIndex <> n_loop.AbsoluteIndex) Then

                            nNode.JoinWith(n_loop)

                            njoined += 1

                            Me.lbl_Removed.Text = "Number of Nodes Removed: " & njoined.ToString

                            My.Application.DoEvents()
                        End If
                    End If

                    nLoopCount = nLoopCount + 1

                Next n_loop
                
            End If
Reply With Quote
  #3  
Old 13-05-2020, 12:20
VyperOne VyperOne is offline
Member
 
Join Date: Feb 2003
Posts: 38
Default

I should mention you have to have nodes selected with the node selection tool, not objects.
Reply With Quote
  #4  
Old 13-05-2020, 22:05
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,791
Blog Entries: 15
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Virtual Segment Delete

I will also say, have you tried the Virtual Segment Delete Tool?

If you hold down Shift, you will see the tool icon change, you then draw a box around the nodes and they get joined.

The tolerance isn't much, but I have found it the fastest way if the nodes are close.

-Shelby
Reply With Quote
  #5  
Old 24-05-2020, 03:46
dungbtl's Avatar
dungbtl dungbtl is offline
Senior Member
 
Join Date: Apr 2004
Posts: 155
Thumbs up

Quote:
Originally Posted by shelbym View Post
I will also say, have you tried the Virtual Segment Delete Tool?

If you hold down Shift, you will see the tool icon change, you then draw a box around the nodes and they get joined.

The tolerance isn't much, but I have found it the fastest way if the nodes are close.

-Shelby
Shel,
The VSD is pretty much on target like I use in Carveco. You select the batch of nodes and select Join. Doesn't Flexisign have something like this? So yea... that tool sums it up. Took a bunch of tries but I've got it now. Thanks a batch!
__________________
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
Join two lines by adding straight lines and closing nic CorelDRAW/Corel DESIGNER VBA 5 28-03-2017 08:26
Looking for a way to join all points on an object. flyer General 1 02-02-2008 01:57
macro for break curve and join curve mgmcs Macros/Add-ons 2 26-05-2006 22:01
ALEX! how about join the secridesign and the plotter? lees CorelDRAW/Corel DESIGNER VBA 0 19-05-2004 05:51
Too many nodes ddonnahoe CorelDRAW/Corel DESIGNER VBA 3 27-02-2004 07:14


All times are GMT -5. The time now is 11:32.


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