Good day Dear Users of CD and residents of community
Because of changings of workprocess in my job, it is needeful to me to write macros.
So, I started to explore VBA. And now I should write macros which will do two actions: Convert Text to Bitmap, and Trace that Bitmap (Text - Bitmap - Trace)
However, it turned out to be not as easy as I thought. I've read a lot of manuals and got confused.
Can anyone to HELP ME with writing this macros, PLEASE?
This is very urgent. I need to run this macro by the end of this week.
Dear Professionals and Experts in macros, as well as good-natured people, help, please...
P.S. I found one macro from the forum. But unfortunately it works halfway.
Dim OrigSel As ShapeRange, BMap As Shape, TracdSet OrigSel = ActiveSelectionRangeSet BMap = OrigSel.ConvertToBitmapEx(cdrGrayscaleImage, False, False, 1200, cdrNoAntiAliasing, True, False, 95)Set Tracd = BMap.Bitmap.Trace(cdrTraceLineArt, 100, 100, cdrColorCMYK)Debug.Print TypeName(Tracd)
Maybe it can help you...
I'm not understanding why you need to convert it then trace it. It's vector already so why the need to trace it?
The reason why I do tracing is because any font that We write in Corel is closed curve (see any text in wireframe view mode).
My work in my job involves applying text to wood using a laser machine. When the text is a closed curve, the laser has to do a lot of work (draw via laser the text around the text outline).
When the text is an open curve, the laser only draws the center line (little work)
This is the reason why I need to do a text tracing)) For this I need macros...
This is picture for clarity my words...
VIEV MODE: WIREFRAME
Top - is regular curly text (closed curve)Bottom - is the text converted to raster and then traced (only the center line)
What you need is "Single Line Fonts". Do a search. I use one for simple pen plots when needed.
Thanks for Idea. I've been looking for Single Line Fonts via Google. The results not so good. I could find only one font with Single Line. It contains only English alphabet letters. But I need Cyrillic alphabet also.So, I continued search, but couldn't find.
P.S. Can you help me with one thing also:How to set parameters of "Corner smoothness" for cdrTraceLineDrawind.
Set Trace = bmp.Bitmap.Trace(cdrTraceTechnical, 60, 80, cdrColorBlackAndWhite, cdrUniform, , True, True, True)