Understanding 'Getenv Variable call denied'?

[ScottMC]

Just found out that 'my program' refuses transparent use of a variable saved.

This happens only when trying to use a saved variable when it's 'my program'.

The variable is unrecognized: Example..

 

Command: c2

 2.Point Circle (M) <'CT for.tan !pp>
 Specify 1st Point of 2P.Circle: !pp

Invalid 2D point.                         /\ <- keyed variable call

---------------------------------------

 

Here's the original reply..

 

Command: c
CIRCLE Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 2p
Specify first end point of circle's diameter: !pp
"39.5838,25.6142,0"         <--------------- call /\ works

the /\ contents are actually without parenthesis but appear as shown.

           Command: (princ (getenv "pp"))
             39.5838,25.6142,0"39.5838,25.6142,0"

 

How can the code be changed to allow [ !pp ]?

 

Also tested this by making a base command (no extras) and the results are the same.

(defun c:c2 ( / *error* p oldsnap 1st) ;just 2 point.. //wasCIRCLE TANGENT RE: 19SEPT17
  (princ "\n 2.Point Circle (M) <'CT for.tan !pp> ")

  (setq pp "")
     (setq oldsnap (getvar 'osmode))
       (setvar 'osmode (boole 7 (getvar 'osmode) 512)) ;; added 'nea for 1st point
   
   (defun *error* ( msg )
      (setvar 'cmdecho 0) ;; 5.28.24
     (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
        (setvar 'osmode oldsnap)
     (if msg (prompt (strcat "\n" msg)))
      (if (eq pp "") (setq pp (getenv "pp"))) ;; restores stored <!pp> from "pp" if crash
     (setvar 'cmdecho 1)    
     (princ)
   )
  (initget 103)

(princ "\n Specify 1st Point of 2P.Circle: ") ;; (rtos (getvar 'circlerad))">" ;; <- not needed
    (setvar 'cmdecho 0)
    
   (while T ;;                                  'M' loop..
   (setq 1st (getpoint)) ;; get 1st edge of '2p.cir
       (command ".circle" "2p" 1st)
       (setvar 'cmdecho 1)
          (while (= 1 (logand 1 (getvar 'cmdactive)))
          (setvar 'osmode (boole 7 (getvar 'osmode) 128))         ;(setvar 'osmode 128) ;; added 'perp
            (command "\\")
           )
           (setq p2 (getvar 'lastpoint))
       (setq p (trans (cdr (assoc 10 (entget (entlast)))) (cdr (assoc 210 (entget (entlast)))) 1)) ;; 210 for 'z' direction
     (vl-cmdf "_copybase" '(0 0 0) "_L" "" "_erase"  "_L" "") ;; same as in: cut-... [ `` ]
    (setvar 'osmode oldsnap)	
    (setvar 'cmdecho 0)

        ; (princ
          ; (setq pp                               ;;  make/prints coords & paste usable
            ; (strcat
               ; (rtos (car p2) 2 4) ","        ;; 'p' -- vertex from pgm /\ getpoint,...
               ; (rtos (cadr p2) 2 4) ","
               ; (rtos (caddr p2) 2 4) 
              ; )
           ; )
          ; )
(princ "\n")
        (princ
          (setq pp                               ;;  make/prints coords & paste usable
            (strcat
               (rtos (car p) 2 4) ","        ;; 'p' -- vertex from pgm /\ getpoint,...
               (rtos (cadr p) 2 4) ","
               (rtos (caddr p) 2 4) 
              )
           )
          )
 
          (princ (strcat " | Ø: " (rtos (* (getvar 'circlerad) 2) 2 4)" | R: " (rtos (getvar 'circlerad) 2 4)))

       (entmakex (list (cons 0 "POINT") (cons 10 p))) ;; clean point 
       (entmakex (list (cons 0 "POINT") (cons 10 p2))) ;; clean point 

         (command "_pasteclip" '(0 0 0)) ;; restore circle [now 'last.obj]
         (princ "\n Specify 1st Point of 2P.Circle: ") ;;  (rtos (getvar 'circlerad))">"
        (setenv "pp" pp)
        (setvar 'osmode oldsnap)
       ) ;; end of while
    (setvar 'cmdecho 1)
   (*error* nil)
  (princ)
)

 

Same function but not from a home.made cmd.