writing a lisp to open Acad.PGP directliy with one command

[Anonymous]

hi ,

i want to write a lisp which opens ACAD.PGP file directly,

i write this command but didn't run it to open acad.pgp ,

i don't know where i am wrong..

THANKS in advance..

[hgasty1001 · Accepted solution]

Hi,

You need quote (double) the file name: (command "ai_editcustfile" "acad.pgp")

Gaston Nunez

[markruys2]

ALIASEDIT

[greg_battin]

I think that what you are looking for already exists.

On the Manage Tab > Customization panel and click the PGP button or use the command AI_EDITCUSTFILE as shown in the attached picture.

Or use the ALIAS EDIT command as was already posted...

[Dj_T_Rex2002]

I figured I'd put my two cents

(DEFUN C:PGP ()
  (startapp "notepad" "C:\\Users\\<username>\\AppData\\Roaming\\Autodesk\\AutoCAD 2014\\R19.1\\enu\\Support\\acad.pgp")

[ChitownCADman]

A bit late but this will work also.

(startapp "notepad" (findfile "acad.pgp"))

[pendean]

Upgrade it to reload after editing...

(defun c:shortcuts(/ pgpfile)
(setq pgpfile (strcat "notepad " (findfile "acad.pgp")))
(setvar "re-init" 16)
(prompt "\nACAD.PGP...reinitialized. ")
(princ)
) ;end