Fresh Install, new problem

November 13, 2024

I have done the same install several times but only this time i get a new error

Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.

Never had this before, i rad online some saying that if you replace the (command) with (command-s) in in the error lisp it fixes it but instead I get error

Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.

Here is the lisp i am trying to load, been using it for over 20 years and never had this issue.

 (DEFUN C:ELR (/ pt1);START ELR
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "ELR" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END ELR

 (DEFUN C:ELL (/ pt1);START ELL
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "ELL" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END ELL

 (DEFUN C:GRIDMARK (/ pt1);START GRIDMARK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "MARK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END GRIDMARK

 (DEFUN C:STEP (/ pt1);START STEP (ADDED 5/4/00, DJR)
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"))
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "STEP" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END STEP
 
  (DEFUN C:SUB-SBSB (/ pt1);SUB-SBSB
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "SUB-SBSB" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END SUB-SBSB
  
(DEFUN C:REF1 (/ pt1);REF1
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 5/31/01
  (setvar "cmdecho" 0)
  (setvar "attdia" 1)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "REF1" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END REF1
 
(DEFUN C:REF2 (/ pt1);REF2
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 5/31/01
  (setvar "cmdecho" 0)
  (setvar "attdia" 1)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "REF2" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END REF2

(DEFUN C:DATA (/ pt1);START OF DATA
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 6/1/01
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "DATA" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END DATA

(DEFUN C:LAP (/ pt1);START OF LAP
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 6/1/01
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "LAPSCHED" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END LAP

(DEFUN C:A615 (/ pt1);START OF A615
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 6/1/01
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "A615" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END A615

(DEFUN C:GRADE40 (/ pt1);START OF GRADE40
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 6/1/01
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "GRADE40" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END GRADE40

(DEFUN C:A706 (/ pt1);START OF A706
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 6/1/01
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "A706" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END A706

 (DEFUN C:NOTE2 (/ pt1);START NOTE2
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "NOTE2" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END NOTE2

 (DEFUN C:NOTE (/ pt1);START NOTE
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "NOTE" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END NOTE

 (DEFUN C:BARLISTINFO (/ pt1);START BARLISTINFO
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "BARLISTINFO" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END BARLISTINFO

 (DEFUN C:BARBENDINFO (/ pt1);START BARBENDINFO
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "BARLISTINFO" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END BARBENDINFO

 (DEFUN C:spec (/ pt1);START SPEC
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/27/00
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "SPECIALBAR" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END SPEC

(DEFUN C:1-16SCBLOCK (/ pt1);START OF 1-16SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "1-16SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 1-16SCBLOCK

(DEFUN C:1-2SCBLOCK (/ pt1);START OF 1-2SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "1-2SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 1-2SCBLOCK

(DEFUN C:1-4SCBLOCK (/ pt1);START OF 1-4SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "1-4SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 1-4SCBLOCK

(DEFUN C:1-8SCBLOCK (/ pt1);START OF 1-8SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "1-8SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 1-8SCBLOCK

(DEFUN C:1SCBLOCK (/ pt1);START OF 1SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "1SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 1SCBLOCK

(DEFUN C:3-16SCBLOCK (/ pt1);START OF 3-16SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "3-16SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 3-16SCBLOCK

(DEFUN C:3-32SCBLOCK (/ pt1);START OF 3-32SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "3-32SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 3-32SCBLOCK


(DEFUN C:3-4SCBLOCK (/ pt1);START OF 3-4SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "3-4SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 3-4SCBLOCK


(DEFUN C:3-8SCBLOCK (/ pt1);START OF 3-8SCBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "3-8SCBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 3-8SCBLOCK

(DEFUN C:HEADER1 (/ pt1);START OF HEADER1
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "HEADER1" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END HEADER1

(DEFUN C:HEADER2 (/ pt1);START OF HEADER2
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "HEADER2" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END HEADER2

(DEFUN C:HEADER3 (/ pt1);START OF HEADER3
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "HEADER3" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END HEADER3

(DEFUN C:22X34 (/ pt1);START OF 22X34
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "22X34" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 22X34


(DEFUN C:30X42 (/ pt1);START OF 30X42
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "30X42" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END 30X42

(DEFUN C:TXTPT (/ pt1);START OF TXTPT
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "TXTPT" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END TXTPT

(DEFUN C:AL11X17 (/ pt1);START OF AL11X17
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "AL11X17" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END AL11X17

(DEFUN C:AIRBLOCK (/ pt1);START OF AIRBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "AIRBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END AIRBLOCK

(DEFUN C:FS11X17 (/ pt1);START OF FS11X17
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "FS11X17" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END FS11X17

(DEFUN C:AS11X17 (/ pt1);START OF AS11X17
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "AS11X17" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END AS11X17

(DEFUN C:PREFORM (/ pt1);START OF PREFORM
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "PREFORM" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END PREFORM


(DEFUN C:AIRBLOCK (/ pt1);START OF AIRBLOCK
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "AIRBLOCK" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END AIRBLOCK

(DEFUN C:AL22X34 (/ pt1);START OF AL22X34
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "AL22X34" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END AL22X34

(DEFUN C:coast11X17 (/ pt1);START OF coast11X17
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "coast11X17" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END coast11X17

(DEFUN C:coast18X24 (/ pt1);START OF coast18X24
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "coast18X24" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END coast18X24

(DEFUN C:coast30X42 (/ pt1);START OF coast30X42
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "coast30X42" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END coast30X42

(DEFUN C:CMC11X17 (/ pt1);START OF CMC11X17
  (load "error")
  (initerr)
  (setq sc (getvar "DIMSCALE"));REV 1/16/03
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\nInsertion Point: "))
  (prompt "\nRotation Angle: ")
  (COMMAND "INSERT" "CMC11X17" pt1 SC"" PAUSE)
  (IF(= METRIC T)
  (COMMAND "SCALE" "L" "" pt1 25.4))
  (reset nil)
 );END CMC11X17
 ;END INSERTFILES.LSP

Edited November 14, 2024 by SLW210
Added Code Tags!!

November 14, 2024

also noticed that when i added "directories" into the search path it isnt populating the "working" search path like normal

November 14, 2024

In the future please use Code Tags for your Code. (<> in the editor toolbar)

November 14, 2024

I'll assume that the LISP file loads OK being in a trusted location, with appload or similar?

Is it all the routines in the file or just a specific routine?

November 14, 2024

you could try : (vl-catch-all-apply 'vl-cmdf (list "-INSERT" "A706" pt1 SC"" PAUSE))

and note the - in front of insert

November 14, 2024

@B4DW01F

I recommend you post the relevant functions in your "error" Lisp you are loading. I suspect the problem is there rather than the functions you posted.

November 14, 2024

9 hours ago, pkenewell said:

@B4DW01F

I recommend you post the relevant functions in your "error" Lisp you are loading. I suspect the problem is there rather than the functions you posted.

;*    AutoLISP Files for Inside AutoLISP IL DISK - (c) 1987, 1988, 1989
;* New Riders Publishing. All Rights Reserved. Version 10.00 for PC-DOS/MS-DOS
;*       Developed by Rustin Gesner, Patrick Haessly and Joseph Smith
;*
;* ERROR.LSP
;* The *ERROR* function is designed to maintain the system's integrity. The main
;* function executes each item on the #error list. The list must be a valid LISP
;* expression. The error list can be modified throughout the course of a 
;* program using ADDERR and DELERR. INITERR resets the #error list to your 
;* standard settings. RESET resets the environment. It can be called at the end
;* of a program.
;*

;* INITERR sets default #ERROR list for resetting environment and/or error recovery
(defun initerr ()
  (setq #error (append
    '((setvar "BLIPMODE" 0))              ;blipmode should be OFF
    '((setvar "CMDECHO" 1))               ;command echo on
    '((setvar "MENUECHO" 0))              ;menu echo on
    '((setvar "OSMODE" 675))               ;snap none
    '((setvar "HIGHLIGHT" 1))            ;highlight on
    '((setvar "ATTDIA" 0))               ; 2-10-97 DV
  ));setq
);defun

;* ADDERR adds one item to the #ERROR list. ITEM must be quoted expression, 
;* or in form: (list 'FUNCTION arg arg arg...) where arguments are quoted or
;* not depending on whether you pass the current value or use them literally.
(defun adderr (item)
   (if (not (member item #error))         ;if it's not a duplicate item
     (setq #error (cons item #error))     ;add it to the list
   );if
);defun
;*

;* DELERR deletes one item from the #ERROR list.  ITEM is same format as ADDERR.
(defun delerr (item)
   (setq #error (subst '() item #error))  ;replace item with a null list
);defun
;*

;* #ERR stores the original standard error function, before it gets redefined.
;(if #err nil (setq #err *error*))

;* *ERROR* redefines the standard error function.
(defun *error* (msg)
  (command nil nil nil)              ;cancels any pending command
  (reset msg)                        ;processes #ERROR list, restoring environment
  ;(grtext)                           ;clear the graphics text boxes
                   ;Check the type of error. If user did not cancel program,
                   ;use standard message. Otherwise, it's a program bug.
  ;(if (and (/= msg "console break") (/= msg "Function canceled")) ;compare messages
     ;(progn                          ;then program bug
        ;(grclear)                    ;clear the graphics screen
        ;(grtext -1 "Program ERROR!") ;prompt the user in status box
     ;);progn
  ;);if
  (princ)
);defun *ERROR*
;*

;* RESET function resets the standard environment. You can call it at the end
;* of a function to put the settings back in order, including any tasks you 
;* ADDERR but do not DELERR. If you call it from a function for normal
;* termination, pass it a NIL argument.
(defun reset (msg / x)
  (if msg                                       
    (prompt (strcat "Error: " msg "\n"))        ;print out error message
    (prompt "\nResetting environment... ")
  )
  (setq x 1)                                    ;sets the counter x
  (foreach func #error                          ;loops through error items
    (eval func)                                 ;evaluates each one
    ;(grtext -2 (strcat "Reset " (itoa x)))      ;Shows user a running count of 
    (setq x (1+ x))                             ;the number of items reset
  );foreach
  (initerr)                                     ;resets default #ERROR list
  (princ)
);defun RESET
;*

;* C:*ERROR* restores the standard AutoLISP *ERROR* function for testing, 
;* using the #ERR variable which stored *ERROR* at the top of ERROR.LSP.
;(defun C:*ERROR* () (setq *error* #err))

(princ)
;* End of ERROR.LSP
;*

Edited November 14, 2024 by B4DW01F

November 14, 2024

11 hours ago, Steven P said:

I'll assume that the LISP file loads OK being in a trusted location, with appload or similar?

Is it all the routines in the file or just a specific routine?

Yes it is in a trusted location and added to the search path directories, but i noticed autocad isnt populating the "working" search path like normal

November 15, 2024

@B4DW01F

Look in your *error* defun:

Change This:

(command nil nil nil)

to This:

(command-s nil nil nil)

Sign In

Fresh Install, new problem

Recommended Posts

B4DW01F

B4DW01F

SLW210

Steven P

rlx

pkenewell

B4DW01F

B4DW01F

pkenewell

Join the conversation

Tutorials

Forums

Activity