We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 26, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 19, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 19, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 12, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 12, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 5, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

We would like to remind you of this upcoming event.

CDRVBA Weekly Chat

Date: Thursday, June 5, 2003
Time: 9:00PM - 10:00PM EDT (GMT-04:00)

This weekly event is a good opportunity to discuss your current
issues/ideas live with other group members.

Hi everyone,

I'm now locking this list. Please continue your discussions on
http://www.oberonplace.com/forum/index.php

You will still be able to browse through archives of this list from
http://groups.yahoo.com/group/cdrvba but it will be closed for
posting.

Shortly I will move all the old messages to the online forum so you
will be able to see it there...

If you have any concerns, please let me know.

Alex

Andreas,

CorelDRAW uses integer mathematics inside, which means that the
coordinates cannot have just any values. They are discrete with 1/10th
of a micron steps (internal unit, or think of it as a "pixel" of that
size). This results is some rounding problems when you move to a very
fine (small) scales. Because of this, it is virtually impossible to hit
the outline of the object reliably. A "pixel" could be on the left of
the line while the next will already be to the right. In order to
resolve this, the following approach is implemented:

IsOnShape actually doesn't work with a point, but rather a small
rectangle: (x - h/2, y-h/2) - (x+h/2, y+h/2) where h is the HotArea you
specify. If the rectangle intersects an outline, the point is reported
as On Outline, If all the points are inside, then it is inside,
otherwise it is thought to be outside.

If HotArea is omitted, IsOnShape uses the screen zoom to imitate the
mouse clicks. The HotArea is chosen to be the size of (if I remember
correctly) 4 screen pixels in the current zoom.

As a result, if you want to test the exact point position, specify the
hot area of 0.

I hope this helps.

> I want to know if a point is inside or outside a shape.
>
> Therefore I'm using the following VBA-code:
>
>     If ActiveShape.IsOnShape(x, y) = cdrInsideShape Then ...
>
> My problem is that the results may be different if I use
> different zooms, eg.
>
> While the point is inside the shape ("cdrInsideShape") when using
>     ActiveWindow.ActiveView.Zoom = 50
> it might be outside ("cdrOutsideShape") the same shape when using
>     ActiveWindow.ActiveView.Zoom = 250
>
> Can anyone help?
>
> Does anybody know what the optional "HotArea"-Parameter of
> .IsOnShape(x,y,HotArea)
> does exactly as the help isn't too detailed on this?
>
> As far as I understand geometrics - if a point is outside a
> shape - it is outside - independent of the zoom.

Alex

Hi,
I want to know if a point is inside or outside a shape.

Therefore I'm using the following VBA-code:

     If ActiveShape.IsOnShape(x, y) = cdrInsideShape Then ...

My problem is that the results may be different if I use different
zooms, eg.

While the point is inside the shape ("cdrInsideShape") when using
     ActiveWindow.ActiveView.Zoom = 50
it might be outside ("cdrOutsideShape") the same shape when using
     ActiveWindow.ActiveView.Zoom = 250

Can anyone help?

Does anybody know what the optional "HotArea"-Parameter of
.IsOnShape(x,y,HotArea)
does exactly as the help isn't too detailed on this?

As far as I understand geometrics - if a point is outside a shape - it
is outside - independent of
the zoom.

Thanks in advance
Andreas

PS: I am using CorelDraw10 - German

----- Original Message -----

From: Alex Vakulenko

To: cdrvba@yahoogroups.com

Sent: Wednesday, November 27, 2002 8:16 AM

Subject: RE: [cdrvba] Oberon site moved

Craig,

>     Congrats on your new site!  Is it possible to move the
> yahoogroup archive to your new forum?  When are you going to
> close this message board? There are some good discussions
> here I would not want to lose... Thanks, Craig...

