CorelDRAW Graphics Suite X7

CorelDRAW X7 macro that searches for and displays all active dimension

macro that searches for and displays all active dimension

cscartdept over 5 years ago

Is there a macro that searches for and displays all active dimension objects? all pages?

Top Replies

Eskimo over 5 years ago in reply to cscartdept +1

Here is a macro that lets you "walk through" all of the dimensions on the page, selecting each one in turn: JQ_Sequentially_Select_Dimensions_2018_08_06_1657.zip . It looks like this: VIDEO: Sequentially...
Eskimo over 5 years ago in reply to cscartdept +1

Based on some work I did recently for a "zoom to selection" thing, I could easily modify the macro shown above to zoom in to each dimension as it is selected. That might be useful if one were using this...

Myron over 5 years ago

I have one that selects all dimensions but only on the current page. I also put a little "extra" in it to allow me to set the text size and outline width.
Cancel
Up 0 Down

Reply

Cancel
Eskimo over 5 years ago

cscartdept said:
Is there a macro that searches for and displays all active dimension objects? all pages?

Could you clarify what you mean by, "displays all active dimension objects"?
Cancel
Up 0 Down

Reply

Cancel
cscartdept over 5 years ago in reply to Eskimo

I want to find all dims and see if any and how many. does not work in the 'find' tool..WTH??

https://drive.google.com/open?id=1OtYz-XrruPIs-LpLffr2RPKOdCUvsJ8n
Cancel
Up 0 Down

Reply

Cancel
Myron over 5 years ago in reply to cscartdept

Current page only. Needs modified for all pages.

Sub CountDimensions()
Dim sr As New ShapeRange
Dim s As Shape, d As Long
d = ActiveSelectionRange.Count
For Each s In ActivePage.FindShapes(Type:=cdrLinearDimensionShape)
sr.Add s
Next s
sr.AddToSelection
MsgBox d
End Sub
Cancel
Up 0 Down

Reply

Cancel
cscartdept over 5 years ago in reply to Myron

Cool. Thanks Myron. Weird - it only shows the count as 0 (zero) even if two are selected.
Cancel
Up 0 Down

Reply

Cancel