OberonPlace.com Forums

OberonPlace.com Forums http://forum.oberonplace.com This forum is devoted to OberonPlace products, CorelDRAW, graphics, user community, and software development en Thu, 17 May 2012 14:13:19 GMT vBulletin 60 http://forum.oberonplace.com/images/misc/rss.jpg OberonPlace.com Forums http://forum.oberonplace.com Another little X6 toolbar toy - Multigon (Multitype-Polygon Generator) http://forum.oberonplace.com/showthread.php?t=8202&goto=newpost Thu, 17 May 2012 14:04:12 GMT If you are terrible at drawing flowers, like me, this one's for you! :)

It's basically the star tool, just with instant node type changing, adjust the settings, then click the button to generate a shape in the middle of the page:

The code to install it is in the zip, but also here:

Code:

Sub addMultigonDocker()

    Dim dockerAssembly As String

    dockerAssembly = "D:\YOUR PATH GOES HERE\Multigon.dll"

    

    Call FrameWork.AddDocker("0F10EF19-3BD9-458F-9FA5-60320658A792", "Multigon.Docker", dockerAssembly)

    Call FrameWork.CommandBars("Dockers").Controls.AddToggleButton("0F10EF19-3BD9-458F-9FA5-60320658A792", 0, False)

End Sub

Make sure to get the path to the DLL right on the first time. If not, change a character or two in the GUID (0F10EF19-3BD9-458F-9FA5-60320658A792) and try again.

An infinite supply of flowers, bottle caps, stamps, badges and other things await. Enjoy!

PS. I know it's a tad cumbersome at first, but after a bit you see the settings in your head. If there's enough interest I might make a live preview version and/or a click to place and set size version.

PSPS. Also (and this might as well be a signature, heh) massive thanks to Shelby for helping with a potentially buggy bit on the other side. Thought I was going crazy there for a bit.

Attached Files

Multigon.zip (22.8 KB)

]]> CorelDRAW/Corel DESIGNER VBA Joe http://forum.oberonplace.com/showthread.php?t=8202 Diminishing shade in a photo http://forum.oberonplace.com/showthread.php?t=8200&goto=newpost Wed, 16 May 2012 08:11:57 GMT Make a selection of the shaded area and run following macro: Dim X As Long Dim Y As Long Dim H As Long Sub Schaduw() Set Doc = ActiveDocument Doc.Mask.Feather 4, pntFeatherInside, pntEdgeLinear Application.CorelScript.EditCopy X = Doc.Mask.PositionX Make a selection of the shaded area and run following macro:

Dim X As Long
Dim Y As Long
Dim H As Long
Sub Schaduw()
Set Doc = ActiveDocument
Doc.Mask.Feather 4, pntFeatherInside, pntEdgeLinear
Application.CorelScript.EditCopy
X = Doc.Mask.PositionX
Y = Doc.Mask.PositionY
H = Doc.Mask.SizeHeight
Application.CorelScript.EditPasteObject
Set Laag = Doc.ActiveLayer
Laag.Move X, Y + H
With PHOTOPAINT.CorelScript
.BitmapEffect "Desaturate", "DesaturateEffect"
.BitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=600"
.BitmapEffect "Invert", "inverteffect"
End With
ActiveLayer.MergeMode = pntMergeOverlay
Set Laag = Doc.ActiveLayer
Laag.Opacity = 50
Doc.Layers.Merge
Doc.Mask.Delete
End Sub

With help of Shelbym :) ]]> Corel Photo-Paint VBA hvw http://forum.oberonplace.com/showthread.php?t=8200 getdocument-filesave-filesclose script not working http://forum.oberonplace.com/showthread.php?t=8199&goto=newpost Tue, 15 May 2012 08:10:28 GMT Hi there,

trying to write a small script for PP X3. But I am not firm with writing vba or scripts:

WITHOBJECT "CorelPHOTOPAINT.Automation.13"
.SetDocumentInfo 4464, 6878
.EditClear 8, 1, 0, 0, 0
.MaskRemove
name$=.GetDocumentName()
.FileSave name$,772,6
.FileClose()

On trying to process the script I get an error that the hard disk is full or that the application is unstable and crashes.

Even tried this script:

GLOBAL Path$
Path$="R:\grafik corel etc\corel scripts\"
Dim FilePath As String
WITHOBJECT "CorelPHOTOPAINT.Automation.13"
.SetDocumentInfo 4464, 6878
.EditClear 8, 1, 0, 0, 0
.MaskRemove
'get: X:\Folder\FileName.Ext
FilePath= .GetDocumentName()
.FileSave FilePath, 1792, 0
.FileClose
END WITHOBJECT

I am sure the scripts are wrong so I cannot process it correctly.

I would like to save the open file, same name same place, just overwriting it and then close the open file.
But the command .fileclose never works for me as the app crashes.

Any ideas? Any help would be appreciated.

Thank you very much in advance.

Kind regards,

