OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 29-11-2006, 00:42
Posts: n/a
Default Joining Nodes Help Needed

Hey all,
i've been working trying to figure this one out, and i'm getting pretty annoyed that I can't..

The long and short of it is.. I'm looking for a way to take a shape made from lines and fill it.

The bit I need is how to join the nodes, i've been trying to use joinwith command (with combined and not combined lines) but i'm either having real trouble with the syntax or it doesnt work how I think it does.

I've recorded a macro doing it, but I don't understand the commands it uses.
Can someone give me a quick hand here,
Thanks alot!
Reply With Quote
Old 29-11-2006, 02:01
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,791
Blog Entries: 13
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 Creating a Shape

If you are doing the code it would look something like this:
Sub DrawMyShape()

Dim sShape As Shape
Dim crv As Curve
Dim sp As SubPath

Set crv = CreateCurve(ActiveDocument)
Set sp = crv.CreateSubPath(0, 0)
sp.AppendLineSegment -2.5, 0, False
sp.AppendLineSegment -2.5, 5, False
sp.AppendLineSegment 0, 7.5, False
sp.AppendLineSegment 2.5, 5, False
sp.AppendLineSegment 2.5, 0, False
sp.AppendLineSegment 0, 0, False
sp.Closed = True
Set sShape = ActiveLayer.CreateCurve(crv)
sShape.Fill.UniformColor.RGBAssign 178, 178, 178

End Sub
This should draw a little house shape and fill it. If it is a shape that is already drawn and you need to close it use Alex's close script. You can find it here: Close Shape

Hope that helps,


Last edited by shelbym; 29-11-2006 at 11:21.
Reply With Quote
Old 29-11-2006, 18:18
Posts: n/a

Thanks alot, and thanks for moving my posts to the correct place, i'll make sure they go here from now on.
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
A script for joining overlapping nodes? zhuyan166 CurveWorks 0 22-05-2006 02:58
How to remove extra nodes from a curve Alex FAQ 1 23-01-2006 10:37
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
Reducing Nodes Semi Automatic Superfreak New product ideas 2 05-10-2004 03:10

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

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