CorelDRAW Community
Site
Search
User
Site
Search
User
Developer Area
Code snippets feedback
How can one get the size of a selected subPath without breaking apart?
Forums
Wikis
API References
Tags
More
Cancel
New
Developer Area requires membership for participation - click to join
Threads in this forum
By title
By date
By reply count
By view count
By most asked
By votes
By quality
Descending
Ascending
All recent questions and discussions
Unread questions and discussions
Questions and discussions you've participated in
Questions and discussions you've started
Unanswered questions and discussions
Answered questions and discussions
Questions with suggested answers
Change setting using macro - Keep Desktop Objects on Layer
Not Answered
1 month ago
【CorelDRWx4】 "Align Left Top" "Align Top Right" "Align bottom left" "Align Bottom Right" dialog by VBA code?
Not Answered
1 month ago
Change font for specific characters within a shape
1 month ago
VBA: applying styles to text range
Not Answered
15 days ago
The macro is not executed step by step
Not Answered
24 days ago
Deleting excessive / unneeded coreldraw data fields
Not Answered
3 months ago
How to automate Gaussian Blur in CorelDraw VBA ?
Not Answered
7 months ago
Running javascript macro by the c#, demo with code
2 months ago
Unexpected behaviour while trying to reduce nodes via a loop
Answered
2 months ago
Bring into Focus via VBA?
Answered
3 months ago
Color pallete name
Not Answered
4 months ago
Calling a Sub or Function
Suggested Answer
4 months ago
Setting Print Quantity - Any Ideas?
4 months ago
Outline Width
4 months ago
custom user form create
5 months ago
USER OBJECT
5 months ago
EDIT LAST RECORDED MACROS
Not Answered
5 months ago
Query a document for any contours
Not Answered
5 months ago
how automate rounded angles into right or pointed angles
6 months ago
DoCmd.RunMacro
7 months ago
Related
How can one get the size of a selected subPath without breaking apart?
Myron
over 7 years ago
0
Former Member
over 7 years ago
You will check only perfect horizontal lines?
Cancel
Up
0
Down
Reply
Verify Answer
Cancel
0
Myron
over 7 years ago
in reply to
Former Member
True. Doesn't help when trying to find size of a single text character that has been converted to curves. But I have had on occasion the need to get the size of a single vertical or horz line segment.
Cancel
Up
0
Down
Reply
Verify Answer
Cancel
0
NudeFan
over 7 years ago
in reply to
Myron
msgbox Format(w, "0.000")
Cancel
Up
0
Down
Reply
Verify Answer
Cancel
0
NudeFan
over 7 years ago
in reply to
NudeFan
or: MsgBox "Width = " + Format(W, "0.000")
Cancel
Up
0
Down
Reply
Verify Answer
Cancel
0
Myron
over 7 years ago
in reply to
NudeFan
Thanks all, this is where I'm leaving it
Sub SubPathSize()
Dim OS As Shape, x#, y#, w#, h#
Dim OriUnit As Long
OriUnit = ActiveDocument.Unit
ActiveDocument.Unit = cdrInch
Set OS = ActiveSelection.Shapes(1)
For i = 1 To OS.Curve.Segments.Count
If OS.Curve.Segments(i).Selected = True Then
OS.Curve.Segments(i).GetBoundingBox x, y, w, h
MsgBox ("Width = " + Format(w, "0.000") & vbCr & "Height = " + Format(h, "0.000") & vbCr)
End If
Next i
ActiveDocument.Unit = OriUnit
End Sub
Cancel
Up
0
Down
Reply
Verify Answer
Cancel
<
>