berthold ]]> Corel Photo-Paint CS weinberger http://forum.oberonplace.com/showthread.php?t=8199 Corel X5 PatternFill from CDR Page Other Than 1 http://forum.oberonplace.com/showthread.php?t=8194&goto=newpost Sat, 12 May 2012 22:08:02 GMT I am using VBA and ApplyPatternFill to try to get a full color pattern from another CDR file. It works if I use a cdr as the file parameter, but my problem is that it defaults to using the first page. Is there a way I can get a pattern and apply as a fill from various pages other than the first? ... I am using VBA and ApplyPatternFill to try to get a full color pattern from another CDR file. It works if I use a cdr as the file parameter, but my problem is that it defaults to using the first page. Is there a way I can get a pattern and apply as a fill from various pages other than the first? Should I be using the PatternCanvasIndex somehow, or is there another way to assign a fill other than the ApplyPatternFill method? ]]> CorelDRAW/Corel DESIGNER VBA vitoe http://forum.oberonplace.com/showthread.php?t=8194 Little easy object placement macro http://forum.oberonplace.com/showthread.php?t=8192&goto=newpost Fri, 11 May 2012 17:36:09 GMT Hi all!

Haven't been here for a loooong time, but made this super-simple little macro for a task and thought maybe it could come in handy to someone, it's kinda neat.

What it does is it takes a bunch (or just one) of objects and then as you click it places a copy of a random object at a random angle. Here's an example:

So you want to place those sea-things onto the water. Normally arranging them would be quite a chore, here you just select all the objects on top, start the macro, click like crazy, then press ESC to cancel the placement mode and get this:

You can undo any placement or right click to move them mid-placement and, of course, change the positions after you are done placing. But it's a good start. Here's the code, I hope someone finds it useful:

Code:

Sub ObPlacer()

  If ActiveSelection.Shapes.Count = 0 Then

    MsgBox "Please select at least one object.", vbOKOnly



    Exit Sub

    End If



    Dim X As Double, Y As Double

    Dim b As Boolean

    Dim s As Shape

    Dim Pool As ShapeRange

    Dim Count As Single, WhichOne As Single



    Set Pool = ActiveSelectionRange

    Count = Pool.Shapes.Count



    b = False



    While Not b

    

    b = ActiveDocument.GetUserClick(X, Y, 0, 10, False, cdrCursorSmallcrosshair)

        If Not b Then

          WhichOne = Int(Rnd * Count + 1)

          ActiveDocument.BeginCommandGroup ("Placed Object")

          Set s = Pool.Shapes(WhichOne).Duplicate(X - Pool.Shapes(WhichOne).CenterX, Y - Pool.Shapes(WhichOne).CenterY)

          s.Rotate (Rnd * 360)

          ActiveDocument.EndCommandGroup

        End If

    Wend

  End Sub

If/when I finally get my brain to understand shelby's excellent new X6 docker tutorial I might try to make a proper version with settings and such. ]]> CorelDRAW/Corel DESIGNER VBA Joe http://forum.oberonplace.com/showthread.php?t=8192 Corel 11 to Corel 12 http://forum.oberonplace.com/showthread.php?t=8190&goto=newpost Thu, 10 May 2012 02:33:05 GMT I've recently went from CorelDraw 11 to CorelDraw 12. If I download the Jigsaw for 12 do I need to purchase another pass key, or can I use the one I've already purchased. ]]> Jigsaw Puzzle Creator pureevil http://forum.oberonplace.com/showthread.php?t=8190 Hatch problem on Corel Designer Technical http://forum.oberonplace.com/showthread.php?t=8186&goto=newpost Sun, 06 May 2012 14:28:03 GMT Hi. I have a problem. I can apply hatches but cant scale them...not alls, but any of them. Line hatches, when the hatch is created by paralels is ok, I can change his scale by changing "spacing" percentage. But there are some autocad hatches (non paralel line based) that appearently have problems. For example the grass hatch. When I change the spacing value, it gives me something else, but not the hatch scaled. You can see it in my screenshots I attach. Anyone knows what´s the problem?

http://img137.imageshack.us/img137/886/26424905.jpg

http://img32.imageshack.us/img32/4073/90177185.jpg ]]> CorelDRAW/Corel DESIGNER VBA filograph http://forum.oberonplace.com/showthread.php?t=8186 Create Menu and submenus - VBA http://forum.oberonplace.com/showthread.php?t=8185&goto=newpost Sat, 05 May 2012 11:48:34 GMT I am experienced enough in working with VBA Excel. Now I started working in Corel Draw (X5) and I try to make a menu with submenus in existing 'Menu bar'. I tried to find similar threads but I couldn't find something to make things clear enough. I mean there are possibilities to do that using XML but I would like to know if it is possible on not to make that using only VBA.
I found some code and using the next one and a refference to 'Corel - VGC 15.0 Type library' I could create a Menu (control) between the existing ones, but I do not know how to create submenus, to allocate procedures to that...

Code:

Dim oButton As CommandBarControl

Set oButton = Application.CommandBars.Item("Menu Bar").Controls.AddCustomButton("2cc24a3e-fe24-4708-9a74-9c75406eebcd", "Test", 8, False)

