Topic: Load PGP file

[cadman6735]

How would I load a custom PGP file without putting it into my Options, support file list?

All I want to do is key command "loadPGP" and it looks for and load my custom pgp from a specified path without editing the profile, options or workspace.  When the applicaiton closes and reopens, I want to key in the command again to gain access to my PGP file once again.

Thanks

Edit, I keep my pgp file on an external clip that I can plug in, so I can keep one PGP file and when moving from desktop to laptop I just plug in the clip.

[alanjt]

Copy the 'custom' acad.pgp file to the active drawing's directory, (setvar 're-init 16), then delete the file.

[Krushert]

Copy the 'custom' acad.pgp file to the active drawing's directory, (setvar 're-init 16), then delete the file.

I can not seem to find that Variable. How do you access it?  I have the setvar route at the command line.

Nevermind found it.

[cadman6735]

Hi Alan

yes, I don't want to copy the file anywhere, I am just curiouse if it is possible to load a pgp file manualy from a specified location.

Thanks

[alanjt]

Hi Alan

yes, I don't want to copy the file anywhere, I am just curiouse if it is possible to load a pgp file manualy from a specified location.

Thanks

You could add the path to the support paths in options. Can easily be done with code.

Code: [Select]

(defun _addSupportPath (path / support files)
  (if (not (wcmatch
             (strcase (setq support (vla-get-supportpath
                                      (setq files (vla-get-files
                                                    (vla-get-preferences
                                                      (vlax-get-acad-object)
                                                    )
                                                  )
                                      )
                                    )
                      )
             )
             (strcat "*" (strcase path) "*")
           )
      )
    (vla-put-supportpath files (strcat path ";" support))
  )
)

[Ketxu]

Hi cadman6735, Why don't you use mini lisp rountine to set shortcut key ? i don't like use PGP ^^

[huiz]

As far as I know a file "acad.pgp" is loaded automatically if it is found in the Support File Path. It also depends on the sequence of the paths. I thought the most upper path is used where an acad.pgp is found. Or maybe they are loaded over each other, don't know exactly.

With ReInit you can reload a pgp file.

So maybe it is possible to use VLisp to add a new path to the Support File Path where a pgp file is found and then with ReInit you load your version, all done with a lisp file. That's a way to automate things.

[Chris]

Here's what I did for mine:
have a text file with your custom commands, then:

Code: [Select]

(defun c:ccd (/ path1)
      (vl-load-com)
      (setq path1 (strcat (vl-filename-directory (findfile "acad.pgp")) "\\")
               proglocationc "MYPATH")
      (if (= (vl-file-systime (strcat path1 logan "acad.pgp")) nil)
(progn
  (vl-file-copy
    (strcat path1 "acad.pgp")
    (strcat path1 logan "acad.pgp")
  ) ;_ end of vl-file-copy
  (vl-file-copy
    (strcat proglocationc "cowgill.txt")
    (strcat path1 "acad.pgp")
    t
  ) ;_ end of vl-file-copy
  (setvar "re-init" 16)
) ;_ end of progn
(progn
  (vl-file-delete (strcat path1 "acad.pgp"))
  (vl-file-rename
    (strcat path1 logan "acad.pgp")
    (strcat path1 "acad.pgp")
  ) ;_ end of vl-file-rename
  (setvar "re-init" 16)
) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of defun

obviously you'd rename a few of the file names, but basically what it does is make a copy of the existing pgp, using the user's login name, then copy's the custom pgp commands from the cowgill.txt file into the acad.pgp, then reninits.  If you run the command again, it erases acad.pgp, and renames the original file back to acad.pgp.