Save File !!!

[Anonymous]

Please,

How make to create a Lisp for save drawing in only one local ???
Example: ( save as "c:\ new \ cad.dwg" )

Como posso criar uma rotina para salvar desenhos em um mesmo local, onde
apenas digito o nome do novo desenho após o comando???

Fabricio

[hmsilva]

Hi Fabricio,

try this...

(defun c:MySaveas (/ fld ndwg)
(vl-load-com)
(setq fld (getvar "filedia"))
(setvar "filedia" 0)
(setq ndwg (getstring
(strcat "\nEnter new drawing name : ")
)
)
(setq ndwg (strcat "c:/test/" ndwg ".dwg")) ;Modify the path...
(command "_saveas" "" ndwg "")
(setvar "filedia" fd)
(princ)
)

Cheers

Henrique

P.S. Boa sorte...

[Anonymous]

The Lisp function is very good.....

Thank you, Henrique ....

A Lisp funcionou beleza, apenas ajustei ela como necessito....
Obrigado, Henrique.

Fabricio - Brasil

escreveu na mensagem news:5388804@discussion.autodesk.com...
Hi Fabricio,

try this...

(defun c:MySaveas (/ fld ndwg)
(vl-load-com)
(setq fld (getvar "filedia"))
(setvar "filedia" 0)
(setq ndwg (getstring
(strcat "\nEnter new drawing name : ")
)
)
(setq ndwg (strcat "c:/test/" ndwg ".dwg")) ;Modify the path...
(command "_saveas" "" ndwg "")
(setvar "filedia" fd)
(princ)
)

Cheers

Henrique

P.S. Boa sorte...

[hmsilva]

You're welcome, Fabricio...