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 09-01-2014, 00:22
ager ager is offline
Member
 
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
Code:
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, 304 views)
Reply With Quote
  #2  
Old 12-01-2014, 23: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
  #3  
Old 14-01-2014, 04:00
ager ager is offline
Member
 
Join Date: Jul 2010
Location: Russia
Posts: 44
Default

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


All times are GMT -5. The time now is 10:50.


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