如何将文字高度设置成默认上一次选择的高度

海贼凌源

感谢<统计周长面积（并在图示中显示出来）>的原作者；
感谢本论坛yshf、lishucheng96对代码的补充。
上一个问题的链接

2. (defun c:qq1 (/ d ent f i lst m2 obj pt ss txt x y)
   
3. (setq TextHeight (getdist "\n输入标注文字高度:")
   
4. Textbh (getstring "\n输入编号前缀:"))
   
5.   (defun maketext (txt pt)             ; 生成文字子函数
   
6.     (entmake (list '(0 . "TEXT") (cons 62 1) (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)))
   
7.   )
   
8.   (setvar "cmdecho" 0)
   
9.   (vl-load-com)
   
10.   (setq ss (ssget) ent (entlast))
    
11.   (command ".region" ss "")
    
12.   (setq ss (ssadd)  lst nil)
    
13.   (while (setq ent (entnext ent))
    
14.     (if (= (cdr (assoc 0 (entget ent))) "REGION")
    
15.       (setq obj (vlax-ename->vla-object ent)
    
16.             pt (vlax-safearray->list (vlax-variant-value (vla-get-centroid obj)))
    
17.             m2 (rtos (* 0.000001 (vla-get-area obj)) 2 3)
    
18.             d (rtos (* 0.001 (vla-get-perimeter obj)) 2 3)
    
19.             lst (cons (list pt m2 d) lst)
    
20.       )
    
21.     )
    
22.   )
    
23.   (command ".undo" "")
    
24.   (setq lst (vl-sort lst (function (lambda (x y)(< (car (car x)) (car (car y)))))))
    
25.   (setq lst (vl-sort lst (function (lambda (x y)(> (cadr (car x)) (cadr (car y)))))))
    
26.   (write-line "编号\t周长(m)\t面积(m2)" )
    
27.   (setq i 1)
    
28.   (foreach x lst
    
29.     (setq pt (car x) m2 (cadr x) d (caddr x))
    
30.     (maketext (strcat Textbh (itoa i)) (list (car pt) (+ (cadr pt) (* 1.2 TextHeight))))
    
31.     (maketext (strcat "L=" d "m") pt)
    
32.     (maketext (strcat "S=" m2 "m\u+00b2") (list (car pt) (- (cadr pt) (* 1.2 TextHeight))))
    
33.     (write-line (strcat (strcat Textbh (itoa i)) "\t" d "\t" m2) f)
    
34.     (setq i (1+ i))
    
35.   )
    
36.   (princ)
    
37. )

(defun c:qq1 (/ d ent f i lst m2 obj pt ss txt x y)<br /> (setq TextHeight (getdist "\n输入标注文字高度:")<br /> Textbh (getstring "\n输入编号前缀:"))<br />   (defun maketext (txt pt)             ; 生成文字子函数<br />     (entmake (list '(0 . "TEXT") (cons 62 1) (cons 10 pt) (cons 40 TextHeight) (cons 1 txt) '(41 . 0.8)))<br />   )<br />   (setvar "cmdecho" 0)<br />   (vl-load-com)<br />   (setq ss (ssget) ent (entlast))<br />   (command ".region" ss "")<br />   (setq ss (ssadd)  lst nil)<br />   (while (setq ent (entnext ent))<br />     (if (= (cdr (assoc 0 (entget ent))) "REGION")<br />       (setq obj (vlax-ename->vla-object ent)<br />             pt (vlax-safearray->list (vlax-variant-value (vla-get-centroid obj)))<br />             m2 (rtos (* 0.000001 (vla-get-area obj)) 2 3)<br />             d (rtos (* 0.001 (vla-get-perimeter obj)) 2 3)<br />             lst (cons (list pt m2 d) lst)<br />       )<br />     )<br />   )<br />   (command ".undo" "")<br />   (setq lst (vl-sort lst (function (lambda (x y)(< (car (car x)) (car (car y)))))))<br />   (setq lst (vl-sort lst (function (lambda (x y)(> (cadr (car x)) (cadr (car y)))))))<br />   (write-line "编号\t周长(m)\t面积(m2)" )<br />   (setq i 1)<br />   (foreach x lst<br />     (setq pt (car x) m2 (cadr x) d (caddr x))<br />     (maketext (strcat Textbh (itoa i)) (list (car pt) (+ (cadr pt) (* 1.2 TextHeight))))<br />     (maketext (strcat "L=" d "m") pt)<br />     (maketext (strcat "S=" m2 "m\u+00b2") (list (car pt) (- (cadr pt) (* 1.2 TextHeight))))<br />     (write-line (strcat (strcat Textbh (itoa i)) "\t" d "\t" m2) f)<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )

本次想向各位询问三个问题：
1、如何将上一次输入的字体高度默认为下一次的参数（在不选择的条件下）？
2、如果我想自动默认字体高度，应该改变哪一段代码？
3、如何我想将文字高度设为以屏幕固定比例（像点样式中的根据屏幕比例），应该如何增加代码？