Automatically load a lisp

[bigmaz]

Hi guys

 

I have developed a simple spreadsheet for the office listing lisp routines that I have gathered over time that I think are really useful, in the spreadsheet there is columns for filename, category, description, and some additional info for links to instructions online on how to use the lisp. Currently, I just have the *.lsp files in a folder on the network, so anyone can just load it. I am just wondering if it was possible to put a button beside these, or a link that would automatically install/load the lisp routine onto someones AutoCAD for permanent use? Or would this be very complicated? I dont have any experience in programming.

[Organic]

In AutoCad you can go Tools => Load Application => Start up suite contents and add it it there. Then those lisps added in there laod every time AutoCad starts.

 

So if there are only a few users you could do that (and it can even point to the lisp file on the network so if you update it, it will be updated for all users etc).

[MSasu]

Please check here for other options.

Use that Excel to build an acaddoc.lsp file and don't forget to save it as a simple ASCII file. It will be useful to map the said network drive using the same letter on all workstations.

[bigmaz]

In AutoCad you can go Tools => Load Application => Start up suite contents and add it it there. Then those lisps added in there laod every time AutoCad starts.

 

So if there are only a few users you could do that (and it can even point to the lisp file on the network so if you update it, it will be updated for all users etc).

 

Yeah, I know how to load lisps, I was just wondering if there was an automated way of doing it. So someone only has to press a button, and it does everything for you. Thought it would be quite a cool little function.

 

Also, I have tried loading mutliple lisps in a "acaddoc.lsp" file. It starts up the first lisp, but not the second one. Is there a seperator you have to put between them?

[Dadgad]

If you appreciate great lisp routines, but are, like myself lisp-challenged, I would suggest you go to LEE Mac's site and take a gander at a lot of great stuff.

One of my favorites is the LAYER DIRECTOR, try it, you'll like it. Thanks Lee!

That is just one of a great many very generously made available by Lee.

[bigmaz]

Yeah, a lot of the lisps I use is Lee Macs. And the Layer Director is awesome!! I am going to be rolling that out to folks computers in the office. Particularly good for Engineers, as they never layer anything!!!!!

[MSasu]

Also, I have tried loading mutliple lisps in a "acaddoc.lsp" file. It starts up the first lisp, but not the second one. Is there a seperator you have to put between them?

Can you post, please, the first lines from that file to try to debug it?

[bigmaz]

I have added 2 lisps to my "acaddoc.lsp" file, the 1st lisp, "grd" works fine when opening an autoCAD session, but the layer director doesnt work, the file reads (the 1st part is my companies coding):

 

(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)

