I'm a complete newcomer to VBA scripts. I work with CorelDraw X6, I use it for graphic work in technical practice. So far, I've made do with simple macros.What I need now - to export the coordinates of all nodes from one layer. There are only curves in the layer.My knowledge of VBA for CorelDraw does not allow me to master this task. Can someone help me please.
I can helpA little more specific what needs to be doneIf convenient on firstname.lastname@example.orgTaras
Here is an example to get you started. If you have questions just ask.
Dim s As Shape, n As Node
Dim srActiveLayer As ShapeRange
Dim x As Double, y As Double
Dim strNodePositions As String
'Get all the curve shapes on the Active Layer
Set srActiveLayer = ActiveLayer.Shapes.FindShapes(Query:="@type='curve'")
'This is another way you can get only the curve shapes
'Set srActiveLayer = ActiveLayer.Shapes.FindShapes.FindAnyOfType(cdrCurveShape)
'Loop through each curve
For Each s In srActiveLayer.Shapes
'Loop though each node in the curve and get the position
For Each n In s.Curve.Nodes
n.GetPosition x, y
strNodePositions = strNodePositions & "x: " & x & " y: " & y & vbCrLf
'Save the node positions to a file
Open "C:\Temp\NodePositions.txt" For Output As #1
Print #1, strNodePositions
Hello Shelby, it sound well and simply. I'll try it in the evening and I'll let know if I succeeded.
Hello Shelby, I test your macro - its core works exactly as I need it. Thank you for kick-start me