[求助]：ctrl+V复制块有时会出现意外的Z坐标

fylinwater

在R14中有这个问题
有时的Z坐标是个无穷小数 在E-207左右 这个导致DDMODIFY不可以用

ll_j

这个问题我也碰到过，结果线条无法捕捉，当时我没有找到改变z坐标的程序，为此我自己写了一个。

2. 
   
3. ;;改变实体Ｚ坐标
   
4. (defun c:z0 (/ ss z0_main len z i enn ent enz zz zi)
   
5.   (princ "\n拾取实体：")
   
6.   (setq ss (ssget))
   
7.   (defun z0_main ()
   
8.     (setq len (sslength ss)
   
9.           i   -1
   
10.           z   (getreal "\n输入Ｚ坐标：")
    
11.     )
    
12.     (repeat len
    
13.       (setq i        (1+ i)
    
14.             enn        (ssname ss i)
    
15.             ent        (entget enn)
    
16.       )
    
17.       (setq enz
    
18.              (mapcar
    
19.                '(lambda        (zz)
    
20.                   (if (or (= (setq zi (car zz)) 10)
    
21.                           (= zi 11)
    
22.                           (= zi 12)
    
23.                           (= zi 13)
    
24.                           (= zi 14)
    
25.                           (= zi 15)
    
26.                           (= zi 16)
    
27.                       )
    
28.                     (if        (nth 3 zz)
    
29.                       (setq zz (reverse (cons z (cdr (reverse zz)))))
    
30.                       zz
    
31.                     )
    
32.                     zz
    
33.                   )
    
34.                 )
    
35.                ent
    
36.              )
    
37.       )
    
38.       (entmod enz)
    
39.       (entupd enn)
    
40.     )
    
41.   )
    
42.   (if ss
    
43.     (z0_main)
    
44.     (princ "\n未拾取实体。")
    
45.   )
    
46.   (princ)
    
47. )
    
48. 
    

<br /> ;;改变实体Ｚ坐标<br /> (defun c:z0 (/ ss z0_main len z i enn ent enz zz zi)<br />   (princ "\n拾取实体：")<br />   (setq ss (ssget))<br />   (defun z0_main ()<br />     (setq len (sslength ss)<br />           i   -1<br />           z   (getreal "\n输入Ｚ坐标：")<br />     )<br />     (repeat len<br />       (setq i        (1+ i)<br />             enn        (ssname ss i)<br />             ent        (entget enn)<br />       )<br />       (setq enz<br />              (mapcar<br />                '(lambda        (zz)<br />                   (if (or (= (setq zi (car zz)) 10)<br />                           (= zi 11)<br />                           (= zi 12)<br />                           (= zi 13)<br />                           (= zi 14)<br />                           (= zi 15)<br />                           (= zi 16)<br />                       )<br />                     (if        (nth 3 zz)<br />                       (setq zz (reverse (cons z (cdr (reverse zz)))))<br />                       zz<br />                     )<br />                     zz<br />                   )<br />                 )<br />                ent<br />              )<br />       )<br />       (entmod enz)<br />       (entupd enn)<br />     )<br />   )<br />   (if ss<br />     (z0_main)<br />     (princ "\n未拾取实体。")<br />   )<br />   (princ)<br /> )<br /> <br />

fylinwater

其实用change命令就可以了
但因为不明白产生Z坐标的原因 就很麻烦了  
经常在你不注意的时候出现 麻烦