Topic: Startup Priority

[T.Willey]

Tim

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

Gary

No problem.  It looked like it would be fun to see how to solve the problem.  It worked on my computer.

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?.

I have "AA" defined as a multi-select block edit program.  After I run the program I posted, it issues the area command, so it looks like it will work.

[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?.

I have "AA" defined as a multi-select block edit program.  After I run the program I posted, it issues the area command, so it looks like it will work.

I can sorta see where it would.  You've basically redefined the function from the PGP. 

But I think my evaluation of the AUTOLOAD vs PGP is the reason his original attempt was not working, right?

[T.Willey]

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?.

I have "AA" defined as a multi-select block edit program.  After I run the program I posted, it issues the area command, so it looks like it will work.

I can sorta see where it would.  You've basically redefined the function from the PGP. 

But I think my evaluation of the AUTOLOAD vs PGP is the reason his original attempt was not working, right?

I think so, based on what Jeff quoted from the help files.

[ronjonp]

Tim,

Thats a sweet little routine. Worked like a charm here .

Thanks for your efforts,

Ron

[T.Willey]

Tim,

Thats a sweet little routine. Worked like a charm here .

Thanks for your efforts,

Ron

You're welcome Ron.  It was fun to test the brain.

[CADaver]

Thanks for your efforts,

Yeah, thanks Tim.  While I'll probably never use the routine, there are some nifty tricks there for future projects.

[T.Willey]

Thanks for your efforts,

Yeah, thanks Tim.  While I'll probably never use the routine, there are some nifty tricks there for future projects.

One thing you can do, is comment out the line where it makes the defun, and just find out what command alias's you are overwritting.  Could be cool just to see.

You're welcome to all.  Have fun using it or learning something from it.

[T.Willey]

Found an even better way to do this on the Adesk site.  The only problem is, it will always list all the values that match an alias.  But it will make the command calls look better.  But as Tony T. pointed out, it would have to ran per drawing opened.

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
     (vl-acad-undefun (eval LispRoutine)) ;; The one new thing added
     (prompt (strcat "\n Lisp routine \"" (substr LispRoutine 3) "\" is repalced with acad.pgp command alias."))
    )
   )
  )
 )
)
(princ)
)


[Kerry]

$.02

............  my advice would be to defun it as "LabelMakerThingymabobber" and let people shortcut it as they will.  If it's on a menu, it makes no difference at all if it has a short name or not, for people who want to run it commandline, they can do so.

ditto ^^ .. this  has worked well for be. I use a shortcuts.LSP file for the alias definitions, which loads last on the startup sequence