Topic: problem with startup lisp help

[ELOQUINTET]

when my autocad loads i have to hit cancel before i can begin working everytime i think it has to do with my startup lisp, can somebody help me.
here's what happens and below that is my lisp:


Regenerating model.
  take a deep breath and count to 10.....
***---  Loading Text Insert, type TextInsert to run  ---***Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
Command: e
Invalid option keyword.
Command: *Cancel*

Code: [Select]

(defun c:sanity ()  
   (setvar 'acadlspasdoc 1)
   (setvar 'apbox 0)
   (setvar 'attdia 1)
   (setvar 'attmode 1)
   (setvar 'blipmode 0)
   (setvar 'cecolor "bylayer")
   (setvar 'celtype "bylayer")
   (setvar 'cmddia 1)
   (setvar 'clayer "0")
   (setvar 'coords 2)
   (setvar 'cursorsize 100)
   (setvar 'demandload 3)
   (setvar 'dimassoc 1)
   (setvar 'dimadec 2)
   (setvar 'dimatfit 2)
   (setvar 'dimfrac 0)
   (setvar 'dimtmove 2)
   (setvar 'dimrnd 0)
   (setvar 'dragmode 2)
   (setvar 'filedia 1)
   (setvar 'filletrad 0)
   (setvar 'fillmode 1)
   (setvar 'fontalt "arial")
   (setvar 'gridmode 0)
   (setvar 'highlight 1)
   (setvar 'hpbound 1)
   (setvar 'hpscale 1)
   (setvar 'isavebak 1)
   (setvar 'ltscale 1)
   (setvar 'lunits 5)
   (setvar 'luprec 5)
   (setvar 'lwdisplay 0)
   (setvar 'maxactvp 64)
   (setvar 'mbuttonpan 1)
   (setvar 'mirrtext 0)
   (setvar 'orthomode 1)
   (setvar 'osmode 127)
   (setvar 'pdmode 1)
   (setvar 'pdsize 30)
   (setvar 'pickadd 1)
   (setvar 'pickauto 1)
   (setvar 'pickfirst 1)
   (setvar 'pickstyle 1)
   (setvar 'plinewid 0)
   (setvar 'proxyshow 1)
   (setvar 'psltscale 1)
   (setvar 'rasterpreview 0)
   (setvar 'rememberfolders 1)
   (setvar 'savetime 10)
   (setvar 'snapmode 0)
   (setvar 'startuptoday 0)
   (setvar 'textfill 1)
   (setvar 'textstyle "standard")
   (setvar 'ucsfollow 0)
   (setvar 'visretain 1)
   (setvar 'zoomfactor 40)
)  
(c:sanity)
(princ "\n  take a deep breath and count to 10.....")

[ronjonp]

Is this all you have in your startup? The message you are getting looks like a lisp routine is getting loaded and running.

Ron

[ELOQUINTET]

no i have this lisp which loads alot of individuals and several vlx and dvb files in my startup suite

Code: [Select]

(defun danloader (/ filelst)

  (setq
    filelst
    (list
      "ADDEMUP.LSP"
      "ARW.LSP"
      "ATTINCR.LSP"
      "BAP.LSP"
      "BKH.LSP"
      "BL.LSP"
      "BLKSWP.LSP"
      "C2.LSP"
      "C3.LSP"
      "CC.LSP"
      "CCOUNT.LSP"
      "CHKDIMS.LSP"
      "CHOP.LSP"
      "CMI.LSP"
      "COPY_VPLAYER.LSP"
      "COUNT.LSP"
      "DIMARC.LSP"
      "DIMP.LSP"
      "DITOT.LSP"
      "DLINE.LSP"
      "DOF.LSP"
      "DVX.LSP"
      "DZ.LSP"
      "EQ.LSP"
      "F0.LSP"
      "FD.LSP"
      "FF.LSP"
      "FU.LSP"
      "ISOBLK.LSP"
      "LD.LSP"
      "LM.LSP"
      "LPR.LSP"
      "LTCL.LSP"
      "LTH.LSP"
      "LY.LSP"
      "MATCHBLOCKS.LSP"
      "MCR.LSP"
      "MD.LSP"
      "MF.LSP"
      "MH.LSP"
      "MH2.LSP"
      "MLE.LSP"
      "MOFF.LSP"
      "MOVE_LAY.LSP"
      "PANE.LSP"
      "PLOTTABS.LSP"
      "PSTEXT.LSP"
      "QC.LSP"
      "RNL.LSP"
      "RL.LSP"
      "RSUFF.LSP"
      "SINGLA.LSP"
      "SL.LSP"
      "SLOT.LSP"
      "SWAP.LSP"
      "TCASE.LSP"
      "TDS.LSP"
      "TEXTINSERTDCL.LSP"
      "TINC.LSP"
      "VIF.LSP"
      "-VIF.LSP"
      "VPL.LSP"
      "VPTOG.LSP"
      "ZE.LSP"
      "ZP.LSP"
      "ZW.LSP"
      )
    )
  (setvar 'cmdecho 0)
  (foreach n filelst
           (if (not
                 (findfile n)
                 )
             (progn
               (prompt (strcat "\n" n " not found"))
               (princ)
               ); progn
             ;else
             (load n)
             ); if
           )
  (setvar 'cmdecho 1)
  (prompt "\nFiles Loaded.....")(princ)

  ); defun


[ronjonp]

Looks like textinsertdcl.lsp is giving you the problem....not sure why but CAB may know.  

[ELOQUINTET]

not sure about that because it was happening before today and i just added cab's routine to my startup suite again today so it must be running last that's all

[ELOQUINTET]

confirmed if i take it out of startup suite close and reopen i get same thing

[CADaver]

Add a counter to the (foreach and print it as it goes. That'll give you a clue where it's blowing up.

[Keith™]

Good thought CADaver ....

[ELOQUINTET]

ok i see the for each but ya lose me on the counter, can u explain?

[Keith™]

Code: [Select]


(setq counter (1+ counter))


[ELOQUINTET]

ok and that would go where keith

[Keith™]

Put it right before the load command and also make sure you set the initial value of counter to 0 at the begining of the program