Search the FAQ Archives

3 - A - B - C - D - E - F - G - H - I - J - K - L - M
N - O - P - Q - R - S - T - U - V - W - X - Y - Z - Internet FAQ Archives

comp.cad.autocad AutoLISP FAQ (part 1/2) - general
Section - [11] S::STARTUP, My LISPs aren't loaded at startup anymore

( Part1 - Part2 - Single Page )
[ Usenet FAQs | Web FAQs | Documents | RFC Index | Property taxes ]

Top Document: comp.cad.autocad AutoLISP FAQ (part 1/2) - general
Previous Document: [10] Iteration with MAPCAR,...
Next Document: [12] How to Autoload my programs?
See reader questions & answers on this topic! - Help others by sharing your knowledge
  LISP files can be loaded at the startup using LOAD in ACAD.LSP.
  Some LISPs, required with a menu to work, should be loaded from
  the corresponding <menu>.MNL file. The <menu>.MNL file - if different -
  should load ACAD.MNL

  LISP functions calling commands at the startup should be defined in
  S::STARTUP of ACAD.LSP. This function is called at the startup
  after the initialization automatically. Otherwise you'll get the
  "Command list interruption (6 . 2)" errors.
  Note: (command) may be safely called from within MNL files. 
  (S::STARTUP) is mainly used to check for partial menus now.

  If the file name was provided without an extension the LOAD function
  assumes .LSP. If - without a path prefix, the usual AutoCAD library path
  is used, which is
    1) The current directory
    2) The directory containing the current drawing file
    3) The directories defined in the ACAD environment variable
       (setup in the Preferences box, SUPPORT paths)
    4) The acad.exe directory
  If your program isn't loaded anymore automatically, check your AutoCAD
  library path settings.

  With ACADLC (of ACOMP) and the domestic release of AutoCAD R12 ACAD.LSP
  is not loaded automatically. Therefore you must append (load "ACAD" -1)
  to your ACAD.MNL.

  Sample ACAD.LSP:
  ;;; Fred the Beaver, 12/12/94
  (load "init" -1)                ; this loads some tools of mine
  (defun S::STARTUP ()
    (load "new-end" -1)           ; this redefines the END command

  The -1 argument provides LOAD from interrupting the startup process, if
  any LOAD failure (causing an AutoLISP error). If a failure at the
  load-time occurs, -1 is returned, but the evaluation does not stop.
  -1 can be any expression as well.

  Sample code to enhance S::STARTUP in your code. With Visual LISP
  compiled code this will not work, it must be defined with DEFUN-Q
  instead. Functions are generally no lists anymore! Better than to
  use DEFUN-Q for S::STARTUP is to check for known hooks, a list of
  user-defined functions which are inserted and evaluated at run-time.

  (defun MY::STARTUP ()         ;your startup code goes here

  (setq S::STARTUP
    (if (and S::STARTUP (listp S::STARTUP))     ;already defined in
                                                ; ACAD.LSP or elsewhere
      (append S::STARTUP (cdr MY::STARTUP))     ;append your code
      MY:STARTUP))                              ;just your code

  or a simple one:

  (if (and S::STARTUP (listp S::STARTUP))       ;usually called consp
     (setq S::STARTUP (append S::STARTUP (list func '(princ))))
     (setq S::STARTUP (list nil func '(princ))))

+ Vladimir Nesterovsky:
  The main difference now in A2K+ versions is that functions defined 
  with DEFUN are now a new datatype, USUBRs, and not lists as before. 
  But when the function is defined with DEFUN-Q, it is a list still, 
  like in previous versions. 

  Here's the utility function to use that works in both cases: 

  (defun plug-into-startup (funcname) ;by VladimirNesterovsky
    "to be called with quoted function name"
    (eval (list
      'defun 's::startup ()
      (if s::startup (list (list 'quote s::startup)))
      (list funcname))))

  So if you have all your startup code packed into one routine 

  (defun my-startup ()
    (alert "My Startup"))

  You make it work with the call 

  (plug-into-startup 'my-startup)

  Inside your code that is executed on startup, e.g. acaddoc.lsp 
  or whatever.

  See also  "[12] How to Autoload my programs?"

User Contributions:

Mar 17, 2023 @ 5:17 pm
Regardless if you believe in God or not, read this message!!!

Throughout time, we can see how we have been carefully conditioned to come to this point where we are on the verge of a cashless society. Did you know that the Bible foretold of this event almost 2,000 years ago?

In the book of Revelation 13:16-18, we read,

"He (the false prophet who deceives many by his miracles--Revelation 19:20) causes all, both small and great, rich and poor, free and slave, to receive a mark on their right hand or on their foreheads, and that no one may buy or sell except one who has the mark or the name of the beast, or the number of his name.

Here is wisdom. Let him who has understanding calculate the number of the beast, for it is the number of a man: His number is 666."

Referring to the last generation, this could only be speaking of a cashless society. Why so? Revelation 13:17 states that we cannot buy or sell unless we receive the mark of the beast. If physical money was still in use, we could buy or sell with one another without receiving the mark. This would contradict scripture that states we need the mark to buy or sell!

These verses could not be referring to something purely spiritual as scripture references two physical locations (our right hand or forehead) stating the mark will be on one "OR" the other. If this mark was purely spiritual, it would indicate both places, or one--not one OR the other!

This is where it comes together. It is amazing how accurate the Bible is concerning the implantable RFID microchip. Here is information from a man named Carl Sanders who worked with a team of engineers to help develop this RFID chip:

"Carl Sanders sat in seventeen New World Order meetings with heads-of-state officials such as Henry Kissinger and Bob Gates of the C.I.A. to discuss plans on how to bring about this one-world system. The government commissioned Carl Sanders to design a microchip for identifying and controlling the peoples of the world—a microchip that could be inserted under the skin with a hypodermic needle (a quick, convenient method that would be gradually accepted by society).

Carl Sanders, with a team of engineers behind him, with U.S. grant monies supplied by tax dollars, took on this project and designed a microchip that is powered by a lithium battery, rechargeable through the temperature changes in our skin. Without the knowledge of the Bible (Brother Sanders was not a Christian at the time), these engineers spent one-and-a-half-million dollars doing research on the best and most convenient place to have the microchip inserted.

Guess what? These researchers found that the forehead and the back of the hand (the two places the Bible says the mark will go) are not just the most convenient places, but are also the only viable places for rapid, consistent temperature changes in the skin to recharge the lithium battery. The microchip is approximately seven millimeters in length, .75 millimeters in diameter, about the size of a grain of rice. It is capable of storing pages upon pages of information about you. All your general history, work history, criminal record, health history, and financial data can be stored on this chip.

Brother Sanders believes that this microchip, which he regretfully helped design, is the “mark” spoken about in Revelation 13:16–18. The original Greek word for “mark” is “charagma,” which means a “scratch or etching.” It is also interesting to note that the number 666 is actually a word in the original Greek. The word is “chi xi stigma,” with the last part, “stigma,” also meaning “to stick or prick.” Carl believes this is referring to a hypodermic needle when they poke into the skin to inject the microchip."

Mr. Sanders asked a doctor what would happen if the lithium contained within the RFID microchip leaked into the body. The doctor replied by saying a terrible sore would appea (...)

Comment about this article, ask questions, or add new information about this topic:

Top Document: comp.cad.autocad AutoLISP FAQ (part 1/2) - general
Previous Document: [10] Iteration with MAPCAR,...
Next Document: [12] How to Autoload my programs?

Part1 - Part2 - Single Page

[ Usenet FAQs | Web FAQs | Documents | RFC Index ]

Send corrections/additions to the FAQ Maintainer: (Reini Urban)

Last Update March 27 2014 @ 02:11 PM