[编程交流] 区域lisp文件需要altera

(defun drtxt (/ rn tx ls vl lt ht lb hb nr pt)
 (setq tx (strcat  
   (rtos (/ (getvar "area") 1000000) 2 1) 
   " m2"
   )             
   rn (getstring "\nRoom Name: ")
 )
 (setq ls (list (cons 1[color="blue"] (Strcat rn tx))'(40 . 75)[/color])
         vl (textbox ls)
         vl (cadr vl)
         lt (car vl)
         ht (cadr vl)
         vl (grread T)
         nr (car vl)
         pt (cadr vl)
 )
 (princ "\nInsert Point: ")
 (while (/= nr 3)
   (command "redraw")
   (grdraw pt (setq pt (polar pt 0 lt)) 7)
   (grdraw pt (setq pt (polar pt (* pi 0.5) ht)) 7)
   (grdraw pt (setq pt (polar pt pi lt)) 7)
   (grdraw pt (polar pt (* pi 1.5) ht) 7)
   (setq vl (grread T)
  nr (car vl)
  pt (cadr vl)
   )
   ) ;end while function                
[color="blue"] (initget 7)
 (setq chmval (getreal "\nEnter CH value: "))    
 (command "-mtext"  pt
       "w"  0
       (Strcat "{\\fArial|b0|i0|c0|p34;\\H2x;"
               (Strcase rn)
               "\\H0.5x;\\P"  tx
               " CH "
               (rtos chmval 2 1) " m"  " }")
       "")
 (setq str (entget (entlast)))
 (entmod (subst (cons 40 75)(assoc 40 str) str))    [/color]
     
 (redraw)
)