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 04-11-2004, 08:50
lkoky
Guest
 
Posts: n/a
Default highlighting node

When I pus nodes in a collection

Code:
set s = activeshape
set ns = s.Curve.Nodes
For Each n In ns 
     ....
Next n
a loop thru them one by one, is there anyway to highlight the node in CorelDraw just to see which node is in the loop right now?
Reply With Quote
  #2  
Old 04-11-2004, 09:16
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default Re: highlighting node

Well, what I do is create a small circle on top of the node:

Code:
Dim sMark As Shape
Dim n As Node
Dim x As Double, y As Double
For Each n In ActiveShape.Curve.Nodes
    n.GetPosition x, y
    Set sMark = ActiveLayer.CreateEllipse2(x, y, 0.05)
    ' ... do something to the node
    ' sMark.Delete
Next n
Reply With Quote
  #3  
Old 05-11-2004, 03:44
lkoky
Guest
 
Posts: n/a
Default

Alex, many thanks again.
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
Node Coordinate designation ddonnahoe CorelDRAW/Corel DESIGNER VBA 5 24-02-2005 10:00
Node Mover ddonnahoe Code Critique 6 23-02-2005 17:33
vba question bumblebee CorelDRAW/Corel DESIGNER VBA 4 04-08-2004 16:07
Detecting Last Node Selected? barnold CorelDRAW/Corel DESIGNER VBA 4 21-04-2004 14:03
Node selection question Peter Clifton CorelDRAW/Corel DESIGNER VBA 1 02-12-2003 13:00


All times are GMT -5. The time now is 03:18.


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