Is there such a possibility of creating a cloud-drawing macro for Draw? Something that will draws circles at points you click, then it welds them all and deletes the center junk?
By cloud note, I'm referring to the cloud drawer in Acrobat Pro or AutoCAD.
signcoartdtp said: Is there such a possibility of creating a cloud-drawing macro for Draw? Something that will draws circles at points you click, then it welds them all and deletes the center junk? By cloud note, I'm referring to the cloud drawer in Acrobat Pro or AutoCAD.
You can try code below (created na testd on X5) - it’s placing symbol from the symbol library (located on C:\clouds.csl)zipped sample library attached (uzip an save to c:\)1. click = symbol called cloud12. shift+click = symbol called cloud23. ctrl+click = symbol called cloud34. alt+clik = symbol called cloud4
when symbol inserted then it’s reverted to an objectyou can insert symbols repeatedly - until pressing Esc or waiting two seconds from last click (this delay finish macro code)
Sub Symbol_on_Click()Dim SymLibClouds As SymbolLibrary, cloud As Shape, clname As StringDim x As Double, y As Double, shift As LongDim b As Boolean Set SymLibClouds = SymbolLibraries.Add("C:\clouds.csl", False) 'location of your clouds,i.e.=library with symbols b = False While Not b b = ActiveDocument.GetUserClick(x, y, shift, 2, False, cdrCursorWinCross) If Not b Then If shift = 0 Then clname = "cloud1" If (shift And 1) <> 0 Then clname = "cloud2" If (shift And 2) <> 0 Then clname = "cloud3" If (shift And 4) <> 0 Then clname = "cloud4" Set cloud = ActiveLayer.CreateSymbol(x, y, clname, SymLibClouds) cloud.Symbol.RevertToShapes End If Wend SymbolLibraries("C:\clouds.csl").DeleteEnd Sub
Best regards
Mek
Thanks Mek. That's a start. I just need a way to draw the bounding area that will contain the cloud. Richard, I'm already aware of how to manually make a cloud. I prefer to do it a little faster and whatnot.