为什么这程序不能执行第二次呢

wandong

使用getstring函数时，应判断值是否为""(按回车键),而""并不是nil。

ZZXXQQ

9楼改了，再试试。

669423907

ZZXXQQ 发表于 2014-11-2 18:29

非常好！如果添加 t1=t2=0 时就无公差，也相当于还原作用，是不是更好呢

dhy

ZZXXQQ 发表于 2014-11-3 21:12
9楼改了，再试试。

谢谢，达到理想的效果，这才是我想要的

dhy

ZZXXQQ 发表于 2014-11-2 18:29

请问公差里面，明明是输入了+号的，为什么不显示+号呢，-号就有显示

ZZXXQQ

dhy 发表于 2014-11-4 11:17
请问公差里面，明明是输入了+号的，为什么不显示+号呢，-号就有显示

再改一下

2. (defun C:G5 ()
   
3. (if (and
   
4.       (if (setq t11 (getreal
   
5.         (strcat "\n请指定上限公差值+" (if t1 (strcat "<" (rtos t1 2) ">: ") ": "))))
   
6.        (setq t1 t11) t1
   
7.       )
   
8.       (if (setq t21 (getreal
   
9.                     (strcat "\n请指定下限公差值-" (if t2 (strcat "<" (rtos t2 2) ">: ") ": "))))
   
10.        (setq t2 t21) t2
    
11.       )
    
12.       (princ "\n选择尺寸: ")
    
13.       (setq ss (ssget '((0 . "DIMENSION")))))
    
14. (progn
    
15.   (setq t1f (if (> t1 0) "+" ""))
    
16.   (setq t2f (if (> t2 0) "+" ""))
    
17.   (if (equal t1 t2 1e-6)
    
18.    (setq txt (strcat "<>%%P" (rtos t1 2)))
    
19.    (setq txt (strcat "<>{\\H0.7x;\\S" t1f (rtos t1 2) "^" t2f (rtos t2 2) ";}"))
    
20.   )
    
21.   (repeat (setq i (sslength ss))
    
22.    (setq ent (entget(ssname ss (setq i (1- i)))))
    
23.    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))
    
24.   )
    
25. ))
    
26. (princ)
    
27. )
    

(defun C:G5 ()<br /> (if (and <br />       (if (setq t11 (getreal<br />         (strcat "\n请指定上限公差值+" (if t1 (strcat "<" (rtos t1 2) ">: ") ": "))))<br />        (setq t1 t11) t1<br />       )<br />       (if (setq t21 (getreal<br />                     (strcat "\n请指定下限公差值-" (if t2 (strcat "<" (rtos t2 2) ">: ") ": "))))<br />        (setq t2 t21) t2<br />       )<br />       (princ "\n选择尺寸: ")<br />       (setq ss (ssget '((0 . "DIMENSION")))))<br /> (progn<br />   (setq t1f (if (> t1 0) "+" ""))<br />   (setq t2f (if (> t2 0) "+" ""))<br />   (if (equal t1 t2 1e-6)<br />    (setq txt (strcat "<>%%P" (rtos t1 2)))<br />    (setq txt (strcat "<>{\\H0.7x;\\S" t1f (rtos t1 2) "^" t2f (rtos t2 2) ";}"))<br />   )<br />   (repeat (setq i (sslength ss))<br />    (setq ent (entget(ssname ss (setq i (1- i)))))<br />    (entmod (subst (cons 1 txt) (assoc 1 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

dhy

ZZXXQQ 发表于 2014-11-4 11:30
再改一下

原来还可以这样，谢谢！.还想问一下，1e-6是什么意思呢？

ll_j

dhy 发表于 2014-11-4 13:38
原来还可以这样，谢谢！.还想问一下，1e-6是什么意思呢？

很小的实数，常用来表示精度，用作浮点数的“模糊”相等。
计算机进行运算时，整数和浮点数（实数）是不同的，整数用加法器运算，不会出现小数，最终结果是确定的等于。而小数则在计算机中不能准确表示，在计算机中用浮点数近似表示一个实数，这样在计算时也就会和需要表达的值有一个“误差”，而且在不断计算时，这些“误差”可能是累计的，这样，在进行浮点数计算时，可以近似把两个误差在一定范围内的数认为是“相等”，这个误差就是精度。1e-6就常表示这个精度。