Would you miss CorelScript object?

[Alex]

There are some talks about the possibility that CorelScript object could be completely removed from future versions of CorelDRAW's VBA object model. Would you miss it?

I mean, do you still use CorelScript object in your VBA macros? If so, what do you use it for? Does it provide something which can't be done through the native VBA object model?

Your input on this matter is highly appreciated.

Feel free to post your comments or pieces of code that you can't work around the CorelScript object...

Thanks.

Yes... Unless everything in the CorelScript had a direct EXPLAINED conversion to a VBA object. That is one of the biggest disappointments I have with Corel. I don't see how a company can release an incomplete product. Things like "Description of function goes here" are all over in the "Help" files. :? OK I'll get off my soap box now.

[Alex]

Originally Posted by MrClark

Things like "Description of function goes here" are all over in the "Help" files.

Do you use Draw 10 or 11? Because in Draw 11's help file there aren't that many left. Also, there is a nice programming guide in PDF form which can be found in Programs folder of your CorelDRAW installation. The file name is dvba_pg.pdf (I know the file name could have been better ).

Do you mind telling me what exactly are you doing with CorelScript?

This is one example in CorelDRAW

With CorelScript
.CreateArtisticText sFaceName, 0, 0
.SetCharacterAttributes 0, Len(sFaceName) - 1, "Arial", 7, 360, 0, 0, 0, 0, 0, 0, 0, 2
.RotateObject 90000000, 0, 0, 0
End With

I'm having some difficulty converting things to VBA without adequate documentation not to mention the time to convert them.

I really don't have a problem with VBA. I was actually very excited when I found out version 10 had VBA back end. The problem is converting everything very little documentation. I will check out the pdf file. (Another little secret I knew nothing about.) :?

I'm just trudging along.

I was not able to find

dvba_pg.pdf

. Is that 10 or 11?

[Alex]

Originally Posted by MrClark

With CorelScript
.CreateArtisticText sFaceName, 0, 0
.SetCharacterAttributes 0, Len(sFaceName) - 1, "Arial", 7, 360, 0, 0, 0, 0, 0, 0, 0, 2
.RotateObject 90000000, 0, 0, 0
End With

This particular sample is very straight forward and can be done easily in either Draw 10 or Draw 11. Here is how:

Draw 10:

Dim s As Shape

ActiveDocument.DrawingOriginX = 0
ActiveDocument.DrawingOriginY = 0
ActiveDocument.Unit = cdrTenthMicron

Set s = ActiveLayer.CreateArtisticText(0, 0, sFaceName)
With s.Text.FontProperties
    .Name = "Arial"
    .Style = cdrNormalFontStyle
    .Size = 36
End With
s.Text.AlignProperties.Alignment = cdrCenterAlignment

s.Rotate 90

Here setting DrawingOriginX & Y and Unit properties of the document is just for compatibility with coordinate system of CorelScript.

In CorelDRAW 11 you can achieve the same even simpler:

Dim s As Shape

ActiveDocument.DrawingOriginX = 0
ActiveDocument.DrawingOriginY = 0
ActiveDocument.Unit = cdrTenthMicron

Set s = ActiveLayer.CreateArtisticText(0, 0, sFaceName, , , "Arial", 36, cdrFalse, cdrFalse, , cdrCenterAlignment)
s.Rotate 90

As for the programming guide, you can download it from here:

http://www.corel.com/partners_develo..._developer.htm

Note that it is written for CorelDRAW 11, but most of it still applies to Draw 10.

ha ha ha.

I almost beat you. Here's what I came up with.

Dim sFaceName as String
Dim ssFaceName As Shape

sFaceName = "GRAPHICS_NAME_0000_V01"

ActiveLayer.CreateArtisticText 0, 0, sFaceName
Set ssFaceName = ActiveSelection.Shapes(1)
With ssFaceName.Text.FontProperties
.Name = "Arial"
.Style = cdrNormalFontStyle
.Size = 36
End With
ssFaceName.Rotate 90

Dueling programmers

Like I said I like the VBA option I just don't have a lot of documentation on it and a rather tight deadline. The object model link will help - Thanks much.

I would like to jump right over to 11 (I have it at home) but I have to go through the paperwork (and justify it) to get it done at work.

This file:

Originally Posted by Alex

The file name is dvba_pg.pdf

Is on the site you mentioned: (http://www.corel.com/partners_develo..._developer.htm)
has the pdf file.

Alex,

I won't miss the CorelScrip object, because I won't be upgrading from Corel V7 and V10 until such time that I have witnessed with my own eyes that the deplorable state of the Corel VBA documentation in V10 and especially V11 has been completely and accurately corrected/updated.

Carl E. Johnson

[shelbym]

I really would not miss the CorelScript Object if all the CorelScript commands were documented on how to do the same in VBA. For example if I looked up .SelectAllObjects it would be nice to see how to accomplish this in VBA. I know this can be done like this only because Alex has posted it. I would have never guessed it.

ActivePage.Shapes.All.CreateSelection

The key is good documentation. He is how it was done and how you can now do it. I really like VBA, it is so much faster.

Shelby