can not able to load this lisp - sometimes it works sometimes it doesnt

[coolkris]

Dear all,

the lisp attached I was using for long time. When I used this with vlide, this does not load and not working even apploaded manually. Please check someone. Whenever I open vlideide, the autocad does not work in any command.

Thanks

Krish

[marko_ribar]

This looks to me like you are sharing AutoCAD virus... There was in past "acad.lsp" virus thing, so just worinning - I haven't downloaded it and I won't do that...

[coolkris]

thats rude comment

[marko_ribar]

No it's not rude comment - it's very thoughtful and careful...

[devitg]

I downloaded , no virus found with  .

please upload your sample.dwg where do you apply it 

[devitg]

here it is. 

;**************************MODE MACRO FOR STATUS BAR******************************
(setvar "lunits" 2)
(defun-q s::startup (/ str1 str2 str3 str4 str5)
      (setq str1 "ds=$(getvar,dimscale);"
            str2 "lts=$(getvar,ltscale);"
            str3 "celt=$(getvar,celtscale);"                           
            str4 "mslt=$(getvar,msltscale);"
            str5 "pslt=$(getvar,psltscale);"
      )
      (setvar
	"modemacro" (strcat str1 str2 str3 str4 str5)
      (princ)
)
 (setq dsc (getvar "dimscale"))
 (autoload "TBRCALC" '("Te"))
); lost parentesis

there is not a AUTOLOAD defun .

other one , lost comment key ;

(cons "7" "Sheet"); first is color number - 
;   the the layers for that 
;color separated by acomma

[john.uhden · Accepted solution]

Be careful when trying to use s::startup.

Other software you load may be trying to define it, and they may be using defun, not defun-q.  It depends on who defuns last, which you don't necessarily know.

I came up with this a number of years ago to deal with the potential problem...

(cond
   ((not S::STARTUP)
      (defun-q S::STARTUP ()(do_this)(do_that))
   )
   ((listp S::STARTUP)
      (setq S::STARTUP (append S::STARTUP '((do_this)(do_that))))
   )
   ((member (type S::STARTUP) '(SUBR USUBR))
      (eval
         (list 'defun-q 's::startup ()
            (list s::startup)        ;; NO QUOTE
           '(do_this)
           '(do_that)
         )
      )
   )
)

[Sea-Haven]

Devitg there is not a AUTOLOAD defun .

Yes there is and the line of code is correct, I have about 20 of these in my startup lisp.