エクスポート "自動" idw に pdf-dxf

[Catafratto]

secondo me hai copiato la funzione isolanome prima della riga contenete "end sub": la funzione deve essere copiata alla fine di tutto, fuori dal blocco "sub - end sub". comunque ti riposto tutto:

public sub pubblicadxfdwgpdf()
    
    ' obtain reference to drawing
    dim odoc as document
    set odoc = thisapplication.activedocument
    
    
    ' destination folder
    ' ---------------------------------------------------
    dim sexportpath as string
    sexportpath = "c:\users\utente\desktop\dwg-dxf-pdf\"
    ' ---------------------------------------------------
    
    if odoc.documenttype <> kdrawingdocumentobject then
        msgbox ("deve essere aperta una tavola")
        exit sub
    end if
    
    ' get the filename with no path
    dim sfilename as string
    sfilename = sexportpath & isolanome(odoc.fullfilename, true)
    
    ' get the dwg translator add-in.
    dim dwgaddin as translatoraddin
    set dwgaddin = thisapplication.applicationaddins.itembyid("{c24e3ac2-122e-11d5-8e91-0010b541cd80}")

    ' get the dxf translator add-in.
    dim dxfaddin as translatoraddin
    set dxfaddin = thisapplication.applicationaddins.itembyid("{c24e3ac4-122e-11d5-8e91-0010b541cd80}")
    
    ' get the pdf translator add-in.
    dim pdfaddin as translatoraddin
    set pdfaddin = thisapplication.applicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
    
    dim strinifile as string
    
    
    ' common init
    ' create a context object
    dim ocontext as translationcontext
    set ocontext = thisapplication.transientobjects.createtranslationcontext
    ocontext.type = kfilebrowseiomechanism
      
    ' create a namevaluemap object
    dim ooptions as namevaluemap
    set ooptions = thisapplication.transientobjects.createnamevaluemap

    ' create a datamedium object
    dim odatamedium as datamedium
    set odatamedium = thisapplication.transientobjects.createdatamedium

    ' ---------------------------------------------------------------------------
    ' dwg
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dwgaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
        ' file with exportation options
        strinifile = "c:\tempdwgout.ini"
        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dwg"


    'publish document.
    call dwgaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    
    ' -------------------------------
    ' fine dwg
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' dxf
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dxfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
    
        ' file with exportation options
        strinifile = "c:\tempdxfout.ini"

        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dxf"

    'publish document.
    call dxfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine dxf
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' pdf
    ' -------------------------------

    ' check whether the translator has 'savecopyas' options
    if pdfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then

        ' options for drawings...

        ooptions.value("all_color_as_black") = 0

        'ooptions.value("remove_line_weights") = 0
        'ooptions.value("vector_resolution") = 400
        'ooptions.value("sheet_range") = kprintallsheets
        'ooptions.value("custom_begin_sheet") = 2
        'ooptions.value("custom_end_sheet") = 4
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".pdf"


    'publish document.
    call pdfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine pdf
    ' ---------------------------------------------------------------------------
end sub

'funzione che restituisce il nome del file togliendo il path ed il suffisso
public function isolanome(byval nomefile as string, optional trunc as boolean) as string
    
    'toglie il .ipt
    if trunc = true then
        nomefile = strings.left(nomefile, len(nomefile) - 4)
    end if
    
    dim pos as integer
    'ciclo che rimuove il path: trova "\" e tiene tutto a dx
    do
        pos = instr(nomefile, "\")
        nomefile = strings.right(nomefile, len(nomefile) - pos)
    loop until pos = 0
    isolanome = nomefile
end function

fammi sapere!

 

[mario.bernardi]

... quello che hanno fatto è stato togliere l'esecuzione automatica legata agli eventi (es. all'apertura, alla chiusura, ecc.)...

ciao, era proprio questo che volevo dire...

far girare la macro a livello applicazione, per me, significa non immettere il codice in un .idw, ma caricarlo in memoria all'apertura di inventor,
(usando il default.ivb per intenderci) e far eseguire la macro vba all'evento di chiusura/salvataggio del documento, dichiarando le variabili globali.
ho provato anche con regole e trigger esterni, ma niente da fare, le mie risorse intellettive non me lo hanno permesso

ho provato a fare il tasto, con il codice associato e funziona, ma è praticamente la stessa cosa che si ottiene con l'esporta pdf del menu,
a me servirebbe una soluzione "silente", dove se uno non si ricorda di esportare il .pdf, lo fa' in automatico, per evitare discrepanze idw-pdf.

