OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Oberon Products > New product ideas

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 04-10-2004, 17:24
Superfreak
Guest
 
Posts: n/a
Default Reducing Nodes Semi Automatic

Hi Folks,

I'm working with Graphics, that have to be exported for cutting
vinyl Stickers. A lot of you know, that the contour tool of Corel
produces too much nodes. The Auto Reduce slider always takes too
much nodes away, the Contour is not exact.
Xara X is much more better in creating Contours.

My Workaround looks like this i select nodes which are too much and
hit (customized shortcut) convert to curve (cause in the contour there
are lots of line doesn't matter if the contoured object is a curve) after
that i hit smooth and last one auto reduce.

Now i want a macro that uses these 3 steps in that order.

I tried to record it, but that doesn#t work

can anybody help me?
Attached Images
 
Reply With Quote
  #2  
Old 04-10-2004, 20:08
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,941
Blog Entries: 4
Default Re: Reducing Nodes Semi Automatic

Here you go...

Code:
Sub FixContourCurve()
    Dim nr As NodeRange
    
    If ActiveShape Is Nothing Then
        MsgBox "Nothing is selected", vbCritical
        Exit Sub
    End If
    
    If ActiveShape.Type <> cdrCurveShape Then
        MsgBox "The selected object must be a curve", vbCritical
        Exit Sub
    End If
    
    Set nr = ActiveShape.Curve.Selection
    
    If nr.Count = 0 Then
        MsgBox "Select some nodes with the Shape tool", vbCritical
        Exit Sub
    End If
    
    nr.SegmentRange.SetType cdrCurveSegment
    nr.SetType cdrSmoothNode
    nr.AutoReduce 0.05 ' Deviation of curve shape to be no more than 0.05"
End Sub
Reply With Quote
  #3  
Old 05-10-2004, 03:10
Superfreak
Guest
 
Posts: n/a
Default Thanx

Fast, Faster, Alex.

thanx a lot Mate!

It works great. I set the deviation to 0.001 to get some more nodes.

Have a nice Day!
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
problems with nodes jmalmsteen CorelDRAW/Corel DESIGNER VBA 1 14-06-2005 13:23
It is a bug? (Reflecting Nodes) Hernán General 0 26-10-2004 02:13
Select all nodes if the subpath d-signer CorelDRAW/Corel DESIGNER VBA 2 13-05-2004 00:47
Too many nodes ddonnahoe CorelDRAW/Corel DESIGNER VBA 3 27-02-2004 08:14


All times are GMT -5. The time now is 23:48.


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