Courtmyers,
Do you mean you want to do something like this:
(defun c:LE () (command "Line" "endp" pause)(princ))
(defun c:LI () (command "Line" "int" pause)(princ))
(defun c:LM () (command "Line" "mid" pause)(princ))
(defun c:LN () (command "Line" "nea" pause)(princ))
(defun c:LQ () (command "Line" "qua" pause)(princ))
Or like this:
(setq osm (getvar "osmode"))
(setvar "osmode" 512) (setq a (getpoint "[First point]: ")) ;nea
(setvar "osmode" 128) (setq b (getpoint a "Second point: ")) ;per
(setvar "osmode" osm)
Regardless of which one to use, you will need to pay close attention to your PGP file.
Good Luck!
Scot-65
Scot-65
A gift of extraordinary Common Sense does not require an Acronym Suffix to be added to my given name.