grazie comunque e buon lavoro.

 

[lollo76]

opss! perfetto ora funziona tutto!!! grazie milleee!

 

[lollo76]

...altra richiesta... ne approfitto ma non so se è un operazione troppo onerosa in termini di tempo. la propongo:
i miei file hanno nomenclatura nome.idw e i file esportati devono avere questa: nome (rev.01) pn123456.pdf dove 01 identifica la revisione e 123456 il codice di ricambio che inserisco manualmente.
richiedo se sarebbe possibile inserire nel codice sopra un comando con il quale, una volta lanciata la macro, esca una finestra con il campo rev.? e il campo pn? nei quali inserirò 01 e 123456 in modo tale che poi i file creati abbiano la nomenclatura automatizzata nome (rev.01) pn123456.pdf/dxf

chiedo troppo?

 

[Catafratto]

no, è roba da poco: al primo momento di fiacca nella giornata te lo faccio. sono forse dati che hai nelle iproperties del modello?

 

[lollo76]

si solo il codice pn come proprietà personalizzata p/n che compilo manualmente sia nell'ipt che nell'idw.

 

[lollo76]

...altra richiesta... ne approfitto ma non so se è un operazione troppo onerosa in termini di tempo. la propongo:
i miei file hanno nomenclatura nome.idw e i file esportati devono avere questa: nome (rev.01) pn123456.pdf dove 01 identifica la revisione e 123456 il codice di ricambio che inserisco manualmente.
richiedo se sarebbe possibile inserire nel codice sopra un comando con il quale, una volta lanciata la macro, esca una finestra con il campo rev.? e il campo pn? nei quali inserirò 01 e 123456 in modo tale che poi i file creati abbiano la nomenclatura automatizzata nome (rev.01) pn123456.pdf/dxf

chiedo troppo?

ops mi sono accorto di un errore. la nomenclatura corretta è nome rev.01 (pn123456).pdf/dxf

 

[Catafratto]

prova questo (sovrascrivi tutta la roba "vecchia"):
prima di chederti il codice la macro cerca di leggere la ipropertiy nella tavola. se non c'è ti chiede il codice.
dorai aggiornare la macro con il nome della tua iproperty

public sub pubblicadxfdwgpdf()
    
    ' obtain reference to drawing
    dim odoc as document
    set odoc = thisapplication.activedocument
    
    
    ' destination folder
    ' ---------------------------------------------------
    dim sexportpath as string
    sexportpath = "c:\users\utente\desktop\dwg-dxf-pdf\"
    ' ---------------------------------------------------
    
    if odoc.documenttype <> kdrawingdocumentobject then
        msgbox ("deve essere aperta una tavola")
        exit sub
    end if
    
    ' get the filename with no path
    dim sfilename as string
    sfilename = sexportpath & isolanome(odoc.fullfilename, true)
    
    ' numero di revisione
    dim srev as string
    srev = inputbox("revisione:? ", "inserimento numero di revisione", "00")
    
    'legge le iproperties personalizzate:
    '-------------------------------------------------------------------------------------------------------
    dim opropsets as propertysets
    set opropsets = odoc.propertysets
    
    'custom
    '-------------------------------------------------------------------------------------------------------
    dim ocustompropset as propertyset
    set ocustompropset = opropsets.item("{d5cdd505-2e9c-101b-9397-08002b2cf9ae}")

    on error resume next
    dim scod as string

    ' sostituire "codice" con il nome che si usa per l'iproperty che interessa
    scod = ocustompropset.item("codice").value
    
    if scod = "" then
        scod = inputbox("codice ricambio (inserimento manuale):? ", "inserimento manuale codice ricambio")
    end if
    
    sfilename = sfilename & " rev." & srev & " (" & scod & ")"
    
    ' get the dwg translator add-in.
    dim dwgaddin as translatoraddin
    set dwgaddin = thisapplication.applicationaddins.itembyid("{c24e3ac2-122e-11d5-8e91-0010b541cd80}")

    ' get the dxf translator add-in.
    dim dxfaddin as translatoraddin
    set dxfaddin = thisapplication.applicationaddins.itembyid("{c24e3ac4-122e-11d5-8e91-0010b541cd80}")
    
    ' get the pdf translator add-in.
    dim pdfaddin as translatoraddin
    set pdfaddin = thisapplication.applicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
    
    dim strinifile as string
    
    
    ' common init
    ' create a context object
    dim ocontext as translationcontext
    set ocontext = thisapplication.transientobjects.createtranslationcontext
    ocontext.type = kfilebrowseiomechanism
      
    ' create a namevaluemap object
    dim ooptions as namevaluemap
    set ooptions = thisapplication.transientobjects.createnamevaluemap

    ' create a datamedium object
    dim odatamedium as datamedium
    set odatamedium = thisapplication.transientobjects.createdatamedium

    ' ---------------------------------------------------------------------------
    ' dwg
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dwgaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
        ' file with exportation options
        strinifile = "c:\tempdwgout.ini"
        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dwg"


    'publish document.
    call dwgaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    
    ' -------------------------------
    ' fine dwg
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' dxf
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dxfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
    
        ' file with exportation options
        strinifile = "c:\tempdxfout.ini"

        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dxf"

    'publish document.
    call dxfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine dxf
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' pdf
    ' -------------------------------

    ' check whether the translator has 'savecopyas' options
    if pdfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then

        ' options for drawings...

        ooptions.value("all_color_as_black") = 0

        'ooptions.value("remove_line_weights") = 0
        'ooptions.value("vector_resolution") = 400
        'ooptions.value("sheet_range") = kprintallsheets
        'ooptions.value("custom_begin_sheet") = 2
        'ooptions.value("custom_end_sheet") = 4
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".pdf"


    'publish document.
    call pdfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine pdf
    ' ---------------------------------------------------------------------------
