Topic: Startup Priority

[ronjonp]

T Willey,

You lost me .

What steps do you take to ensure that the PGP file takes priority over externally defined commands?

I feel like this should be alot easier than I'm making it out to be.

Thanks for all the input,

Ron

[T.Willey]

I didn't.  I opened the pgp file, made a list of all the command alias's and the commands.  Then I read all the lisp files that are loaded, and compaired them.  Now I'm trying to convert the ones that overlap, to the commands that are defined in the pgp file.

So I have a list of lists, that I need to make defuns out of.  One example (on my computer) would be
("ATE" . "DDATTE")
Trying to do something like
(defun c:ate () (command ".ddatte"))
But can't get it to work right yet.

[Jeff_M]

Ron, as I see it Tim may be on to the only way around this situation, without telling your users to use alias's that don't conflict with your lisp functions.

Tim, here's a quick example to write/load/run/remove a lisp from a lisp:

Code: [Select]

(defun c:comments (/ file1 file2 t1 t2 timer1-end
   timer1-start timer2-end timer2-start)
  (setq file1 (open "c:\\testlisp1.lsp" "w")
file2 (open "c:\\testlisp2.lsp" "w"))
  (write-line "(defun c:test2 (/ mytest2)" file2)
  (write-line "  (setq mytest2 \"mytest2\")" file2)
  (write-line "  (princ)" file2)
  (write-line ")" file2)
  (close file2)
  ;;
  (write-line "(defun c:test1 (/ mytest1)" file1)
  (write-line "  (setq mytest1 \"mytest1\")" file1)
  (repeat 100000
    (write-line ";;;;this is a standard comment" file1)
    )
  (write-line "  (princ)" file1)
  (write-line ")" file1)
  (close file1)
  (setq timer1-start (getvar "millisecs"))
  (load "c:\\testlisp1.lsp")
  (setq timer1-end (getvar "millisecs"))
  (setq timer2-start (getvar "millisecs"))
  (load "c:\\testlisp2.lsp")
  (setq timer2-end (getvar "millisecs"))
  (setq t1 (strcat (rtos (/ (- timer1-end timer1-start) 1000.0) 2 5) " seconds."))
  (setq t2 (strcat (rtos (/ (- timer2-end timer2-start) 1000.0) 2 5) " seconds."))
  (princ (strcat "\nTime to load Testlisp1: " t1))
  (princ (strcat "\nTime to load Testlisp2: " t2))
  (princ (strcat "\nTestlisp1 file size = "
(rtos (vl-file-size "c:\\testlisp1.lsp") 2 0) " bytes."))
  (princ (strcat "\nTestlisp2 file size = "
(rtos (vl-file-size "c:\\testlisp2.lsp") 2 0) " bytes."))
  (vl-file-delete "c:\\testlisp1.lsp")
  (vl-file-delete "c:\\testlisp2.lsp")
  (princ)
  )


[T.Willey]

Is there no other way, than to write it to a lisp file, then load it, then delete the file?  I was hoping to do it from the command line, kind of behind the scenes.

Thanks Jeff.

[Jeff_M]

Yeah......this will load it:

Code: [Select]

(eval (read "(defun c:test () (alert \"TEST\"))"))


[T.Willey]

Yeah......this will load it:

Code: [Select]

(eval (read "(defun c:test () (alert \"TEST\"))"))


I tried that, and it didn't work, now I try it, and it does.  I must have typed something wrong.  Thanks Jeff.

Ron,
Here is the code I did, let me know if it works for you.  Right now it prompts you with how to call the lisp funtion that won't work anymore.

Code: [Select]

