很久没有写程序了。发个旧程序，stgz=实体规整 by lxx.2009.7

梦断江南

2. 
   
3. ;|stgz=实体规整 by lxx.2009.7|;
   
4. (defun c:stgz (/ D E E10 E11 ENT ENTYP FIL FILLST FILSS I IDFIL SS X)
   
5.   (vl-load-com)
   
6.   (if (not (setq d (getint "\n 四舍五入值(负数为小数点后位数)/<0>")))
   
7.     (setq d 0)
   
8.   )
   
9.   (princ "\n 选择过滤实体类型/<全部类型实体>:")
   
10.   (setq idfil '(10 11)) ;; 起点终点圆心.
    
11.   (setq        filss (ssget)
    
12.         i     -1
    
13.   )
    
14.   (if filss
    
15.     (progn
    
16.       (while (setq e (ssname filss (setq i (1+ i))))
    
17.         (setq entyp (cdr (assoc 0 (entget e))))
    
18.         (if (not (member entyp fillst))
    
19.           (setq fillst (cons entyp fillst))
    
20.         )
    
21.       )
    
22.       (setq fil
    
23.              (cons 0
    
24.                    (vl-string-right-trim
    
25.                      ","
    
26.                      (apply 'strcat
    
27.                             (mapcar '(lambda (x) (strcat x ",")) fillst)
    
28.                      )
    
29.                    )
    
30.              )
    
31.       )
    
32.     )
    
33.   )
    
34.   (princ "\n 选择要处理的实体:")
    
35.   (setq i -1)
    
36.   (if (if fil
    
37.         (setq ss (ssget (list fil)))
    
38.         (setq ss (ssget))
    
39.       )
    
40.     (while (setq e (ssname ss (setq i (1+ i))))
    
41.       (setq ent (entget e)
    
42.             e10 (assoc 10 ent)
    
43.             e11 (assoc 11 ent))
    
44.       (setq ent (subst (cons 10 (mapcar '(lambda(x)(x-sswr x d))(cdr e10))) e10 ent)
    
45.             ent (subst (cons 11 (mapcar '(lambda(x)(x-sswr x d))(cdr e11))) e11 ent))
    
46.       (entmod ent)
    
47.       )
    
48.   )
    
49. )
    
50. 
    
51. ;| 四舍五入.!!! ok!----by lxx.2006.9
    
52. (x-sswr -325.3525 2) ->325.35
    
53. (x-sswr 325.3525 -2) -> 300
    
54. (x-sswr 325 -1) ->325.353
    
55. |;
    
56. (defun x-sswr (num n / e r)
    
57.   (setq        e   (expt 10. n)
    
58.         r   (rem num e)
    
59.         num (- num r)
    
60.   )
    
61.   (if (> r (/ e 2))
    
62.     (+ num e)
    
63.     num
    
64.   )
    
65. )
    
66. 
    

<br /> ;|stgz=实体规整 by lxx.2009.7|;<br /> (defun c:stgz (/ D E E10 E11 ENT ENTYP FIL FILLST FILSS I IDFIL SS X)<br />   (vl-load-com)<br />   (if (not (setq d (getint "\n 四舍五入值(负数为小数点后位数)/<0>"))) <br />     (setq d 0)<br />   )<br />   (princ "\n 选择过滤实体类型/<全部类型实体>:")<br />   (setq idfil '(10 11)) ;; 起点终点圆心.<br />   (setq        filss (ssget)<br />         i     -1<br />   )<br />   (if filss<br />     (progn<br />       (while (setq e (ssname filss (setq i (1+ i))))<br />         (setq entyp (cdr (assoc 0 (entget e))))<br />         (if (not (member entyp fillst))<br />           (setq fillst (cons entyp fillst))<br />         )<br />       )<br />       (setq fil<br />              (cons 0<br />                    (vl-string-right-trim<br />                      ","<br />                      (apply 'strcat<br />                             (mapcar '(lambda (x) (strcat x ",")) fillst)<br />                      )<br />                    )<br />              )<br />       )<br />     )<br />   )<br />   (princ "\n 选择要处理的实体:")<br />   (setq i -1)<br />   (if (if fil<br />         (setq ss (ssget (list fil)))<br />         (setq ss (ssget))<br />       )<br />     (while (setq e (ssname ss (setq i (1+ i))))<br />       (setq ent (entget e)<br />             e10 (assoc 10 ent)<br />             e11 (assoc 11 ent))<br />       (setq ent (subst (cons 10 (mapcar '(lambda(x)(x-sswr x d))(cdr e10))) e10 ent)<br />             ent (subst (cons 11 (mapcar '(lambda(x)(x-sswr x d))(cdr e11))) e11 ent))<br />       (entmod ent)<br />       )<br />   )<br /> )<br /> <br /> ;| 四舍五入.!!! ok!----by lxx.2006.9<br /> (x-sswr -325.3525 2) ->325.35<br /> (x-sswr 325.3525 -2) -> 300<br /> (x-sswr 325 -1) ->325.353 <br /> |;<br /> (defun x-sswr (num n / e r)<br />   (setq        e   (expt 10. n)<br />         r   (rem num e)<br />         num (- num r)<br />   )<br />   (if (> r (/ e 2))<br />     (+ num e)<br />     num<br />   )<br /> )<br /> <br />

yoyoho

感谢 梦断江南 版主分享程序!:lol

炫翔

{:soso_e179:}不错，感谢分享源码！