Yes, I will move the messages to the forum in a couple days (at least
I'll try :)

Alex



To unsubscribe from this group, send an email to:
cdrvba-unsubscribe@yahoogroups.com



Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

Craig,

>     Congrats on your new site!  Is it possible to move the
> yahoogroup archive to your new forum?  When are you going to
> close this message board? There are some good discussions
> here I would not want to lose... Thanks, Craig...

Yes, I will move the messages to the forum in a couple days (at least
I'll try :)

Alex

Hi Alex,
     Congrats on your new site!  Is it possible to move the yahoogroup
archive to your new forum?  When are you going to close this message board?
There are some good discussions here I would not want to lose...
Thanks, Craig...

----- Original Message -----
From: "Alex Vakulenko" <alexv@...>
To: "cdrvba" <cdrvba@yahoogroups.com>
Sent: Tuesday, November 26, 2002 9:38 PM
Subject: [cdrvba] Oberon site moved


> Hi everyone,
>
> My site (www.vakcer.com/oberon) has moved to its own domain -
> http://www.oberonplace.com
>
> I have created online forums on the site. The forums have boards devoted
to
> VBA/CorelScript programming and as such I'm going to close this mailing
list
> shortly. Please move all the discussions to the forums at
> www.oberonplace.com
>
> You are welcome to check out the new site and let me know what you think.
>
> Alex
> www.oberonplace.com
>
>
>
>
> To unsubscribe from this group, send an email to:
> cdrvba-unsubscribe@yahoogroups.com
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>

Hi everyone,

My site (www.vakcer.com/oberon) has moved to its own domain -
http://www.oberonplace.com

I have created online forums on the site. The forums have boards devoted to
VBA/CorelScript programming and as such I'm going to close this mailing list
shortly. Please move all the discussions to the forums at
www.oberonplace.com

You are welcome to check out the new site and let me know what you think.

Alex
www.oberonplace.com

> Alex's website seems to be down.  I was wondering if someone would
be
> willing the email me his Oberon Function Plotter for Draw 11.

The web site was down for several days but now it is back online.
Sorry for the trouble...

Alex

I thought I remembered reading that, but could never find how to do it!

What a value this NG is!

Roy Brewer

At 04:11 PM 11/22/2002 -0500, you wrote:
>CorelDRAW 11 already includes a file conversion script. Go to
>Tools>Visual Basic>Play... and select FileConverter.gms module...
>
>This should do it.

Has anyone been able to get the any of the following to work from VBA
in Corel Photo-Paint 10 or 11:
1. ImageBCI - No matter what I've tried, there is no effect on the
active Image/Document.
2. GetFolder - Gives me a Runtime Error 445 - "Object doesn't support
this function".
3. ImageColorTone - Same results (nothing) as with ImageBCI.
4. The code block-
      BEGINWAITCURSOR
      WAIT FOR 30             (VBA doesn't like the keyword WAIT)
      ENDWAITCURSOR

I am in the process of converting Corel Photo-Paint 7 Scripts to VBA
and I have most of them working in Photo-Paint 10 (and Photo-Paint 11
trial), and it has been somewhat of a struggle.

The 4 items I listed are documented in both the Corel Photo-Paint 10
(and 11 trial) documentation, but no matter how many variations I've
tried, I cant get them to work.  Items 1 and 2 are especially
important to me.

I would appreciate if anyone has any ideas of what I may be doing
incorrectly or other things I might try to get around the problems.

  Thank You,
  Carl Eric Johnson

Alex's website seems to be down.  I was wondering if someone would be
willing the email me his Oberon Function Plotter for Draw 11.

Thanks!

Shelby

Alex you sure are fast today.  You beat me to the reply.

Shelby

CorelDRAW 11 already includes a file conversion script. Go to
Tools>Visual Basic>Play... and select FileConverter.gms module...

This should do it.

> I have Alex's   v8 script, but would sure like to have it
> available in DRAW
> 10 or 11.
>
> Curious why this has not been upgraded to VBA; could it be
> that it is so
> easy in VBA that it hasn't been posted?
> If so, could someone give me a reference to get me started?
>
> This is what I'd really like:  dialog just like FILECONV8.CSC
> with the
> addition of a checkbox that would turn off the advanced
> dialog to let the
> conversions run unattended.
>
> WHile I'm thinking of it,  any way to turn off the dialog in
> DRAW8 before
> running the existing script?

This is also addressed in Draw11's file converter. You can set all the
properties before starting the export.

I hope this helps.

I have Alex's   v8 script, but would sure like to have it available in DRAW
10 or 11.

Curious why this has not been upgraded to VBA; could it be that it is so
easy in VBA that it hasn't been posted?
If so, could someone give me a reference to get me started?

This is what I'd really like:  dialog just like FILECONV8.CSC with the
addition of a checkbox that would turn off the advanced dialog to let the
conversions run unattended.


WHile I'm thinking of it,  any way to turn off the dialog in DRAW8 before
running the existing script?

Thanks,



Roy Brewer
817/460-8122
817/469-8560 fax

http://www.brewersales.com

***  hpLap3 ****

I would just hide the status bar (statusbar.Visible = False) and show the
progress bar at the same position/coordinates as the status bar was (in its
place). When you are done, hide the progress bar and show the status bar
again.

Alex

----- Original Message -----
From: "Weisz Tamas" <giraffe@...>
To: <cdrvba@yahoogroups.com>
Sent: Wednesday, November 20, 2002 8:40 AM
Subject: Re: [cdrvba] Status


> I use VBA in Draw11

I use VBA in Draw11

Tamas

----- Original Message -----
From: <alexv@...>
To: <cdrvba@yahoogroups.com>
Sent: Wednesday, November 20, 2002 2:23 PM
Subject: Re: [cdrvba] Status


Do you use CorelScript or VBA?

> My program have to make a lot of things, so it works a long time. Can I
> anyway change Statusbar to "Processing" mode, and set its processing bar?

Alex

To unsubscribe from this group, send an email to:
cdrvba-unsubscribe@yahoogroups.com



Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

Do you use CorelScript or VBA?

> My program have to make a lot of things, so it works a long time. Can I
> anyway change Statusbar to "Processing" mode, and set its processing bar?

Alex

Hello,

My program have to make a lot of things, so it works a long time. Can I
anyway change Statusbar to "Processing" mode, and set its processing bar?

Thanks,
Tamas

Hi everyone,

Corel has posted a quick survey on their web site to see where the next
CorelDRAW version will be going. There is a section in the survey devoted to
automation. If you could take 15 minutes of your time and participate in the
survey, that would be particularly useful. The future depends on you :)

You can find the survey here:
http://www.corel.com/draw11/focus_survey/index.htm

Thanks for participation.

Alex

Jim,

How about:

ActivePage.Shapes.All.SetOutlineProperties 0.005,....

This command can replace the whole loop you have there...

Should help a little bit more...

Alex

----- Original Message -----
From: "jimjwiley" <jwiley@...>
To: <cdrvba@yahoogroups.com>
Sent: Tuesday, November 19, 2002 4:51 PM
Subject: [cdrvba] Re: Killing Screen Redraw


> Here it is -
>
> Sub OutlineTo005Black()
>     Optimization = True
>     ActiveDocument.SaveSettings
>     ActiveDocument.PreserveSelection = False
>
>     Dim s As Shape
>     For Each s In ActiveDocument.ActivePage.Shapes
>         s.Outline.SetProperties 0.005, OutlineStyles(0),
> CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), False,
> False, cdrOutlineButtLineCaps, cdrOutlineRoundLineJoin, 0#, 100
>     Next s
>     ActiveDocument.RestoreSettings
>     Optimization = False
> End Sub
>
> It's very basic. It did go faster. For faster yet, I actually want it
> to just select all (SelectAll), but I am still getting oriented to
> VBA for CDR. (I have been doing some lite programming in Java,
> Javascript and VBA for Excel this last year).
>
> I am still trying to get the CDR help turned on fully (between doing
> actual work to meet todays deadlines). CDraw10 had alot more info
> displayed. Before D11, I was just modifing some of my old scripts
> with Ventura 8's script editor, but that was lost because our systems
> were completely rebuilt (disk imaged) for 7 software progs we
> upgraded a couple of weeks ago.
>
> Alex and others thanks again. This stuff is all good. It's great to
> find this NG.
>
> ~Jim

Here it is -

Sub OutlineTo005Black()
     Optimization = True
     ActiveDocument.SaveSettings
     ActiveDocument.PreserveSelection = False

     Dim s As Shape
     For Each s In ActiveDocument.ActivePage.Shapes
         s.Outline.SetProperties 0.005, OutlineStyles(0),
CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), False,
False, cdrOutlineButtLineCaps, cdrOutlineRoundLineJoin, 0#, 100
     Next s
     ActiveDocument.RestoreSettings
     Optimization = False