(defun c:ResetPgp (/ pgpFile Opened TextLine ComamndList LispRoutine)

(if (setq pgpFile (findfile "acad.pgp"))
 (progn
  (setq Opened (open pgpFile "r"))
  (while (setq TextLine (read-line Opened))
   (if
    (and
     (/= (substr TextLine 1 1) ";")
     (vl-string-search "," TextLine)
     (vl-string-search "*" TextLine)
    )
    (setq CommandList
     (cons
      (cons
       (strcase (substr TextLine 1 (vl-string-search "," TextLine)))
       (strcat "." (substr TextLine (+ 2 (vl-string-search "*" TextLine))))
      )
      CommandList
     )
    )
   )
  )
  (close Opened)
  (foreach LispRoutine (vl-remove-if-not '(lambda (x) (= (strcase (substr x 1 2)) "C:")) (atoms-family 1))
   (if (setq tmpList (assoc (strcase (substr LispRoutine 3)) CommandList))
    (progn
     (eval (read (strcat "(defun c:" (car tmpList) " () (command \"." (cdr tmpList) "\") (princ) )")))
     (prompt (strcat "\n Lisp routine \"" (substr LispRoutine 3) "\" is repalced with acad.pgp command alias."))
    )
   )
  )
 )
)
(princ)
)


[CAB]

I'm with Bob on this one.

But is this what you wanted Tim?

Code: [Select]

(defun test (key)
  (cond
    ((= key "prg1")
     (defun c:newprg ()
       (c:prg1) ; call the routine
     )
    )
    ((= key "prg2")
     (defun c:newprg ()
       (c:prg2) ; call the routine
     )
    )
    ((= key "prg3")
     (defun c:newprg ()
       (c:prg3) ; call the routine
     )
    )
  )
  (c:newprg)
)


(defun c:prg1()
  (print "You are here, prg1")
  (princ)
  )
(defun c:prg2()
  (print "You are here, prg2")
  (princ)
  )
(defun c:prg3()
  (print "You are here, prg3")
  (princ)
  )

(test "prg3")
(test "prg2")
(test "prg1")

[T.Willey]

Not really Alan, Jeff showed me the right way.  Thanks though.

[CAB]

What do they say? "Don't dive in if you cant see the bottom." 

[T.Willey]

What do they say? "Don't dive in if you cant see the bottom." 

You have helped me before, so no big deal.    You can post to help me out anytime. 

[CADaver]

I don't have all the autoload lines in the mnl...I have a line that looks for an external file with all the lisp definitions in it and loads it if found. I know I need to do some cleanup but what i don't understand here is why reinit doesn't recognize my command aliases when manually initialized after startup.

If you have code to this affect:

Code: [Select]

(AUTOLOAD "bb" '("bb"))
when you enter bb it will autoload the function regardless of the pgp setting, won't it?.

[CADaver]

Gotta go with Bob on this one.  It's a lot easier to avoid the conflicts outright than to program around them.

[TimSpangler]

One thing we do here when creatin new functions is to give them 3 letter call instead of 2 so they do not conflict with acad and if you are a keyboard junkie you know what your lisps are.

[GDF]

Ron,
Here is the code I did, let me know if it works for you.  Right now it prompts you with how to call the lisp funtion that won't work anymore.

Code: [Select]


(defun c:ResetPgp (/ pgpFile Opened TextLine ComamndList LispRoutine)

(if (setq pgpFile (findfile "acad.pgp"))
 (progn
  (setq Opened (open pgpFile "r"))
  (while (setq TextLine (read-line Opened))
   (if
    (and
     (/= (substr TextLine 1 1) ";")
     (vl-string-search "," TextLine)
     (vl-string-search "*" TextLine)
    )
    (setq CommandList
     (cons
      (cons
       (strcase (substr TextLine 1 (vl-string-search "," TextLine)))
       (strcat "." (substr TextLine (+ 2 (vl-string-search "*" TextLine))))
      )
      CommandList
     )
    )
   )
  )
  (close Opened)
  (foreach LispRoutine (vl-remove-if-not '(lambda (x) (= (strcase (substr x 1 2)) "C:")) (atoms-family 1))
   (if (setq tmpList (assoc (strcase (substr LispRoutine 3)) CommandList))
    (progn
     (eval (read (strcat "(defun c:" (car tmpList) " () (command \"." (cdr tmpList) "\") (princ) )")))
     (prompt (strcat "\n Lisp routine \"" (substr LispRoutine 3) "\" is repalced with acad.pgp command alias."))
    )
   )
  )
 )
)
(princ)
)
[/quote]


Tim

Thanks for sharing this one, I see now that I have some cleanup to do.

Gary

[TimSpangler]

forgot to add that we usually use double first letter i.e. la for the Layer command lla for the label command

Clear as mud?