OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 08-06-2005, 11:29
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
 
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe
Default Registration Marks

I posted this in the General Corel Draw Forum, but no one seemed to want to answer it. I thought if I posted it here, I might get an answer faster...

Quote:
Is it possible under CD12 to create your own registration marks that will print on every plate of a separation? I am in screen printing and the small registration marks that Corel uses are of no use to me. They usually just wash right out of the screens.

If I can't change the default set of marks, how do I change the color of marks drawn in the page to registration color to allow them to print on every plate?
__________________
Sean
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote
  #2  
Old 08-06-2005, 16:08
RobC
Guest
 
Posts: n/a
Default

I would recommend making your own regmarks. Either create a file with your regmark in it which you will import and color and place, or draw it from scratch each time with the corelDraw objects.


here is a snippet I wrote for a client

Code:
 'do regmarks
    
        If chkRegMarks.Value = True Then
            
            On Error Resume Next
            dDoc.Pages(1).Activate
            If numLayers > 1 Then
                'import the first one
                ActiveLayer.Import adors!regmark_file, 1795
                adors.Close
                Set myReg = dDoc.ActiveShape
                'clone it to the opposite corner
                ActiveSelection.Clone dDoc.ActivePage.SizeWidth - (2 * ActiveSelection.PositionX + ActiveSelection.SizeWidth), dDoc.ActivePage.SizeHeight - (2 * ActiveSelection.PositionY + ActiveSelection.SizeHeight)
                
                iOutline = 497
                CMDColorQ.Parameters(2) = arrColors(0, 0, 1)
                Set rsColorIndex = CMDColorQ.Execute
                iOutline = rsColorIndex(1)
                
                iFill = 545 'white fill
                CMDColorQ.Parameters(2) = arrColors(0, 1, 1)
                Set rsColorIndex = CMDColorQ.Execute
                iFill = rsColorIndex(1)
                
                For Each s In myReg.Shapes
                    s.Outline.Color.PaletteIndex = iOutline
                    s.Fill.UniformColor.PaletteIndex = iFill
                Next
                
                myReg.CreateSelection
                'make all the other reg marks
                For i = 2 To numLayers - 1
                    dupRegMarks
                    Set myReg = dDoc.ActiveShape
                    ActiveSelection.Clone dDoc.ActivePage.SizeWidth - (2 * ActiveSelection.PositionX + ActiveSelection.SizeWidth), dDoc.ActivePage.SizeHeight - (2 * ActiveSelection.PositionY + ActiveSelection.SizeHeight)
                     CMDColorQ.Parameters(2) = arrColors(0, i, 1)
                    Set rsColorIndex = CMDColorQ.Execute
                    iFill = 545
                    iFill = rsColorIndex(1)
                    
                    For Each s In myReg.Shapes
                        s.Outline.Color.PaletteIndex = iOutline
                        s.Fill.UniformColor.PaletteIndex = iFill
                    Next
                    myReg.CreateSelection
                Next
            End If


Code:
Sub dupRegMarks()
    ' Description: Duplicates reg mark down the size of exising reg mark
    '
    ActiveShape.Duplicate(0, -ActiveShape.SizeHeight).CreateSelection
End Sub
I only import my regmark 1 time, then use the DupRegMark routine to duplicate it into the correct location. Coloring this regmark works easily because it consists of a circle with a fill and outline, and crosshairs consisting of outline only and no visible fill. The other neat trick here is cloning the regmarks into the mirror-image location (upper left mirrors to lower right). I only need to color the regmark once to also affect the clone, and later, when I want to delete or re-apply new regmarks, i only need to lasso the originals, and all of them get deleted.

the only other note I should add is that cmdColorQ (which I reference) is an ADO query that returns the color values that I will be applying. Your values will obviously come from someplace else.
Reply With Quote
  #3  
Old 14-06-2005, 13:47
Alex's Avatar
Alex Alex is offline
Administrator
 
Join Date: Nov 2002
Posts: 1,940
Blog Entries: 4
Default

Replied in the General forum: http://forum.oberonplace.com/showthread.php?t=1047
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Registration Marks ddonnahoe General 2 15-06-2005 16:06
New computer - can't find registration code Nikolette Calendar Wizard 1 31-08-2004 18:04


All times are GMT -5. The time now is 22:24.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com