end sub

'funzione che restituisce il nome del file togliendo il path ed il suffisso
public function isolanome(byval nomefile as string, optional trunc as boolean) as string
    
    'toglie il .ipt
    if trunc = true then
        nomefile = strings.left(nomefile, len(nomefile) - 4)
    end if
    
    dim pos as integer
    'ciclo che rimuove il path: trova "\" e tiene tutto a dx
    do
        pos = instr(nomefile, "\")
        nomefile = strings.right(nomefile, len(nomefile) - pos)
    loop until pos = 0
    isolanome = nomefile
end function

 

[lollo76]

s t r e p i t o s o !!! grazie mille!!! funziona tutto perfettamente. :finger:

 

[Esselle]

mi intrufolo per una richiesta : se volessi salvare solo in dwg e pdf e nella stessa cartella dove sta il file idw che modifiche devo apportare alla macro? ho provato, ma non capendoci nulla ho fatto dei tentativi infruttuosi :frown:. premetto che già adesso uso una macro (trovata sempre tra queste pagine) per salvare nei due formati, ma attivata da pulsante personalizzato sulla barra strumenti.

grazie in anticipo!

 

[MauroM]

secondo me hai copiato la funzione isolanome prima della riga contenete "end sub": la funzione deve essere copiata alla fine di tutto, fuori dal blocco "sub - end sub". comunque ti riposto tutto:

public sub pubblicadxfdwgpdf()
    
    ' obtain reference to drawing
    dim odoc as document
    set odoc = thisapplication.activedocument
    
    
    ' destination folder
    ' ---------------------------------------------------
    dim sexportpath as string
    sexportpath = "c:\users\utente\desktop\dwg-dxf-pdf\"
    ' ---------------------------------------------------
    
    if odoc.documenttype <> kdrawingdocumentobject then
        msgbox ("deve essere aperta una tavola")
        exit sub
    end if
    
    ' get the filename with no path
    dim sfilename as string
    sfilename = sexportpath & isolanome(odoc.fullfilename, true)
    
    ' get the dwg translator add-in.
    dim dwgaddin as translatoraddin
    set dwgaddin = thisapplication.applicationaddins.itembyid("{c24e3ac2-122e-11d5-8e91-0010b541cd80}")

    ' get the dxf translator add-in.
    dim dxfaddin as translatoraddin
    set dxfaddin = thisapplication.applicationaddins.itembyid("{c24e3ac4-122e-11d5-8e91-0010b541cd80}")
    
    ' get the pdf translator add-in.
    dim pdfaddin as translatoraddin
    set pdfaddin = thisapplication.applicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
    
    dim strinifile as string
    
    
    ' common init
    ' create a context object
    dim ocontext as translationcontext
    set ocontext = thisapplication.transientobjects.createtranslationcontext
    ocontext.type = kfilebrowseiomechanism
      
    ' create a namevaluemap object
    dim ooptions as namevaluemap
    set ooptions = thisapplication.transientobjects.createnamevaluemap

    ' create a datamedium object
    dim odatamedium as datamedium
    set odatamedium = thisapplication.transientobjects.createdatamedium

    ' ---------------------------------------------------------------------------
    ' dwg
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dwgaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
        ' file with exportation options
        strinifile = "c:\tempdwgout.ini"
        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dwg"


    'publish document.
    call dwgaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    
    ' -------------------------------
    ' fine dwg
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' dxf
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dxfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
    
        ' file with exportation options
        strinifile = "c:\tempdxfout.ini"

        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".dxf"

    'publish document.
    call dxfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine dxf
    ' ---------------------------------------------------------------------------
    
    
    ' ---------------------------------------------------------------------------
    ' pdf
    ' -------------------------------

    ' check whether the translator has 'savecopyas' options
    if pdfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then

        ' options for drawings...

        ooptions.value("all_color_as_black") = 0

        'ooptions.value("remove_line_weights") = 0
        'ooptions.value("vector_resolution") = 400
        'ooptions.value("sheet_range") = kprintallsheets
        'ooptions.value("custom_begin_sheet") = 2
        'ooptions.value("custom_end_sheet") = 4
    end if

    'set the destination file name
    odatamedium.filename = sfilename & ".pdf"


    'publish document.
    call pdfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine pdf
    ' ---------------------------------------------------------------------------
end sub

'funzione che restituisce il nome del file togliendo il path ed il suffisso
public function isolanome(byval nomefile as string, optional trunc as boolean) as string
    
    'toglie il .ipt
    if trunc = true then
        nomefile = strings.left(nomefile, len(nomefile) - 4)
    end if
    
    dim pos as integer
    'ciclo che rimuove il path: trova "\" e tiene tutto a dx
    do
        pos = instr(nomefile, "\")
        nomefile = strings.right(nomefile, len(nomefile) - pos)
    loop until pos = 0
    isolanome = nomefile
end function

fammi sapere!

funziona benissimo anche a me, grazie mille catafratto.
ne approfitto per chiederti una cosa : si potrebbe fare in modo che faccia il salvataggio non solo del singolo file visualizzato ma di tutti i file aperti in quel momento ? oppure di una cartella intera ?

 

[Catafratto]

sì, certo, si può fare tutto.
ci vuole più tempo, però :tongue:

appena posso guardo come fare.

buon lunedì a tutti!

 

[Esselle]

grazie per il tempo che hai da dedicarci! :finger:

 

[Catafratto]

mi intrufolo per una richiesta : se volessi salvare solo in dwg e pdf e nella stessa cartella dove sta il file idw che modifiche devo apportare alla macro? ho provato, ma non capendoci nulla ho fatto dei tentativi infruttuosi :frown:. premetto che già adesso uso una macro (trovata sempre tra queste pagine) per salvare nei due formati, ma attivata da pulsante personalizzato sulla barra strumenti.

grazie in anticipo!

anche questa la attiveresti così, quindi forse non ho ben capito la richiesta...

 

[Esselle]

sono io che spiego da bestia...vorrei che al salvataggio dell'idw si creino in automatico nella stessa cartella dove sta l'idw il pdf e il dwg!

 

[MauroM]

prova a vedere, mi sembra di ricordare che fosse spiegato in questa discussione.
parla di pdf ma anche di dwg
http://www.cad3d.it/forum1/showthread.php?38903-esportare-tavola-in-pdf-in-automatico

 

[Esselle]

questa è la discussione da cui ho preso la macro che uso attualmente pigiando i due pulsanti, ho letto e riletto non mi sembra che si possa fare in automatico al salvataggio, o mi è sfuggito qualcosa?

 

[Catafratto]

questa è la discussione da cui ho preso la macro che uso attualmente pigiando i due pulsanti, ho letto e riletto non mi sembra che si possa fare in automatico al salvataggio, o mi è sfuggito qualcosa?

no, non ti sfugge nulla: le macro non si attivano più automaticamente.
si può:
1) premere un tasto che ti salva nel formato inventor e poi ti fa l'esportazione, ma non funziona nel caso di salvataggi in altro modo, come chiudendo il file;

2) usare (l'ottimo) consiglio di erreerre a inizio discussione creando una regola ilogic (riallego il link) http://autodeskmfg.typepad.com/blog/2012/01/using-inventor-ilogic-to-save-multipl-formats.html, che però puoi praticamente fare solo con i file nuovi mettendolo dentro al template. ilogic gestisce bene le attivazioni mediante trigger di evento (apri, chiudi, salva, modifica ecc. ecc.)

se vuoi la prima soluzione è un attimo, fammi sapere. per la seconda vedi un po' se con il link riesci a fare, le righe di codice sono chiare...

- - - aggiornato - - -

funziona benissimo anche a me, grazie mille catafratto.
ne approfitto per chiederti una cosa : si potrebbe fare in modo che faccia il salvataggio non solo del singolo file visualizzato ma di tutti i file aperti in quel momento ? oppure di una cartella intera ?

non ho ancora avuto tempo, sorry

 

[Esselle]

no, non ti sfugge nulla: le macro non si attivano più automaticamente.
si può:
1) premere un tasto che ti salva nel formato inventor e poi ti fa l'esportazione, ma non funziona nel caso di salvataggi in altro modo, come chiudendo il file;

