When using the Artistic media presets, it would be great if there was a macro available to [selectively, by group or globally] seperate the artistic media group and delete the control line. This would be especially useful if transparancies etc were to be applied.

Anyways, its just an idea :)

Why you think in a macro? it's a good idea... to be included in the CorelDRAW X5

 Frootloop, I have exactly what you need! I have scripted a few macros especially for that cause I know the frustrating work of break the strokes into shape and control line. And there are two macros for applying transparency(one for "add", and one for "subtract" mode). So I see there is another artist who have needs for that. I am going to put a zip file with the script and icons in the downloads/macros section. Watch out and gimme response...

 You can find the Macros in one single GMS-file here: http://coreldraw.com/files/folders/macros/entry28114.aspx

Give me a note how useful you'll find it!

Thanks a lot, Mo. This macro will be useful, I want this function for years!

 Thank you Ariel. This macro IS very useful, especially if you have some tiny buttons on your workspace for easy access. Happy painting and let me see the results!

Mo, thats fantastic, thanks so much for uploading it!

Im sure its somthing im doing, its seperating but leaving the control line behind. Its in X4 evaluation version (my full copy should be here next week) running on vista.

Thanks again!

Andy

you need to make artitistic strokes first, then select them all.

try running the brush stroke.ArtistBrushConvert command to separate, it deletes control line.

Frootloop:

Im sure its somthing im doing, its separating but leaving the control line behind.

Andy

Jeff Harrison:

you need to make artitistic strokes first, then select them all.

try running the brush stroke.ArtistBrushConvert command to separate, it deletes control line.

Frootloop:

Im sure its somthing im doing, its separating but leaving the control line behind.

Andy

 

Yup, thats what im doing Jeff lol - Creating an artistic brush, selecting it, then running the brush stroke.ArtistBrushConvert script. It seperates the control line and shape, but leaves the control line behind. I blame Vista! haha 

heh, seems to work in X3 - I didn't try in X4 yet.

Jeff

Frootloop:

Yup, thats what im doing Jeff lol - Creating an artistic brush, selecting it, then running the brush stroke.ArtistBrushConvert script. It seperates the control line and shape, but leaves the control line behind. I blame Vista! haha 

Perhaps X4 doesnt like it. I dont have X3, and my v12 is out of action at the mo.

Frootloop:

Yup, thats what im doing Jeff lol - Creating an artistic brush, selecting it, then running the brush stroke.ArtistBrushConvert script. It seperates the control line and shape, but leaves the control line behind. I blame Vista! haha

I have added an ErrorHandler for unexpected issues: Does it open a window with an error message when running the macro? I think it might be the "s.Previous().Delete" Command which isn't working. I've tested those macros in X3 and v12, but not in X4 yet. You can compile that macro when you do the following:

open the VisualBasicEditor inside of Draw and select the ArtistBrushConvert script. Delete the CommandGroup lines or paste this example under the first

Sub TestConvert()
    Dim sr As Shape, origSel As New ShapeRange, s As Shape
    On Error Resume Next
        For Each sr In ActiveLayer.Shapes
        If sr.Type = cdrArtisticMediaGroupShape Then
   
            origSel.Add sr
            origSel.CreateSelection
            ActiveSelection.Separate
   
            Set s = ActiveShape
            s.Previous(cdrLevelLayer, True, True).Delete
        Else
    End If
 Next
End Sub

Place and resize both windows side by side (Draw and the VBEditor) on your screen so that you can watch the script in Draw while running. Open the ObjectManager in Draw. Go back to the VBEditor and select the first line of the Script. If you press F8 now, the first line should have a yellow background. You are in runtime mode now. You can run the macro line by line with F8, while watching the effect in the Object manager in Draw. You can stop the runtime mode when you press the "stop" button.

What happens on your screen when the command line "s.Previous(cdrLevelLayer, True, True).Delete" is reached?

Hi Mo,

Thanks for that. Ive given it a go and the whole macro runs without deleting the control line when "s.Previous(cdrLevelLayer, True, True).Delete" is reached. Nothing changes on the Draw screen to the Artist brush when the line executes.

Odd isnt it :S

Damn it! I am going to install a test-version to check out that issue. Stay tuned.

It is done. The updated Version of the Artistic Media Wizzard for CorelDraw v12-X4 is available here: http://coreldraw.com/files/folders/macros/entry28530.aspx

Have fun with it and let me see the results!