Export DXF.

hi what was your actual concern do you want to take all the layer in dxf at once

Hai gowtham thanks for your reply it actually takes much time for taking again and again if it once means very easy  thats why if it possible can you please say how to do.

Thanks a lot  gowtham

Basically you need to write a conversion file for each film. Then run the a2dxf command line utility to create a dxf.

Something like this:

    l_cnvFiles = nil
    designName = axlCurrentDesign()
    foreach(filmName axlGetParam("artwork")->groupMembers
        f = strcat("DXF_" filmName)
        p = axlDMOpenFile("ALLEGRO_CNV" f "w")
        fprintf(p "#This is the Layer Conversion File used for\n")
        fprintf(p "#importing DXF data into Allegro/APD.\n\n")
        fprintf(p "#CLASS!SUBCLASS!DXF_LAYER!\n\n")
        foreach(layer axlGetParam(strcat("artwork:" filmName))->groupMembers
            layerStr = parseString(layer "/")
            fprintf(p "%s!\n%s!%s!\n\n" car(layerStr) cadr(layerStr) strcat(car(layerStr) "_" cadr(layerStr)))
        )
        fprintf(p "#END\n")
        push(get_filename(p) l_cnvFiles)
        axlDMClose(p)
        sprintf(cmd "a2dxf -$ -u MM -a 3 -f 12 -c L \"%s.cnv\" \"%s/%s_%s.dxf\" %%s" f getWorkingDir() designName filmName)
        axlRunBatchDBProgram("Creating DXF File" cmd ?warnProgram t ?noExitMsgs t)
    )
    errset(mapcar('deleteFile l_cnvFiles) t)

Take a look at the help of 'a2dxf' for the possible command line options.

Thanks a lott

Hai Bruekers DXF export is perfectly  working As like that any way  to Export  .PDF file Please guide me

Is there a way to get .pdf file as like this using skill code if it possible please share me the code

Is there a way to get .pdf file as like this using skill code if it possible please share me the code

Hi vimal,

skill is not required for art to pdf. you can use file->export->pdf which will export all artwork to a single/multiple page pdf as per your selection.if that option is not working you need to install intelligent pdf extension to make it work or install latest hotfix of your tool

Regards,

Gowtham

Thank you

Hi Vimal, 

As I am new and little confused, can you please share the full Skillcode and the way to execute it?

Hi Sivaji,

Actually that is a full code add function thats enougth to execute DXF file ok i too attach the code below.

DXF.il

 procedure( DXF()
 l_cnvFiles = nil
    designName = axlCurrentDesign()
    foreach(filmName axlGetParam("artwork")->groupMembers
        f = strcat("DXF_" filmName)
        p = axlDMOpenFile("ALLEGRO_CNV" f "w")
        fprintf(p "#This is the Layer Conversion File used for\n")
        fprintf(p "#importing DXF data into Allegro/APD.\n\n")
        fprintf(p "#CLASS!SUBCLASS!DXF_LAYER!\n\n")
        foreach(layer axlGetParam(strcat("artwork:" filmName))->groupMembers
            layerStr = parseString(layer "/")
            fprintf(p "%s!\n%s!%s!\n\n" car(layerStr) cadr(layerStr) strcat(car(layerStr) "_" cadr(layerStr)))
        )
        fprintf(p "#END\n")
        push(get_filename(p) l_cnvFiles)
        axlDMClose(p)
        sprintf(cmd "a2dxf -$ -u MM -a 3 -f 12 -c L \"%s.cnv\" \"%s/%s_%s.dxf\" %%s" f getWorkingDir() designName filmName)
        axlRunBatchDBProgram("Creating DXF File" cmd ?warnProgram t ?noExitMsgs t)
    )
    errset(mapcar('deleteFile l_cnvFiles) t)
)
axlCmdRegister("DXF" 'DXF)

To execute this file:

Place the .il file in .brd file location.

Then in allegro tool use command mentioned below.

1. In CIW Command

2. load("DXF.il")

3. DXF()

Thank you Vimal.