(defun c:grd()
(setvar "cmdecho" 0)
 (setq osm (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\nLower left corner point: ")
     p2 (getcorner p1 "\nOpposite corner: ")
xd (abs (- (car p2)(car p1)))
yd (abs (- (cadr p2)(cadr p1)))
st (getdist "\nStep : ")
nx (fix (/ xd st))
ny (fix ( / yd st)) 
)
(if (or (>= st (/ xd 2))(>= st (/ yd 2)))
 (progn
 (alert "Wrong parameters defined")(exit)(princ)))
 (command "rectang" p1 p2)
 (setq r1 (list (car p1)(+ (cadr p1) st)(caddr p1))
r2 (list (car p2)(cadr r1)(caddr p2)))
(command "pline" r1 r2 "")
(command "array" "L" "" "R" ny 1 st "")
  (setq c1 (list (+ (car p1)st)(cadr p1)(caddr p1))
c2  (list (car c1)(cadr p2)(caddr p2)))
(command "pline" c1 c2 "")
(command "array" "L" "" "R" 1 nx st "") 
(setvar "cmdecho" 1)
 (setvar "osmode" osm)
)This one should create simmetric grid:

Code:
           (defun C:GCL (/)

;;-------------------=={ Layer Director }==-------------------;;
;;                                                            ;;
;;  Uses a Command Reactor to automatically set the active    ;;
;;  layer upon the user invoking a command.                   ;;
;;                                                            ;;
;;  Layer settings are stored in the list at the top of the   ;;
;;  program. The first entry in the list is the command on    ;;
;;  which the reactor will trigger, it may use wildcards.     ;;
;;  The second entry is the name of the layer to be set when  ;;
;;  the command is called, this layer will be created if      ;;
;;  not present in the active drawing.                        ;;
;;                                                            ;;
;;  The Director is enabled upon loading this program.        ;;
;;  It may be manually switched ON and OFF by typing          ;;
;;  'LDON' and 'LDOFF' respectively at the command line.      ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2012 - [url="http://www.lee-mac.com"]www.lee-mac.com[/url]       ;;
;;------------------------------------------------------------;;
;;  Version 1.1    -    24-04-2012                            ;;
;;------------------------------------------------------------;;
;;------------------------------------------------------------;;
;;  Layer Data                                                ;;
;;  ========================================================  ;;
;;                                                            ;;
;;  Populate this list with commands for which the current    ;;
;;  layer should be changed.                                  ;;
;;                                                            ;;
;;  The first item is the name of a command that will cue a   ;;
;;  layer change. The command name should be the full command ;;
;;  name, not an alias. This command name is not              ;;
;;  case-sensitive and may use wildcards.                     ;;
;;                                                            ;;
;;  e.g. "[DM]TEXT,TEXT" will cue a layer change for the      ;;
;;  Text, DText and MText commands.                           ;;
;;                                                            ;;
;;  e.g. "*LEADER" will cue a layer change for the Leader,    ;;
;;  QLeader and MLeader commands.                             ;;
;;                                                            ;;
;;  The second item is the name of the Layer to be set to     ;;
;;  current when the command is called. This layer will be    ;;
;;  created if not present in the active drawing.             ;;
;;------------------------------------------------------------;;
(setq *LayerDirector-LayerData*
  '(
;;        COMMAND           LAYER NAME                        ;;
       ("[DM]TEXT,TEXT"   "MM-Text"      )
       ("DIM*"            "MM-Dims")
       ("*VPORT*"         "MM-Vport" )
       ("*LEADER"         "MM-Text")
   )
)
;;------------------------------------------------------------;;
;;  Print Command Debug Mode  [ t / nil ]                     ;;
;;  ========================================================  ;;
;;                                                            ;;
;;  If set to T the program will print the command name when  ;;
;;  a command is called. This is useful when determining      ;;
;;  the correct command name to use in the Layer Data list.   ;;
;;------------------------------------------------------------;;
(setq *PrintCommand* nil)
;;------------------------------------------------------------;;
;;  Commands:  [ LDON / LDOFF ]                               ;;
;;  ========================================================  ;;
;;                                                            ;;
;;  Use these to manually turn the Layer Director on & off.   ;;
;;------------------------------------------------------------;;
(defun c:LDON  nil (LM:LayerDirector  t ))
(defun c:LDOFF nil (LM:LayerDirector nil))
;;------------------------------------------------------------;;
(defun LM:LayerDirector ( on / reactor )
   (setq reactor
       (car
           (vl-member-if
               (function
                   (lambda ( reactor )
                       (eq "LayerDirector" (vlr-data reactor))
                   )
               )
               (cdar (vlr-reactors :vlr-command-reactor))
           )
       )
   )
   (if on
       (if reactor
           (if (vlr-added-p reactor)
               (princ "\nLayer Director already running.")
               (progn
                   (vlr-add reactor)
                   (princ "\nLayer Director Enabled.")
               )
           )
           (progn
               (vlr-command-reactor "LayerDirector"
                  '(
                       (:vlr-commandwillstart . LM:LayerDirector-Set)
                       (:vlr-commandended     . LM:LayerDirector-Reset)
                       (:vlr-commandcancelled . LM:LayerDirector-Reset)
                       (:vlr-commandfailed    . LM:LayerDirector-Reset)
                   )
               )
               (princ "\nLayer Director Enabled.")
           )
       )
       (if reactor
           (progn
               (vlr-remove reactor)
               (princ "\nLayer Director Disabled.")
           )
           (princ "\nLayer Director not running.")
       )
   )
   (princ)
)
(defun LM:LayerDirector-Set ( reactor params / layer tmp )
   (if
       (and
           (setq params (strcase (car params)))
           (setq layer
               (cadar
                   (vl-member-if
                       (function
                           (lambda ( item )
                               (wcmatch params (strcase (car item)))
                           )
                       )
                       *LayerDirector-LayerData*
                   )
               )
           )
           (setq tmp (LM:LayerDirector-CreateLayer layer))
           (zerop (logand 1 (cdr (assoc 70 tmp))))
       )
       (progn
           (setq *LayerDirector-OldLayer* (getvar 'clayer))
           (setvar 'clayer layer)
       )
   )
   (if *PrintCommand* (print params))
   (princ)
)
(defun LM:LayerDirector-Reset ( reactor params / tmp )
   (if
       (and
           (not (wcmatch (strcase (car params)) "U,UNDO"))
           *LayerDirector-OldLayer*
           (setq tmp (tblsearch "LAYER" *LayerDirector-OldLayer*))
           (zerop (logand 1 (cdr (assoc 70 tmp))))
       )
       (progn
           (setvar 'clayer *LayerDirector-OldLayer*)
           (setq *LayerDirector-OldLayer* nil)
       )
   )
   (princ)
)
(defun LM:LayerDirector-CreateLayer ( name )
   (cond
       (   (tblsearch "LAYER" name))
       (   (entmake
               (list
                  '(0 . "LAYER")
                  '(100 . "AcDbSymbolTableRecord")
                  '(100 . "AcDbLayerTableRecord")
                   (cons 2 name)
                  '(70 . 0)
               )
           )
       )
   )
)
;;------------------------------------------------------------;;
(vl-load-com)
(LM:LayerDirector t)  ;; Director will run when loaded.
(princ)
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;

[MSasu]

Just to be sure, this is the content of your acaddoc.lsp file? I think that is better to keep all routine definitions in their own files and just call them in acaddoc.lsp. Example:

(load "C:\\MyAutoLISPTools\\Routine1st.LSP" (prompt "\nUnable to load Routine1st!"))
(load "C:\\MyAutoLISPTools\\Routine2nd.LSP" (prompt "\nUnable to load Routine2nd!"))
...
(princ)

 

Regarding the posted code, there are unbalanced parantheses; more precisely this definition isn't closed:

(defun C:GCL (/)

[bigmaz]

Thanks for that MSasu

 

Ok, i have updated acaddoc.lsp, but the lisps are not loading when I open AutoCAD, it reads:

 

(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\BlkImport.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ChangeBlockInsertionV1-3.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\copyinc.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\dimcurve.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fa.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fixtxt.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\grd.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\insertall.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LabelV1-1.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayerDirectorV1-1[1].lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayoutTools.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LDOrderV1-2.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\Legend.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\List block.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ll.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\MaskV1-0.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\normblocks.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\num.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ple.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\plen.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pline-3d-2d.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pllen.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\polylen.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pst.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pt2blk.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\PtManagerV2-4[1].lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\reorderpoints.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\StripMtext v5-0c.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\super.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\SuperFlatten 1.2b.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\t2m.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TL.lsp (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TrailpitswithTable.LSP (prompt "\nUnable to load Routine1st!"))
(princ)

[MSasu]

Seems that you missed the closing quote mark for path (check all lines):

(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp[color=red]"[/color] (prompt "\nUnable to load attnumber!"))

[bigmaz]

Seems that you missed the closing quote mark for path (check all lines):

(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp[color=red]"[/color] (prompt "\nUnable to load attnumber!"))

 

Still doesnt work, my file now reads:

 

(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\BlkImport.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ChangeBlockInsertionV1-3.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\copyinc.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\dimcurve.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fa.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fixtxt.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\grd.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\insertall.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LabelV1-1.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayerDirectorV1-1[1].lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayoutTools.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LDOrderV1-2.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\Legend.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\List block.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ll.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\MaskV1-0.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\normblocks.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\num.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ple.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\plen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pline-3d-2d.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pllen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\polylen.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pst.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pt2blk.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\PtManagerV2-4[1].lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\reorderpoints.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\StripMtext v5-0c.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\super.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\SuperFlatten 1.2b.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\t2m.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TL.lsp” (prompt "\nUnable to load Routine1st!"))
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TrailpitswithTable.lsp” (prompt "\nUnable to load Routine1st!"))

(princ)

[bigmaz]

Sorry about this, its obv something I am doing wrong

[bigmaz]

Ok, I used Lee Macs "ACADDOC.lsp Creator", and it done it automatically for me. It seems to work, BUT, it only works up to "LabelV1-1.lsp", anything below that lisp just doesnt work, really weird.... The lisps work if I manually load them in. My code now reads:

 

(if
(and
(not (menugroup "mmacad"))
(findfile "mmacad.cuix")
);and
(command "menuload" "mmacad.cuix")
);if
(and
(menugroup "mmacad")
(menucmd "p50=+MMACAD.POP1")
);and
(setvar "SAVETIME" 10)
(setvar "layernotify" 0)
(setvar "layereval" 0)
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\attnumber.lsp" "--> Failed to Load: attnumber")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\BlkImport.lsp" "--> Failed to Load: BlkImport")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ChangeBlockInsertionV1-3.lsp" "--> Failed to Load: ChangeBlockInsertionV1-3")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\copyinc.lsp" "--> Failed to Load: copyinc")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\dimcurve.lsp" "--> Failed to Load: dimcurve")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fa.lsp" "--> Failed to Load: fa")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\fixtxt.lsp" "--> Failed to Load: fixtxt")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\grd.lsp" "--> Failed to Load: grd")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\insertall.lsp" "--> Failed to Load: insertall")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LabelV1-1.lsp" "--> Failed to Load: LabelV1-1")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayerDirectorV1-1[1].lsp" "--> Failed to Load: LayerDirectorV1-1[1]")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LayoutTools.lsp" "--> Failed to Load: LayoutTools")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\LDOrderV1-2.lsp" "--> Failed to Load: LDOrderV1-2")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\Legend.lsp" "--> Failed to Load: Legend")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\List block.lsp" "--> Failed to Load: List block")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ll.lsp" "--> Failed to Load: ll")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\MaskV1-0.lsp" "--> Failed to Load: MaskV1-0")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\normblocks.lsp" "--> Failed to Load: normblocks")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\num.lsp" "--> Failed to Load: num")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\ple.lsp" "--> Failed to Load: ple")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\plen.lsp" "--> Failed to Load: plen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pline-3d-2d.lsp" "--> Failed to Load: pline-3d-2d")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pllen.lsp" "--> Failed to Load: pllen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\polylen.lsp" "--> Failed to Load: polylen")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pst.lsp" "--> Failed to Load: pst")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\pt2block.lsp" "--> Failed to Load: pt2block")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\PtManagerV2-4[1].lsp" "--> Failed to Load: PtManagerV2-4[1]")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\reorderpoints.lsp" "--> Failed to Load: reorderpoints")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\StripMtext v5-0c.lsp" "--> Failed to Load: StripMtext v5-0c")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\super.lsp" "--> Failed to Load: super")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\SuperFlatten 1.2b.lsp" "--> Failed to Load: SuperFlatten 1.2b")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\t2m.lsp" "--> Failed to Load: t2m")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TL.lsp" "--> Failed to Load: TL")
(load "P:\\Glasgow\\BNI\\ACAD BLOCKS\\Lisp Routines\\TrialpitswithTable.LSP" "--> Failed to Load: TrialpitswithTable")

