Corel Draw 12 - How to insert equations in CorelDraw?

Author

How to insert equations in CorelDraw?

savvas

2005-11-23, 6:31 am

Hello,

I have tried inserting equations in CorelDraw through:
Insert->object->Microsoft Equation (or MathType)
but symbols do not appear correctly.
Is there a solution for this?

Thanx
Savvas

David Purton

2005-11-28, 3:43 am

savvas wrote:
> Hello,
>
> I have tried inserting equations in CorelDraw through:
> Insert->object->Microsoft Equation (or MathType)
> but symbols do not appear correctly.
> Is there a solution for this?
>

What exactly are the problems that you have?

Usually fonts appear ok in Draw, but trying to move equations anywhere
else to PDF or PS is an absolute nightmare. :(

It's something to do with the Draw12 unicode implementation which seems
to be quite simply *broken*.

We have a custom hack macro that changes the encoding by hand. It's ugly
as, but at least seems to mostly give us reliable results.

This is more or less what we do: Create your equation in Equation Editor
then copy it to clipboard and then Run the "PasteEquation" macro to get
it into Draw.

' <Begin Code>

Public Sub PasteEquation()
On Error GoTo ErrHandler

ActiveDocument.BeginCommandGroup "PasteEquation"

If ActiveLayer.PasteSpecial("Metafile") Then
FixSymbolEncoding ActiveSelection
End If

SubExit:
ActiveDocument.EndCommandGroup
Exit Sub

ErrHandler:
MsgBox "PasteEquation Error!"
Resume SubExit

End Sub

Public Sub FixSymbolEncoding(Sel As Shape)
Dim s As Shape
Dim tmpString As String
Dim tmp2String As String
Dim i As Long

For Each s In Sel.Shapes
If s.Type = cdrSelectionShape Or s.Type = cdrGroupShape Then
FixSymbolEncoding s
Else
If s.Type = cdrTextShape Then
With s.Text.Story
If .Font = "Symbol" Or .Font = "MT Extra" Then
tmpString = StrConv(.Text, vbUnicode)
For i = 1 To Len(tmpString) - 1 Step 2
tmp2String = tmp2String & Mid(tmpString,i,1)
Next i
.Text = tmp2String
tmp2String = ""
End If
End With
End If
End If
Next

End Sub

' <End Code>

But we would be interested in getting a better solution.

You should consider using LaTeX for everything anyway for any more than
the most basic maths. Nobody under windows anywhere has even a remotely
decent mathematics typesetting system.

cheers

dc

Arvin

2005-11-28, 7:17 pm

This is a method I usually use. It's not really very much work.

First, create the equation in MathType, then copy it, then past special as
metafile into Draw.

Select and ungroup the equation. If there are any curves (such as radicals,
fraction bars, etc.) deselect them (and only them). The font toolbar should
now be showing.

In the font toolbar, choose the font you want for your variables. Then
select any operators and click on the font you use for those (probably
symbol).

"savvas" <sargyrop@auth.gr> wrote in message news:438436dc_2@cnews...
|
| Hello,
|
| I have tried inserting equations in CorelDraw through:
| Insert->object->Microsoft Equation (or MathType)
| but symbols do not appear correctly.
| Is there a solution for this?
|
| Thanx
| Savvas
|
|
|

Bill Meyer

2005-11-28, 10:44 pm

Hi Savvas
Go to the insert character docker and pick the fractions you want from
there. You can also create them and put them in as symbols of your own.
Foster has some good tutorials on using the symbol library.

--
Have A Great Day
Bill Meyer