Topic: Set lisp to run every time a DWG is opened

[hyposmurf]

How do I set a lisp to run everytime I open a new drawing?I realise you can set one to run everytime AutoCAD opens, but I mean everytime a new drawing is opened.What Im intending to do is have my own default variables set every time a new drawing is opened, just fed up of the MIRRTEXT varaible etc not set to my requirements.
Do I have to redefine the open command?

[Andrea]

drag&drop your lisp file to the suitecase...
in the appload dialog box..

OR

load your program from your ACAD.lsp file..
but be sure that in your profile to load ACAD.lsp on each dwg.

[CADmium]

IMHO not in the acad.lsp !!!

for this use the load and run command in acaddoc.lsp -File. It will call with every new document. If you don't have a acaddoc.lsp , you can create on in a acad-support-directory

[David Hall]

Also, do a test on the drawing name.  If its Drawing?? then run your command,  if its already got a name, dont run it.  I have some example code if you need it

[CADaver]

IMHO not in the acad.lsp !!!

?  Oh? Why not?

[CADaver]

Also, do a test on the drawing name.  If its Drawing?? then run your command,  if its already got a name, dont run it.  I have some example code if you need it

cool, can you post it here??

[ronjonp]

Also, do a test on the drawing name.  If its Drawing?? then run your command,  if its already got a name, dont run it.  I have some example code if you need it

cool, can you post it here??

This is what I use:

Code: [Select]

(if (not (wcmatch (getvar 'DWGNAME) "Drawing*.dwg"))
  (progn
   
  )
)

[LE]

Why not DWGTITLED ?

[nivuahc]

Why not DWGTITLED ?

That's what I use.

[ronjonp]

Why not DWGTITLED ?

I'm not sure? 

I like that much better...

Code: [Select]

(if (= (getvar 'dwgtitled) 1)
  (progn

  )
)

[CADaver]

I use the same as ronjonp's (getvar 'DWGNAME) phrase, I never really looked at dwgtitled until today.  Cool.   I'm still wondering what CmdrDuh uses, though.  

[Andrea]

I use this on from ACAD.LSP located on network drive

Code: [Select]

(setq cprofile (strcase (getvar "cprofile")))
..
..
..

(if (vl-string-search "Section of profile name" cprofile)
(do this....))

(if (vl-string-search "Section of another one" cprofile)
(do that....))


and some othe loading utilities..

why ??
because to many department here loading to many diffrent programs and utilities that why.   

[CADmium]

acad.lsp ist the file for make something when acad starts
acaddoc.lsp ist the file for make something when new document starts

i think, both files are not only for fun

[vladimirzm]

from CUI you can load any lisp when new drawig starts: right clic on LISP Archives node > Load Lisp.

[Crank]

I agree with CADnium.

Another option is the .mnl file: That's is also loaded in every drawing.