With oButton

    .Visible = True

    .ToolTipText = "Test..."

End With

Since I am able to create it I suppose that it sould possible to do also what I need.
If you know that it is not possible using just VBA I will try it using XML, but I would preffer VBA...
Is there another GUID to be used for meniu creation? It looks I created a button, not a menu...

I delete the new Meniu/Control using:

Code:

Application.CommandBars.Item("Menu Bar").Reset

Thanks in advance! ]]> CorelDRAW/Corel DESIGNER VBA FaneDuru http://forum.oberonplace.com/showthread.php?t=8185 request for Recent File Maco updtae for x64 http://forum.oberonplace.com/showthread.php?t=8184&goto=newpost Fri, 04 May 2012 07:10:21 GMT request for Recent File Maco updtae for x64 request for Recent File Maco updtae for x64 ]]> CorelDRAW/Corel DESIGNER VBA aakkaarr http://forum.oberonplace.com/showthread.php?t=8184 detect page edge when inserting text http://forum.oberonplace.com/showthread.php?t=8183&goto=newpost Fri, 04 May 2012 05:08:27 GMT I have a recorded macro that inserts numbers from 1 thru 150 starting from the top left and down but it keeps going past the page edge. How can I tell the function to detect the page and create a new column? I have a recorded macro that inserts numbers from 1 thru 150 starting from the top left and down but it keeps going past the page edge. How can I tell the function to detect the page and create a new column? ]]> CorelDRAW/Corel DESIGNER VBA gorgo http://forum.oberonplace.com/showthread.php?t=8183 <![CDATA[Can't Save Macro Changes?]]> http://forum.oberonplace.com/showthread.php?t=8181&goto=newpost Thu, 03 May 2012 08:15:22 GMT I'm just trying to get my laptop setup and have CorelDRAW X5 installed and copied over my macros... I used to be able to right click on my custom macros and choose edit but I can't do that?...

I also can't save any changes to my existing macros that I copied over to the laptop... I checked and the files in question are not set to read only?...

Now if I create a new Macro then I can right click and choose edit in the Macro Manager and I can save files as expected?

Any ideas why this would be?...

Thank you,

Kevin ]]> CorelDRAW/Corel DESIGNER VBA katruax http://forum.oberonplace.com/showthread.php?t=8181 CQL Query and @Com.Properties not working http://forum.oberonplace.com/showthread.php?t=8179&goto=newpost Wed, 02 May 2012 13:50:15 GMT Trying to retrieve data stored in Shape.Properties ("Fabric", 1) using:

Code:

Sub QueryPropertiesTest()

Dim s As Shape

Dim sr As ShapeRange

ActivePage.Shapes.FindShapes(Query:="@Com.Properties('Fabric', 1)='denim'").CreateSelection

Set sr = ActiveSelectionRange

    For Each s In sr

        MsgBox s.Properties("Fabric", 1)

    Next s

End Sub

It returns the following error:
"Failed to invoke method 'Properties' of object 'COM:IVGShape'. COM error:80020005"
VGCore Reference is set as active, now I've lost all the hairs of my head moving quotes rigth and left with no succes.
Anyone has had similar problems? ]]> CorelDRAW/Corel DESIGNER VBA Jaime Sanllehy http://forum.oberonplace.com/showthread.php?t=8179 Help with User Form http://forum.oberonplace.com/showthread.php?t=8177&goto=newpost Mon, 30 Apr 2012 13:29:52 GMT Public filepath As String, filename As String ______________________________________________________ Kevin Public filepath As String, filename As String
______________________________________________________

Kevin ]]> CorelDRAW/Corel DESIGNER VBA katruax http://forum.oberonplace.com/showthread.php?t=8177 Another language please. http://forum.oberonplace.com/showthread.php?t=8175&goto=newpost Thu, 26 Apr 2012 17:52:51 GMT Hola que tal. Puede ser que el sitio está disponible en idioma español? Gracias. Hello such. It may be that the site is available anywhere Spanish language? Thank you. Hola que tal. Puede ser que el sitio está disponible en idioma español? Gracias.

Hello such. It may be that the site is available anywhere Spanish language? Thank you. ]]> Site News manumdp http://forum.oberonplace.com/showthread.php?t=8175 Find overlapping nodes http://forum.oberonplace.com/showthread.php?t=8173&goto=newpost Mon, 23 Apr 2012 05:21:06 GMT Hi, I have a line segment where there are two overlapping nodes. If I use the FindNodeAtPoint, it always returns the first node at that point. Is there a way to retrieve the absoluteindex of the other node that is present at that position? Thanks is advance Hi,
I have a line segment where there are two overlapping nodes.
If I use the FindNodeAtPoint, it always returns the first node at that point. Is there a way to retrieve the absoluteindex of the other node that is present at that position?

Thanks is advance ]]> CorelDRAW/Corel DESIGNER VBA prongs http://forum.oberonplace.com/showthread.php?t=8173