;;;;;用外部文本编辑器编辑快捷键文件acad.pgp[mini_pgp_shelledit].lsp
(defun c:mini_pgp_shelledit (/ old_cmd temp )
  (mai_start nil)
  (and (setq temp (findfile (if (< mai_os_ver 2) "acad.pgp" "default.pgp")))
       (mai_shell_ascii_edit temp)
  )
  (if (< mai_os_ver 2) (setvar "re-init" 16) (command "reinit"))
  (mai_end)
)
