[分享]：一小段代码的妙用

fylinwater

一小段代码的妙用：虽然道理很简单。
本来我用它来快速重画当前窗口实体（我图有地形图，regen太慢了)
后来发现两个意外的功能
1.可以切换重叠的两个实体 ： 比按住CTRL好点
2.做透明命令用，在窗口局部放大时可以刷新窗口，REGEN 不可以作为透明命令用
注意： 当前窗口实体很多或者有大的外部引用和块时慎用。

代码如下

2. 
   
3. [FONT=courier new]
   
4. (defun c:rr ( / p h w p1 p2 s num ename alpha y x)
   
5.   (princ "快速重画窗口图像……")
   
6.   ;(princ "\n请选择请选择重画内容: ")
   
7.   ;;获取屏幕范围坐标
   
8.   (setq p (getvar "screensize"))
   
9.    (setq h (/ (getvar "viewsize") 2))
   
10.    (setq w (* h (/ (nth 0 p)  (nth 1 p) )))
    
11.   (setq p (getvar "viewctr"))
    
12. ;;;求坐标偏移
    
13.    (setq alpha (- 0 (ucsorview)))
    
14.   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )
    
15.   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))
    
16. ;;;
    
17.   (setq p1 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
18.   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
19.   (setq        s (ssget "_c" p1 p2 ))
    
20.   (setq num (sslength s))
    
21.   (setq n 0)
    
22.   (repeat num
    
23.      (setq ename (ssname s n))
    
24.      (entupd ename )
    
25.      (setq n (+ 1 n))                     
    
26.   )
    
27. (setq s nil)
    
28. (princ)
    
29. )
    
30.                                         ;
    
31.                                         ;end}
    
32. ;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    
33.                                         ;{start
    
34.                                         ;
    
35. ;有选择的局部重画
    
36. (defun c:rw ( / n s ename num )
    
37.   (princ "局部重画")
    
38.   (princ "\n请选择请选择重画内容: ")
    
39.   (setq        s (ssget ))
    
40.   (setq num (sslength s))
    
41.   (setq n 0)
    
42.   (repeat num
    
43.      (setq ename (ssname s n))
    
44.      (entupd ename )
    
45.      (setq n (+ 1 n))                     
    
46.   )
    
47. (princ)
    
48. )
    
49.                                         ;
    
50.                                         ;end}
    
51. ;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    
52. (defun ucsorview ( / lpoint2 tw)
    
53. (if  (= 1 (getvar "worlducs")) (getvar "viewtwist")  0 )
    
54. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:rr ( / p h w p1 p2 s num ename alpha y x)<br />   (princ "快速重画窗口图像……")<br />   ;(princ "\n请选择请选择重画内容: ")<br />   ;;获取屏幕范围坐标<br />   (setq p (getvar "screensize"))<br />    (setq h (/ (getvar "viewsize") 2))<br />    (setq w (* h (/ (nth 0 p)  (nth 1 p) )))<br />   (setq p (getvar "viewctr"))<br /> ;;;求坐标偏移<br />    (setq alpha (- 0 (ucsorview)))<br />   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )<br />   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))<br /> ;;;<br />   (setq p1 (list (+ (nth 0 p) x) (- (nth 1 p) y)))<br />   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))<br />   (setq        s (ssget "_c" p1 p2 )) <br />   (setq num (sslength s))<br />   (setq n 0)<br />   (repeat num<br />      (setq ename (ssname s n))<br />      (entupd ename )<br />      (setq n (+ 1 n))                     <br />   )<br /> (setq s nil)<br /> (princ)<br /> )<br />                                         ;<br />                                         ;end}<br /> ;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－<br />                                         ;{start<br />                                         ;<br /> ;有选择的局部重画<br /> (defun c:rw ( / n s ename num )<br />   (princ "局部重画")<br />   (princ "\n请选择请选择重画内容: ")<br />   (setq        s (ssget ))<br />   (setq num (sslength s))<br />   (setq n 0)<br />   (repeat num<br />      (setq ename (ssname s n))<br />      (entupd ename )<br />      (setq n (+ 1 n))                     <br />   )<br /> (princ)<br /> )<br />                                         ;<br />                                         ;end}<br /> ;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－<br /> (defun ucsorview ( / lpoint2 tw)<br /> (if  (= 1 (getvar "worlducs")) (getvar "viewtwist")  0 )<br /> )[/FONT]

LUCAS

有选择的局部重画,MOVE一下就可以了
^C^C_SELECT;\_MOVE;P;;0,0;@

前生

ERASE后OOPS即可

fylinwater

但都不可以切换重叠实体和作为透明命令用啊