CorelDRAW X5 :: Creating Macro To Count How Many Times It Replaced Figures And Insert Correct Number
Nov 11, 2013
it's my job to create drawings for patent applications, and These drawings usually consist of multiple pages with one or more drawings on each page. Each of these drawings has to be given it's own unique identifier (for example Fig. 1, Fig.2 etc).
In the process of designing a complete patent application it is often necessary to change the order of figures around and/or add new ones, remove old ones and so on. Now we get to the macro part.
What I need is a macro that identifies an artistic text placeholder (let's say <figures>) and replaces it with a text that says "Fig. x", x being counted upwards starting from 1. In essence I need the macro to count how many times it has already replaced <figures>, and insert the correct number. After the macro has done it's work I want every placeholder replaced with "Fig.1" or "Fig. 2".
Using the code from "MakeMeACircle" macro. How can I modify it to "InserCircle"? I have it working now but only if the shape is square and aligned to the bottom left of the page. If I move the square anywhere else and run the macro the "Ellipse" is created outside the square and is "squished" instead of a perfect circle.
Who knows maybe there's a macro that already exists to insert a circle inside any shape?
Sub InsertCircle() Dim sr As New ShapeRange Dim x As Double, y As Double, w As Double, h As Double Dim dLeeway As Double ActiveDocument.Unit = cdrInch If ActiveSelection.Shapes.Count = 0 Then Exit Sub sr.Add ActiveSelection.Group sr(1).GetBoundingBox x, y, w, h 'adjust this property ####################################### dLeeway = 0# 'distance to sides 'adjust this property ####################################### sr.Add ActiveLayer.CreateEllipse(x - dLeeway, y - dLeeway, w + dLeeway * 2, h + dLeeway * 2) With sr(2): .OrderBackOne: .Fill.ApplyNoFill: End With sr.Shapes.All.Ungroup End Sub
If I would like to compose a booklet in Corel Draw, how can I insert page numbers ?
I know the use of Master Layer. But contents on it will remain unchanged for all the pages. However the page numbers should auto increase page by page.
Adobe InDesign or pagemaker is useless infront of Corel Draw. But the problem of Footer (page numbering) has to be resolevd. So that Corel Draw will replace InDesign or related book work softwares.
a tip for solving the problem of exporting an image as a tif led to another question. One solution to export as tif was to create a macro. See that solution post here: [URL] .......
It says : Step 1Run the built in macro. (Tools > Macros > Run Macro). In CorelDRAW versions prior to X4 (Tools > Visual Basic > Play). Select ‘File Converter’ macro from the ‘Macros in’ list and click ‘Run’
However in my macros drop down there are no macros. how can I get a file converter macro?
I need to know the exact number of pixels that I select for a size comparison. It's a non-rectangular selection similar to a cloud.I'm using CS2 but could upgrade if needed.
My CorelMacros.CreateColorSwatch macro has stopped dumping the swatches into whatever blank Letter-sized document I have open (which is how it used to work) and instead it is creating a new document, at 4.25" wide x 7" high, and dumping the swatches into that. Using Pantone Solid Coated, but it's doing this regardless of what palette I choose.
There is no option in the Macro's dialog box to alter or even instantiate a page size, and I cannot find in the code of the macro where to set this variable.
I had some sheets that I wanted to hide so I clicked exclude from count and exclude from printing.
Now I want to put them back, if I uncheck the boxes the page numbers don't show up in the border. Neither will if give a page number to the pages that were previously hidden in the browser.
Is there any VBA code that can count the number of bends used in a sheet metal part?I would like to make a custom property of this, so it can be exported to Excel for input in our ERP system
I'm trying to make a very simple 20 second video clip of me hula hooping, and every 4 seconds, draw a circle around my hula hoop that remains there for the duration of the video. So at the beginning there will be 1 circle, at the end there will be 6. how to make one of these circles visible at a time. I've been googling and youtubing for the the past 2 hours.
I have to repeat a circle an even number of times across a 597" linear space. The circles need to be approx 24" apart, but evenly spaced. How can I do this without having to manually calculate the spacing and the # of circles required?
I am using original discs with serial number stickers for CS3 extended and CS4 on a 2008 MBP with 10.8.
Problem1:
While still having CS3 installed, and reinstalling CS4, the correct serial # request of pre upgrade version CS3 was repeatedly rejected. So I removed everything Adobe from HD, ran Adobe cleaner which found nothing.
Problem 2:
Now I am unable to install CS3 as I get "problem with installation, contact Adobe" message.I manually removed everything Adobe related from HD to no avail.
My InDesign document has a total of 55 pages. My page numbers are set up in a master. Some of the pages display the page numbers correctly: "Page X of 55" but others do not "Page X of 43". Why is it unable to detect the correct number of pages?
I have spent the last couple of hours researching posts back to 2008 regarding inserting inserting a point cloud into Revit at the correct coordinates. I have two files (DXF and PCG) that are in the same coordinate system. They overlay exactly in AutoCAD. Why I see posts back to 2008 with no resolutions on this same topic? Also explain to me why a file indexed in AutoCAD 2013 is not compatable with Revit 2013.
My application inserts 4 DBText lines and 2 PolyLines into a drawing from another drawing(or Source Database). I created a special layer ("warning") into which these entities are inserted. Then I combined these entities into a group so the user can move it out of the way while they are working.
When the title block data is refreshed, I want to redraw my 4 lines of text and 2 lines at the location last set by the user. I have successfully implemented redrawing the object at the X and Y coordinates last placed by the user by using ent.TransformBy(Matrix3d.Displacement(acVec3d) on each entity at the source and then doing a DBSource.WblockCloneOjbects to put them in the destination drawing at the correct position.
However, if the user rotates the group, I need to make the rotation also. This is where I'm having problems. What is the best way to grab the rotation value(s?) from the existing, user placed group, and then redraw onto the drawing at that rotated value? Is there an easier implementation that the way I am doing it?
It's been too long since I created one of these for Toolbars. I need a macro that will insert and explode a block. I just need the block's content, not the block itself. I can create a maco to explode a block with no path, but can't remember how to include the "*" in a file with a folder path to explode the block while its being inserted. Because of spaces in the file name, quotes (") must be around the path.
I am formatting a Bible for a client. The text was provided with verse numbers before each verse, but each chapter is one long paragraph. Now the client has decided they want each verse to begin a new paragraph. How can I globally insert an End of Paragraph mark before each superscrpt verse number?
I have an Inventor drawing which contains multiple sheets. One of the sheets is a drawing of the master assembly. Another sheet is a drawing of a part that is in the master assembly. This part shows up multiple times. I'd like to have a text box or something in the part's drawing that I can put: "Quantity: [Quantity]" where [Quantity] is the number of occurances of the part in the master assembly. I've been searching for a while and can't find a way to do this.
I'm producing a limited 8-colour palette mosaic for a restaurant wall using 1734 tiles represented as tessellated objects superimposed on a colour-reduced photo. Each tile will be one of 8 colours.
My question: how do I calculate the number of tiles per colour? I already have produced the tiles with their respective colour.
there is the scripting language - which is likely my only option - but as I'm new to the game:-
1. Is there an inbuilt Draw function to identify and count the number of objects with a specific colour, or
2. How can illustrate some Corel Script I can get started with to achieve this?
I have excel tables that contain 4 columns of data.
The Y co-ords pf the required object The X co-ords pf the required object The rotation of the required object The object number
What would I need to do to insert a block at the coordinates to the rotation shown then have a leader with the point number labeling the block (but the text not be rotated to the angle of the main block.
I have multiple effects that I want but for over 100 different pictures. Is it possible to get up a macro to have Paint.net run 9 different steps including creating multiple layers?
I'd like to create a macro that I can run from within an assembly that will loop through each BOM item and add the quantity req'd to a custom property within the component. I'm very familiar with VBA from Office, but I'm new to it with respect to Inventor so I'm pretty fuzzy with object titles and options.
Here's an outline of what I'd like to do:
Execute Macro from within Assembly file
For Each BOM Item to # of BOM Items
If Vendor = "Make" then Set Component Custom Property "Qty_Reqd" = Total Qty from BOM Endif
Photo-Paint crashes when saving twice out of three times...
When I edit a bitmap object from Draw, I always have to start my editing over and over.I lose my object. So...I do a workaround...I export the selected object, open it in Photo-Paint to edit it.
When saving...same thing. Except, the file saves properly. It's just that Photo-Paint crashes.
It used to do that with my older X4 version as well...I skipped the X5 and when on to the X6.
It still crashes, but even more...thing is...Both programs were installed on two different computers.
