OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 19-02-2006, 12:02
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
Join Date: Mar 2005
Posts: 836
Default [DrawX3] RectangleFixer not working!!!

Very useful free macro : RectangleFixer fixes corner radius on non-uniformly scaled rectangles to circular shape. It is not working in DrawX3 but was working in Draw12. I tried to debug it and found that shape.rectangle.SetRadius, setroundness, .radiusLowerLeft etc aren't working in X3 : in watches window nothing changes after lines in bold in following code.
How to overcome? maybe using TransformMatrix which is recorded by VBA-Macro-recorder? But how to calculate this matrix?

' "Rectangle Fixer" Copyright © Nicholas Wilkinson 2001-2003
' IsoCalc.com CoolTools: http://www.isocalc.com/cooltools/
' IsoCalc.com Support: http://www.isocalc.com/support/
'....................... ripped by woxxom
            With sRect.Rectangle
                corner_rounds.a = .RadiusLowerLeft
                corner_rounds.b = .RadiusUpperLeft
                corner_rounds.c = .RadiusUpperRight
                corner_rounds.d = .RadiusLowerRight
                sRect.Rectangle.SetRoundness 0  ' not workin in X3
                sRect.Rectangle.SetRadius 0  ' not workin in X3
                .RadiusLowerLeft = 0  ' not workin in X3
                .RadiusUpperLeft = 0  ' not workin in X3
                .RadiusUpperRight = 0  ' not workin in X3
                .RadiusLowerRight = 0  ' not workin in X3
            End With
'....................... ripped by woxxom

Last edited by wOxxOm; 20-03-2006 at 13:35.
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
Working with complex documents easier Alex FAQ 1 30-04-2006 06:28
Curveworks Fillet Not Working For Me wetpuppy CurveWorks 3 02-08-2005 12:21
Round Corners - not always working vallentin Macros/Add-ons 1 15-03-2004 18:50
SaveAs function not working in PP11 Aneurysm Corel Photo-Paint VBA 2 03-03-2003 17:31
Image effects not working. kaliatech Corel Photo-Paint VBA 1 17-01-2003 13:51

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

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