[troggarf]

Correction - When I was creating an .mnl file for an enterprise CUI, I had to comment out the princs and alerts that appear upon loading.

Edited September 23, 2012 by troggarf

[BIGAL]

Just an alternative what about a custom menu with all your lisps in it, you may still load some via acaddoc. If you can use notepad you can make a partial menu.

 

***MENUGROUP=xxxxxSTDS
***POP1
**CADLIB
[->LISP1 A-C]
            [ADD 2 LEVEL]^C^C(LOAD "add-to-levels")
            [Add-pits-drain]^C^C(LOAD "Add-pits-drain")
            [Allbylayer]^C^C(LOAD "Allbylayer")
            [Apndtext]^C^C^p(LOAD "apndtext")
            [Area-label]^C^C^p(LOAD "area-label")
            [AREAOBJ]^C^C^p(LOAD "AREAOBJ")

[MSasu]

When I was creating an acad.lsp or acaddoc.lsp... I had to make sure that any princs and alerts that display upon loading were commented out.

Up to my knowledge, the ALERT or PRINT/PRINC/PRIN1 calls in files loaded via acaddoc.lsp will be honored without issues. Those will not impede the automatically load of said files and over functions/commands defined inside. The only concern may be that some alert boxes may delay the start or annoy the user. But, a good programming practice is to resort to such communication way (alert) at root level only for issues and not for copyright/info notes. That it, things that the programmer want to ensure that his/her user was made aware of.

 

Please don't miss also the fact that the copyright notes must not be removed or commented out.

[troggarf]

I have corrected the above post. I went and looked at how i was trying to load routines and scripts and it was through an enterprise CUI file that had a .mnl file that had the load calls for the routines... It wasn't an acad.lsp or acaddoc.lsp as i first stated.

Any suggestions on getting the mnl file to load the routines that contain princs and alerts would be greatly appreciated

BTW - I wasn't removing anything from the code or claiming that the author did not write the code - i was simply trying to get it to load.