OberonPlace.com Forums  

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

Thread Tools Search this Thread Display Modes
Old 09-01-2014, 01:22
ager ager is offline
Join Date: Jul 2010
Location: Russia
Posts: 44
Default Is IsPointInside incorrected function?

If you download attached file and run this macro, applying to the figure from the file, you discover a sad mistake in "IsPointInside" function
Dim x As Double, y As Double, b As Boolean, s As Shape, Shift As Long, x1 As Double, y1 As Double, xSize As Double, ySize As Double
Dim xi As Double, yi As Double
ActiveDocument.Unit = cdrMillimeter
Set s = ActiveShape
s.GetBoundingBox x1, y1, xSize, ySize
For xi = x1 To x1 + xSize Step xSize / 20
 For yi = y1 To y1 + ySize Step ySize / 20
   If s.Curve.IsPointInside(xi, yi) Then ActiveLayer.CreateEllipse2 xi, yi, 0.5
  Next yi
Next xi
Attached Files
File Type: cdr test.cdr (176.3 KB, 369 views)
Reply With Quote
Old 13-01-2014, 00:35
Plixo Plixo is offline
Junior Member
Join Date: Oct 2011
Location: Singapore
Posts: 18
Default Tested, work OK with CorelDraw X6.4 64 bits

Tried on my computer and worked fine, no error
Reply With Quote
Old 14-01-2014, 05:00
ager ager is offline
Join Date: Jul 2010
Location: Russia
Posts: 44

Hmm... On my version of CorelDraw X4 it looks like this:
Attached Images
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
X5 - executing Add-In function from VBA Tomasz CorelDRAW/Corel DESIGNER VBA 3 02-11-2010 11:16
Function gallery is now online Alex Oberon Function Plotter 2 06-06-2009 00:57
Securidesign + Function Plotter RicardoLS SecuriDesign 0 11-11-2007 08:58
Function names Lev Oberon Function Plotter 1 29-08-2003 12:04
How can I get data from function? Elie CorelDRAW/Corel DESIGNER VBA 3 15-05-2003 06:08

All times are GMT -5. The time now is 08:43.

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