It's ugly, but I've been successfully using it for a while...
(defun c:EDITPGP (/ pgp-file fn pgp_commands)
;;edit acad.pgp file, will add predefined macros to pgp
;;created by: alan thompson - 4.1.08
;;updated by: alan thompson - 7.14.08 (cleaned up code a little - writes as single line vs. each individually)
(if (and (setq pgp-file (findfile "acad.pgp"))
(setq fn (open pgp-file "a"))
)
(progn
(setq pgp_commands
"
; * * * * * * * * * * * * * * * *
; * * * alan's PGP commands * * *
; * * * * * * * * * * * * * * * *
`, *QLEADER
1, *LayerCurrent
2, *LayerSet
3, *LayerOff
4, *LayerFreeze
5, *MLEADER
6, *LayerMatchSet
7, *LIST
8, *LayerP
9, *EXTRIM
0, *MATH
66, *LFP
MM, *MATCHPROP
BP, *BPOLY
OF, *LAYOFF
FE, *LAYFRZ
BC, *BSCALE
CV, *COPY
CH, *CHPROP
D, *DIST
IN, *-INSERT
LA, *-LAYER
LAY, *CLASSICLAYER
R, *ROTATE
GL, *GLUE
REF, *REFEDIT
QS, *QSAVE
RE, *REGENALL
LG, *LENGTHEN
JT, *JUSTIFYTEXT
DS, *DIMSTYLE
SW, *AECLINEWORKSHRINKWRAP
ww, *wipeout
P, *PLINE
CN, *NCOPY
OK, *OVERKILL
QA, *QLATTACH
DC, *DIMCONTINUE
AA, *ALAN
T2, *TXT2MTXT
FA, *FLATTEN
XR, *CLASSICXREF
IM, *CLASSICIMAGE
V, *VPLAYER
Q, *QSELECT
OP, *OOPS
TTF, *TEXTTOFRONT
QD, *QDIM
B, *BREAK
DS, *DIMDISASSOCIATE
AE, *ATTIPEDIT
GET, *GETSEL
;APPLICATIONS
IE, START IEXPLORE, 1,,
WORD, START WINWORD, 1,,
;C3D COMMANDS
3J, *AeccJoinFeatures
AM, *AIMLEADEREDITADD
CG, *CGLIST
CA, *CGANG
NG, *LABELDLGGENERALNOTE
RL, *LABELREVERSEBEARING
FP, *LABELFLIP
RB, *LABELREVERSEBEARING
CEO, *CURVEFROMENDOFOBJECT
RCC, *REVERSEORCOMPOUND
OI, *ISOLATEOBJECTS
OH, *HIDEOBJECTS
LSE, *LABELSTYLEEDIT
" )
(write-line pgp_commands fn)
(close fn)
(setvar 're-init 16)
)
)
(alert (strcat "\nHey "
(getvar "loginname")
" your acad.pgp has been updated with the following: "
pgp_commands
)
)
(princ)
)