PlannerRoad
Guest
adiciona o novo comando exportação Na autocade 2008.
http://usa.autodesk.com/adsk/servlet/index?siteid=123112&id=9831551&linkid=9240618
http://usa.autodesk.com/adsk/servlet/index?siteid=123112&id=9831551&linkid=9240618
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Tentei e funciona. Certamente a razão é o que dizes.Quem não gosta porque é o autocad incluído no inventário pro 2008 pacote?
Alguém tentou e trabalhou? .
por curiosidade Fui testá-lo com um arquivo muito pesado e na verdade não funciona bem. o arquivo que gera é corrompido.Alguém o tentou de forma adjuntiva?
para mim só funciona com pequenos arquivos. .
Fiz um teste rápido. Estou errado com 2008! :confuso:Obrigado plannerroad,
Já baixei este lisp e tentei... mas não vejo nenhum resultado.
Sabe usá-la?
;
;;; layoutstodwgs.lsp
;;; criado 2000-03-27
;;;; por jimmy bergmark
;;; copyright (c) 1997-2006 jtb mundo, todos os direitos reservados
;;; website: www.jtbworld.com
;;; e-mail: [email protected]
;
;;; 2003-12-12-12 define ucs ao mundo no espaço do modelo para evitar problemas com wblock
;
;;; para autocad 2000, 2000i, 2002, 2004
;
;
;;; cria desenhos de todos os layouts.
;;; somente um layout de cada vez é salvo, o resto é excluído.
;;; isto é útil quando você quer salvar para pré a2k versões.
;;; os novos desenhos são salvos no caminho dos desenhos atuais
;;; e substitui desenhos existentes.
;
(defun c:layoutstodwgs (/ fn path msg msg2 fileprefix)
(defun delalllayouts (servidor / tabname)
(vlax-for layout
(vla-get-layouts
(vla-get-activedocument (vlax-get-acad-object))
)
(se)
(e
(/= (setq tabname (strcase (vla-get-name layout)) "modelo")
(/= tabname (strcase keeper))
)
(dispositivo de exclusão)
)
)
)
(vl-load-com)
(setq msg ")
(setq msg2 ")
(comando "._undo" "_be")
(setq fileprefix (getstring "enter filename prefix: "))))
(foreach lay (layoutlist)
(se (/= leigo "modelo")
(progn
(comando "_.undo" "_m")
(atrasos leigos)
(setvar "tilemode" 1)
(command "ucs"[COLOR=red][B]Não.[/B][/COLOR]w)
(setvar "tilemode" 0)
(setq path (getvar "dwgprefix"))
(setq fn (strcat path fileprefix lay ".dwg"))
(se (findfile fn)
(progn
(comando ".[B][COLOR=#ff0000]Não.[/COLOR][/B]-wblock" fn "_y"
(segundo 1 (logand 1 (getvar "cmdactive")))
(progn
(setq msg (strcat msg "\n" fn))
(comando "*")
)
(setq msg2 (strcat msg2 "\n" fn))
)
)
(progn
(comando ".[B][COLOR=#ff0000]Não.[/COLOR][/B]-Wblock" fn "*")
(setq msg (strcat msg "\n" fn))
)
)
(comando "_.undo" "_b")
)
)
)
(se)
(progn
(prompt "\nfollowing desenhos foram criados:")
(prompt msg)
)
)
(se)
(progn
(prompt "\nfollowing desenhos não foram criados:")
(prompt msg)
)
)
(comando "._undo" "_e")
(textoscr)
(princ)
)