Search the Community

I have a couple of non-working autolisps due to a computer demise. I seem to have lost some files. They were also written in the 90s, last updated sometime before 2004 and I currently have autocad 2013. I don't want to post the whole routines all at once as they are very long. This is the first routine which is linked to the symbol library. I have no idea what it does or how to get it to look for the appropriate doslib . it gives "Sm Error:" when I run it. It used to run on a network so I changed it to a C : startup () and got the same message. After that I am at a loss (defun S::STARTUP () (setvar "cmdecho" 0) (setq piddirpre (findfile "pidsetup.lsp")) (setq piddir (substr piddirpre 1 (- (strlen piddirpre) 12))) (setq pidscale 1.0) ;Scale used for symbols. (setq mirrdef "V") ;This is the default mirror orientation used in PIDSYM ;load DOSLib for either Release 14 or Release 15 (cond ;if DOSLib is already loaded, return true ((not (null dos_about)) T ) ;if AutoCAD Release 14, ((= (atoi (substr (getvar "acadver") 1 2)) 14) (arxload "doslib14") ) ((= (atoi (substr (getvar "acadver") 1 2)) 15) (arxload "doslib2k") ) ((= (atoi (substr (getvar "acadver") 1 2)) 16) (arxload "doslib2004") ) ) (setvar "cmdecho" 1) (princ "\n") (princ "\n") (princ) ) (defun sm-error (msg) (setvar "cmdecho" 0) (if oldattdia (setvar "attdia" oldattdia)) (if oldattreq (command "attreq" oldattreq)) (if oldangbase (setvar "angbase" oldangbase)) (if oldlay (setvar "clayer" oldlay)) (if oldosmode (setvar "osmode" oldosmode)) (princ "Sm Error: ") (setq *error* olderror) (setvar "cmdecho" 1) (princ) ) (setq *error* sm-error) (load "pidsym") (defun dtr (a) (* pi (/ a 180.0)) ) (defun rtd (a) (/ (* a 180.0) pi) ) I mucked about with autolisp in back 2005/6 but I have forgotten most of it and what I did dealt with counting and labelling blocks