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

Disabilitare apertura disegno vuoto all'avvio di AutoCAD

frankq

Utente Junior
Professione: Artigiano
Software: autocad
Regione: toscana
#1
Ciao a tutti
Come devo impostare Autocad 2007 perchè al lancio non mi apra un disegno vuoto?
Grazie per l'attenzione Franco
 

Shape

Utente Senior
Professione: Disegnatore Carpenteria
Software: Autocad, VBA-AutoLisp, Tecnometal4D, GIMP
Regione: Friuli
#3
Ciao a tutti
Come devo impostare Autocad 2007 perchè al lancio non mi apra un disegno vuoto?
Grazie per l'attenzione Franco
Anche secondo me non è possibile.

Eviti l'apertura di un documento "Nuovo" solo se invece di lanciare l'applicazione dall'icona, la lancia direttamente aprendo un file .dwg
 

frankq

Utente Junior
Professione: Artigiano
Software: autocad
Regione: toscana
#4
In effetti io eseguo le seguenti istruzioni da Visual Basic 6

Dim A2K As AcadApplication
Dim A2kdwg As AcadDocument
Dim miodis As AcadDocument
'
'
Set A2K = CreateObject("Autocad.Application")
Set A2kdwg = A2K.Application.Documents.Open("D:\disegni\studio\prova.dwg")
'
'
Scorrendo l'insieme Documents trovo due disegni: Disegno1.dwg e prova.dwg

mi chiedevo se era possibile impostare l'ambiente Autocad per non aprire il disegno di default

grazie di tutto
Franco
 

Joseph

Utente Standard
Professione: studio e sperimento
Software: autocad 2012
Regione: lombardia
#5
Si può fare.

Dal Forum:
http://www.cadtutor.net/forum/showthread.php?t=22232&page=2

Copiare le seguenti righe nel file acad2007doc.lsp (non in acad2007.lsp) e salvarlo (il file potrebbe essere protetto in scrittura)

(defun-q s::startup ()
(if (= (getvar "dwgname") "Drawing1.dwg")(progn
(command "close")
(if (> (getvar "cmdactive") 0) (command "Y"))
))

; Do any other stuff (if not closed above)

(princ)
)
(princ)



Saluti
 

GP.

Utente Senior
Professione: Nientologo
Software: uozapp
Regione: Vercelli
#6
Ciao Joseph,

chiaramente se Franco ha autoCAD ITA dovrà digitare "Disegno1.dwg".

Scusa la banalità.
 

Joseph

Utente Standard
Professione: studio e sperimento
Software: autocad 2012
Regione: lombardia
#7
Era sottinteso che per la versione italiana si dovessero apportare queste modifiche:

(defun-q s::startup ()
(if (= (getvar "dwgname") "Disegno1.dwg")(progn
(command "_close")
(if (> (getvar "cmdactive") 0) (command "_Y"))
))

; Do any other stuff (if not closed above)

(princ)
)
(princ)

Ciao ciao;)
 

Joseph

Utente Standard
Professione: studio e sperimento
Software: autocad 2012
Regione: lombardia
#9
Effettivamente l'ho testato solo su 2007 ingl. e 2008 ita; proverò anch'io sulle versioni precedenti, solo per capire la causa.
 

Shape

Utente Senior
Professione: Disegnatore Carpenteria
Software: Autocad, VBA-AutoLisp, Tecnometal4D, GIMP
Regione: Friuli
#11
In effetti io eseguo le seguenti istruzioni da Visual Basic 6

Dim A2K As AcadApplication
Dim A2kdwg As AcadDocument
Dim miodis As AcadDocument
'
'
Set A2K = CreateObject("Autocad.Application")
Set A2kdwg = A2K.Application.Documents.Open("D:\disegni\studio\prova.dwg")
'
'
Scorrendo l'insieme Documents trovo due disegni: Disegno1.dwg e prova.dwg

mi chiedevo se era possibile impostare l'ambiente Autocad per non aprire il disegno di default

grazie di tutto
Franco
bhè se sei in ambiente VBA utilizza il metodo close ( senza salvare ) del documento Drawing1.dwg

così ti ritrovi solo il tuo prova.dwg
 
Professione: *
Software: AutoCAD
Regione: Lombardia
#12
bhè se sei in ambiente VBA utilizza il metodo close ( senza salvare ) del documento Drawing1.dwg

così ti ritrovi solo il tuo prova.dwg
visto che usa il VBA,
questa soluzione mi sembra la più semplice e appropriata
 
Ultima modifica:

week86

Utente poco attivo
Professione: -
Software: -
Regione: -
#14
Era sottinteso che per la versione italiana si dovessero apportare queste modifiche:

(defun-q s::startup ()
(if (= (getvar "dwgname") "Disegno1.dwg")(progn
(command "_close")
(if (> (getvar "cmdactive") 0) (command "_Y"))
))

; Do any other stuff (if not closed above)

(princ)
)
(princ)

Ciao ciao;)
funziona anche su 2011..
 

Tristan

Utente Senior
Professione: Application Engineer
Software: AutoCAD Civil 3D, Revit e altre amenità
Regione: Trentino
#15
Se Dio vuole, nella prossima versione questo problema non ci sarà più :biggrin: