[编程交流] 变量won#039；t保持值

 
(if D:number
   (setq dia (getreal (strcat "\nEnter Nominal diameter <"(rtos D:number)">: ")))
   (setq dia (getreal "\nEnter Nominal diameter: "))
 )
 (if (/= dia "")
   (setq D:number dia)
 )

Error: Bad argument type: numberp: nil

(defun c:test  (  /  dia )
      
(if D:number
   (setq dia (getreal (strcat "\nEnter Nominal diameter <"(rtos D:number)">: ")))
   (setq dia (getreal "\nEnter Nominal diameter: "))
 )
 
 (if dia
    (setq D:number dia)
 )
 )

(defun c:tktag2set (/ tsize tcircr)
   (if    (not (getenv "tag:tsize"))
       (setenv "tag:tsize" (rtos (getvar "TEXTSIZE")))
   ) ; end if
   (if     (not (getenv "tag:tcircr"))
       (setenv "tag:tcircr" "4.2")
   ) ; end if
   (princ
       (strcat    "\nCurrent Settings:"
           "\n\tText Height: "
           (getenv "tag:tsize")
           ",\tText Circle Radius @ 1:1: "
           (getenv "tag:tcircr")
       ) ; end strcat
   ) ; end princ
   (if    (setq tsize (getreal (strcat
                   "\nSpecify Text Height <"
                   (getenv "tag:tsize")
                   ">: ")))
       (setenv "tag:tsize" (rtos tsize))
   ) ; end if
   (if    (setq tcircr (getreal (strcat
                   "\nSpecify Text Circle Radius @ 1:1 <"
                   (getenv "tag:tcircr")
                   ">: ")))
       (setenv "tag:tcircr" (rtos tcircr))
   ) ; end if
   (princ "\nBase Variables Set.")
   (princ)
) ; end program
   

(defun c:test (/ dia)
   (or (getenv "D:number") (setenv "D:number" "5"))
   (if (setq dia (getreal (strcat "\nEnter Nominal Diameter <" (getenv "D:number") ">: ")))
       (setenv "D:number" (rtos dia))
   ) ; end if
   (alert (strcat (getenv "D:number") " is the value of the global Variable."))
   (princ)
)