End Sub

It's very basic. It did go faster. For faster yet, I actually want it
to just select all (SelectAll), but I am still getting oriented to
VBA for CDR. (I have been doing some lite programming in Java,
Javascript and VBA for Excel this last year).

I am still trying to get the CDR help turned on fully (between doing
actual work to meet todays deadlines). CDraw10 had alot more info
displayed. Before D11, I was just modifing some of my old scripts
with Ventura 8's script editor, but that was lost because our systems
were completely rebuilt (disk imaged) for 7 software progs we
upgraded a couple of weeks ago.

Alex and others thanks again. This stuff is all good. It's great to
find this NG.

~Jim

At or around on or about Monday 03:44 PM 11/18/02 -0500, Alex Vakulenko
could be heard whispering in the mist

>If you don't mind, send me your code (or part of it) and I'll see if it can
>be improved in any way. Or you can post it here and everybody could
>benefit from this review...

Here, here, please post it here.  I vote for the group review (if I didn't
make it clear before).

Regards,
Geoff.

Jim,

I find that minimizing the screen is one good way. Also, kill all
interactive toolbars (property bar) and dockers, since they all update
themselves each time and swtich to simple wireframe. And, if your script
is rock solid and never crashes, Application.Invisible=True achieves the
same as all the above, but if CorelDRAW dies halfway, it's Task Manager
or nothing.

HTH.

--
Nick Wilkinson.
www.isocalc.com - The site for technical illustrators.


jimjwiley wrote:
> Hi,
> I have CAD lineart that I have to change thousands of lines for each
> drawing I import into Draw11. I am using a simple script. Is there
> any way to eliminate the delay for the screen to redraw with each
> line being selected and changed?
> Thanks,
> Jim Wiley
>
>
> To unsubscribe from this group, send an email to:
> cdrvba-unsubscribe@yahoogroups.com
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>