2) usare (l'ottimo) consiglio di erreerre a inizio discussione creando una regola ilogic (riallego il link) http://autodeskmfg.typepad.com/blog/2012/01/using-inventor-ilogic-to-save-multipl-formats.html, che però puoi praticamente fare solo con i file nuovi mettendolo dentro al template. ilogic gestisce bene le attivazioni mediante trigger di evento (apri, chiudi, salva, modifica ecc. ecc.)

se vuoi la prima soluzione è un attimo, fammi sapere. per la seconda vedi un po' se con il link riesci a fare, le righe di codice sono chiare...

grazie mille catafratto, opterei per la prima soluzione, dato che rispetto ad ora mi risparmia comunque "click" e vale per i file esistenti.

 

[Catafratto]

grazie mille catafratto, opterei per la prima soluzione, dato che rispetto ad ora mi risparmia comunque "click" e vale per i file esistenti.

mi pare funzioni

    ' obtain reference to drawing
    dim odoc as document
    set odoc = thisapplication.activedocument
    
    if odoc.documenttype <> kdrawingdocumentobject then
        msgbox ("deve essere aperta una tavola")
        exit sub
    end if
    
    ' save the file with dependants
    odoc.save2
    
    dim fn as string
    dim dwgfn as string
    dim pdffn as string
    
    ' generate the file names
    fn = odoc.fullfilename
    dwgfn = strings.left(fn, len(fn) - 4) & ".dwg"
    pdffn = strings.left(fn, len(fn) - 4) & ".pdf"
    
    
    ' get the dwg translator add-in.
    dim dwgaddin as translatoraddin
    set dwgaddin = thisapplication.applicationaddins.itembyid("{c24e3ac2-122e-11d5-8e91-0010b541cd80}")

    ' get the dxf translator add-in.
    dim dxfaddin as translatoraddin
    set dxfaddin = thisapplication.applicationaddins.itembyid("{c24e3ac4-122e-11d5-8e91-0010b541cd80}")
    
    ' get the pdf translator add-in.
    dim pdfaddin as translatoraddin
    set pdfaddin = thisapplication.applicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
    
    dim strinifile as string
    
    
    ' common init
    ' create a context object
    dim ocontext as translationcontext
    set ocontext = thisapplication.transientobjects.createtranslationcontext
    ocontext.type = kfilebrowseiomechanism
      
    ' create a namevaluemap object
    dim ooptions as namevaluemap
    set ooptions = thisapplication.transientobjects.createnamevaluemap

    ' create a datamedium object
    dim odatamedium as datamedium
    set odatamedium = thisapplication.transientobjects.createdatamedium

    ' ---------------------------------------------------------------------------
    ' dwg
    ' -------------------------------
    
    ' check whether the translator has 'savecopyas' options
    if dwgaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then
        ' file with exportation options
        strinifile = "c:\tempdwgout.ini"
        ' create the name-value that specifies the ini file to use.
        ooptions.value("export_acad_inifile") = strinifile
    end if

    'set the destination file name
    odatamedium.filename = dwgfn


    'publish document.
    call dwgaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    
    ' -------------------------------
    ' fine dwg
    ' ---------------------------------------------------------------------------
  
    
    ' ---------------------------------------------------------------------------
    ' pdf
    ' -------------------------------

    ' check whether the translator has 'savecopyas' options
    if pdfaddin.hassavecopyasoptions(odoc, ocontext, ooptions) then

        ' options for drawings...

        ooptions.value("all_color_as_black") = 0

        'ooptions.value("remove_line_weights") = 0
        'ooptions.value("vector_resolution") = 400
        'ooptions.value("sheet_range") = kprintallsheets
        'ooptions.value("custom_begin_sheet") = 2
        'ooptions.value("custom_end_sheet") = 4
    end if

    'set the destination file name
    odatamedium.filename = pdffn


    'publish document.
    call pdfaddin.savecopyas(odoc, ocontext, ooptions, odatamedium)
    ' -------------------------------
    ' fine pdf
    ' ---------------------------------------------------------------------------
end sub