• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Leggi altro.

Esportare layout in singoli dwg con AutoCAD 2008

MauroTC

Utente Standard
Professione: Disegnatore/Progettista
Software: Inventor 2015 + Autocad Mech.2015
Regione: Piemonte
#2
Sarebbe interessante ed era quello che farebbe per me, visto che dovrei ottenere un dwg nello spazio modello da un layout.
Solo che ho provato ad installarlo ma si blocca al momento che procedo con l'installazione, dicendomi che questo tool richiede che sia installato autocad 2008.
Ma io autocad 2008 ce l'ho! E non se ne accorge...

Chissà che no gli piaccia perchè si tratta dell'autocad incluso nel pacchetto Inventor pro 2008 ?

Qualcuno ha provato e gli funziona?

Grazie anticipatamente.
 

giangiboy

Utente poco attivo
Professione: architetto
Software: autocad
Regione: italia
#4
qualcuno lo ha provato in maniera contiunuativa?
a me funziona solo con i file piccoli...
 

giangiboy

Utente poco attivo
Professione: architetto
Software: autocad
Regione: italia
#7
grazie PlannerRoad,
questo lisp l'ho gia' scaricato e provato... ma non vedo nessun risultato.
Tu sai come si usa?
 

PlannerRoad

Moderatore
Staff Forum
Professione: Variabile
Software: AutoCAD 2016
Regione: Italia
#10
Ad occhio ho riscontrato tre "distrazioni". Il comando di ucs con l'opzione globale era stato inserito senza l'underscore, di conseguenza funzionava solo per la versione inglese di Autocad; stessa cosa per wblock (in quest'ultimo caso non so se l'underscore vada inserito prima o dopo il punto).
Ma l'errore, almeno utilizzandolo con la versione 2008, non penso sia quello.
Con la versione 2007 a quell'utente dell'altra discussione pare funzionasse perfettamente invece.
Chi è più esperto in ambiente lisp potrà verificare meglio, almeno per curiosità.

Codice:
;;;
;;;    LayoutsToDwgs.lsp
;;;    Created 2000-03-27
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;; 2003-12-12 Sets UCS to world in model space to avoid problem with wblock
;;;
;;;    For AutoCAD 2000, 2000i, 2002, 2004
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;   Creates drawings of all layouts.
;;;   Only one layout at a time is saved, the rest are deleted.
;;;   This is handy when you want to save to pre A2k versions.
;;;   The new drawings are saved to the current drawings path
;;;   and overwrites existing drawings.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:LayoutsToDwgs (/ fn path msg msg2 fileprefix)
(defun DelAllLayouts (Keeper / TabName)
  (vlax-for Layout
                   (vla-get-Layouts
                     (vla-get-activedocument (vlax-get-acad-object))
                   )
    (if
      (and
        (/= (setq TabName (strcase (vla-get-name layout))) "MODEL")
        (/= TabName (strcase Keeper))
      )
       (vla-delete layout)
    )
  )
)
(vl-load-com)
(setq msg "")
(setq msg2 "")
(command "._undo" "_BE")
(setq fileprefix (getstring "Enter filename prefix: "))
(foreach lay (layoutlist)
  (if (/= lay "Model")
    (progn
      (command "_.undo" "_M")
      (DelAllLayouts lay)
      (setvar "tilemode" 1)
      (command "ucs" "[COLOR=red][B]_[/B][/COLOR]w")
      (setvar "tilemode" 0)
      (setq path (getvar "DWGPREFIX"))
      (setq fn (strcat path fileprefix lay ".dwg"))
      (if (findfile fn)
        (progn
          (command ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "_Y")
          (if (equal 1 (logand 1 (getvar "cmdactive")))
            (progn
              (setq msg (strcat msg "\n" fn))
              (command "*")
            )
            (setq msg2 (strcat msg2 "\n" fn))
          )
        )
        (progn
          (command ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "*")
          (setq msg (strcat msg "\n" fn))
        )
      )
      (command "_.undo" "_B")
    )
  )
)
(if (/= msg "")
  (progn
    (prompt "\nFollowing drawings were created:")
    (prompt msg)
  )
)
(if (/= msg2 "")
  (progn
    (prompt "\nFollowing drawings were NOT created:")
    (prompt msg2)
  )
)
(command "._undo" "_E")
(textscr)
(princ)
)
 
Ultima modifica:

Dastardly

Utente poco attivo
Professione: Ingegnere Meccanico
Software: Inventor (newbie)
Regione: Piemonte
#12
Salve,

anche interessa questo tool per poter convenrtire i layout in singoli dwg con Autocad 2008.
Volevo sapere se si è poi riusciti a trovare un tool funzionante per la versione in italiano del 2008.

Grazie a tutti
 

BATTMAN

Utente poco attivo
Professione: Disegnatore
Software: -
Regione: -
#13
Buongiorno a tutti,
faccio riemergere questa discussione per un problema molto simile a quello trattato.

Utilizzo Autocad 2012.

Vi spiego la mia esigenza.

Ho un file dwg al cui interno ho una serie di formati A3 (cinquanta) tutti disposti a distanze costanti. Dieci file da cinque fogli.
Ho preparato cinquanta (!) layout, uno per ogni foglio, in modo da poter stampare su un file pdf o su stampante in modo veloce (comado "pubblica").
La mia esigenza è quella di, al termine del lavoro, separare i singoli fogli su cinquanta files dwg.
Ho provato il codice "LayoutsToDwgs.lsp" e funziona, ma solo in parte. Infatti i cinquanta files creati riportano nello spazio modello ancora tutti i cinquanta formati, quindi mi ritrovo con cinquanta files che hanno un peso (in termini di kB) esagerato.
Qualcuno sa se è possibile creare un .lsp, magari modificando quello citato prima, che risolva il problema?

Si potrebbe forse modificare quel .lsp, per far salvare tramite il comando wblock, tutto ciò che è contenuto all'interno di coordinate inserite in una lista? Io infatti ho tutte le coordinate dei cartigli.

Spero di essere stato sufficientemente chiaro..

Grazie mille..
 

BATTMAN

Utente poco attivo
Professione: Disegnatore
Software: -
Regione: -
#14
risolto creando una mega macro che utilizza ripetutamente il comando mblocco.. non era poi tanto difficile.. :finger: