macro save pdf 3d

[pippo_tina]

Hello everyone,
I happen very often to have to save a sw document in pdf 3d format; someone knows how to develop a macro to speed everything up
? maybe make sure that by pressing a button, you automatically save me on the desktop the pdf3d?

thanks for the courteous attention
good continuation to all

 

[Max-C]

Hello everyone,
I happen very often to have to save a sw document in pdf 3d format; someone knows how to develop a macro to speed everything up
? maybe make sure that by pressing a button, you automatically save me on the desktop the pdf3d?

thanks for the courteous attention
good continuation to all

Hi.
you can save by name->pdf-> save by name and checka "Save as 3d pdf"

 

[fbmfbm]

Hello everyone, I am new my name is emanuele or a problem practically me or bitmap files and when I go to insert them into the working program to make sculpture z and little. There's no program to change the z....

 

[fbmfbm]

but it does not save me in pdf only in cst... but what I need and make it become laser sampling

 

[pippo_tina]

hello max-c
I am already doing what I recommend, my problem is that, finished a project I have to export all the files (apartments and parts) in pdf3d, step, x_t and iges; you will understand that, when talking about a dozen (or hundreds) parts, the thing becomes very laborious.
for other formats I have a macro that automatically saves me the file in 3 formats, keeping the file name, on the desktop; only that I can't do it with the pdf 3d, with my method only saves me a pdf 2d of the current view.
Can you help me?

 

[pippo_tina]

x fbmfbm: sorry but I don't understand what you need.. .
In any case, I believe that you should create a new ad hoc discussion for your problem, otherwise entering it in this discussion, probably, not everyone sees your request.
hello and good luck

 

[Max-C]

hello max-c
I am already doing what I recommend, my problem is that, finished a project I have to export all the files (apartments and parts) in pdf3d, step, x_t and iges; you will understand that, when talking about a dozen (or hundreds) parts, the thing becomes very laborious.
for other formats I have a macro that automatically saves me the file in 3 formats, keeping the file name, on the desktop; only that I can't do it with the pdf 3d, with my method only saves me a pdf 2d of the current view.
Can you help me?

use the scheduler... You can plan everything with him...

 

[teseo]

Hello, everyone, excuse me if I reopen this discussion. . .
I use a macro to save in various formats.
I would need that for pdf 3d.
I don't know how to do it since the pdf file saves me only as normal pdf; someone knows how to do thanks hi
allego macro

 

[jenuary]

Hello, everyone, excuse me if I reopen this discussion. . .
I use a macro to save in various formats.
I would need that for pdf 3d.
I don't know how to do it since the pdf file saves me only as normal pdf; someone knows how to do thanks hi
allego macro

ciao teseo,
ti ho modificato la macro per ottenere il file 3d pdf, vedi sotto il codice.
ti consiglio di dichiarare sempre le variabili (es. dim a as string) e di sostiture
dim part as object con dim part as sldworks.modeldoc2
e
dim swapp as object con dim swapp as sldworks.sldworks
così da avere proprietà e metodi a disposizione nel menu a tendina a fianco del mouse quando scrivi il codice.

a presto

'codice

dim swapp as sldworks.sldworks
dim part as sldworks.modeldoc2
dim swmodeldocext as sldworks.modeldocextension
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim swexportpdfdata as sldworks.exportpdfdata
dim lerrors as long
dim lwarnings as long

sub main()
set swapp = _
application.sldworks
set part = swapp.activedoc
set swmodeldocext = part.extension
spathname = part.getpathname
srev = part.custominfo("revisione")
elenco_rev = "abcdefghilmnopqrstuvz"
k = 0
w = ""
for x = 1 to len(spathname)
y = mid(spathname, x, 1)
if y = "." then goto ex
w = w + y
if y = "\" then
k = k + 1
w = ""
end if
next x
ex:
dim a as string
a = "c:\users\ufftecnico\desktop\" + w + ".pdf"
set swexportpdfdata = swapp.getexportfiledata(1)
if swexportpdfdata is nothing then msgbox "nothing"

swexportpdfdata.viewpdfaftersaving = false
swexportpdfdata.exportas3d = true

boolstatus = swmodeldocext.saveas(a, 0, 0, swexportpdfdata, lerrors, lwarnings)

end sub

 

[teseo]

big space thank you

 

[jenuary]

if you hook the macro to the savebackgroud program you can get it automatically to save the part.

 

[teseo]

Thank you.