ACADDOC.LSP

[dbrownson]

I am working on implementing a acaddoc.lsp at my work, i have generated this thus far and it doesnt seem to work. i have been searching through the forums, and pretty much just borrowed beginnings from other threads. well here is my code, if someone could look it over and explain to me what im doing wrong, it would be much appreciated.

;;ACADDOC.LSP
(defun-q MYSTARTUP ()
   (SETVAR "LAYEREVAL" 0)
   (SETVAR "MIRRTEXT" 0)
   (SETVAR "UCSICON" 0)
   (SETVAR "TSPACEFAC" .8125)
   (SETVAR "DIMASSOC" 2)
(PRINC)
)
(setq S::STARTUP (append S::STARTUP MYSTARTUP))




(vl-load-com)
(vlr-editor-reactor nil '((:VLR-sysVarChanged . VTF)))
 
(defun VTF (CALL CALLBACK)
  (if (= (strcase (car CALLBACK)) "SAVETIME")
    (progn
      (setq ALK (getvar "savetime"))
      (if (/= ALK 5)
	(progn
		(alert "Savetime has been changed, Resetting to 5 minutes! ")
	  	(setvar "savetime" 5)
	  )
	)
      )
  )
)

Moderator Note:

How to use [ CODE ] tags...

[cj_follmer]

Not really seeing anything wrong with it. Try changing it to

(defun-q S::Startup ()
  (SETVAR "LAYEREVAL" 0)
  (SETVAR "MIRRTEXT" 0)
  (SETVAR "UCSICON" 0)
  (SETVAR "TSPACEFAC" .8125)
  (SETVAR "DIMASSOC" 2)
  (PRINC)
  )

instead of the other. If you are the only one using the Startup function, then you don't need to append it to an existing one.

Another option would be to check that AutoCAD is finding this AcadDoc and not some other. At the command line type
(findfile "acaddoc.lsp")
and see if the path that is returned is the same as where you are placing the file.

CJ

Moderator Note:

How to use [ CODE ] tags...

[dbrownson]

Autocad is linking to the correct acaddoc.lsp. so that is not the prob. however, it still does not set any variables upon startup. im sure there is some mundane detail i am missing.

i had the code working prior to adding the startup part to it. because i was having prob's with the autosave turning off, which i have now diagnosed as happening when publish crashes. so i know that autocad knows how to find the .lsp, its just not using the first string of code.

[rkmcswain]

You don't need to worry about the S::Startup function unless you are calling the (command) function.

Also, you need a leading zero when specifying a real number (in your tspacefac setvar)

This should do it.

;;ACADDOC.LSP
(vl-load-com)
(SETVAR "LAYEREVAL" 0)
(SETVAR "MIRRTEXT" 0)
(SETVAR "UCSICON" 0)
(SETVAR "TSPACEFAC" 0.8125)
(SETVAR "DIMASSOC" 2)

(vlr-editor-reactor nil '((:VLR-sysVarChanged . VTF)))

(defun VTF (CALL CALLBACK)
  (if (= (strcase (car CALLBACK)) "SAVETIME")
    (progn
      (setq ALK (getvar "savetime"))
      (if (/= ALK 5)
	(progn
	  (alert "Savetime has been changed, Resetting to 5 minutes! "
	  )
	  (setvar "savetime" 5)
	)
      )
    )
  )
)

[rkmcswain]

Also, are you using the VLIDE to edit your lisp code? If not, this would have pointed you to the error. You should have also seen this on the command line since it was failing here....

error: misplaced dot on input

[dbrownson]

Also, are you using the VLIDE to edit your lisp code? If not, this would have pointed you to the error. You should have also seen this on the command line since it was failing here....

error: misplaced dot on input

No, i haven't been using this. should i write the code in notepad then check it with the VLIDE, or do you start your lisps in VLIDE?

EDIT: thanks for all of your guys help, it works perfectly now.

[rkmcswain]

No, i haven't been using this. should i write the code in notepad then check it with the VLIDE, or do you start your lisps in VLIDE?

Use the VLIDE all the time IMO.

Code formatter, code checker, global variable extractor, color coding, matching paren finder... can't really beat it... and there is still tons of room for improvement... too bad Autodesk is ignoring it....

[dbrownson]

You wouldnt happen to know the sys. variable that would be the equiv. of tspacfac for multileaders would you?

[irneb]

Another option would be to check that AutoCAD is finding this AcadDoc and not some other. At the command line type
(findfile "acaddoc.lsp")
and see if the path that is returned is the same as where you are placing the file.

Not exactly correct, AutoCAD loads each acaddoc.lsp file found in the support paths.

[.T.]

Not exactly correct, AutoCAD loads each acaddoc.lsp file found in the support paths.

Actually, it only loads the first one it finds. Have a look THIS at rkmcswain's website.