想求一个对尺寸与多行单行文字做比值的计算

lzg8877

             请求帮助！

x_s_s_1

多行文字没格式应该简单

2. (defun c:testa (/ en1 en2 ent1 ent2 t1 t2)
   
3.   (setq        en1  (car (entsel "\n选择对比1:"))
   
4.         en2  (car (entsel "\n选择对比2:"))
   
5.         ent1 (entget en1)
   
6.         ent2 (entget en2)
   
7.         t1   (cdr (assoc 1 ent1))
   
8.         t2   (cdr (assoc 1 ent2)
   
9.              )
   
10.   )
    
11.   (if (eq t1 "")
    
12.     (setq t1 (cdr (assoc 42 ent1)))
    
13.   )
    
14.   (if (eq t2 "")
    
15.     (setq t2 (cdr (assoc 42 ent2)))
    
16.   )
    
17.   (if (eq (type t1) 'STR)
    
18.     (setq t1 (atof t1))
    
19.   )
    
20.   (if (eq (type t2) 'STR)
    
21.     (setq t2 (atof t2))
    
22.   )
    
23.   (cond        ((> t1 t2) (princ "\n先大于后"))
    
24.         ((= t1 t2) (princ "\n先等于后"))
    
25.         ((< t1 t2) (princ "\n先小于后"))
    
26.   )
    
27.   (princ)
    
28. )

(defun c:testa (/ en1 en2 ent1 ent2 t1 t2)<br />   (setq        en1  (car (entsel "\n选择对比1:"))<br />         en2  (car (entsel "\n选择对比2:"))<br />         ent1 (entget en1)<br />         ent2 (entget en2)<br />         t1   (cdr (assoc 1 ent1))<br />         t2   (cdr (assoc 1 ent2)<br />              )<br />   )<br />   (if (eq t1 "")<br />     (setq t1 (cdr (assoc 42 ent1)))<br />   )<br />   (if (eq t2 "")<br />     (setq t2 (cdr (assoc 42 ent2)))<br />   )<br />   (if (eq (type t1) 'STR)<br />     (setq t1 (atof t1))<br />   )<br />   (if (eq (type t2) 'STR)<br />     (setq t2 (atof t2))<br />   )<br />   (cond        ((> t1 t2) (princ "\n先大于后"))<br />         ((= t1 t2) (princ "\n先等于后"))<br />         ((< t1 t2) (princ "\n先小于后"))<br />   )<br />   (princ)<br /> )