[编程申请]：REGEN单个实体或选择集

xhf

我在LISP程序中要重新生成单个修改的实体，可是使用REGEN命令是重新生成整个图形，浪费时间。请帮助编写REGEN单个实体或选择集的LISP程序，谢谢！

eachy

最初由 xhf 发布
[B]我在LISP程序中要重新生成单个修改的实体，可是使用REGEN命令是重新生成整个图形，浪费时间。请帮助编写REGEN单个实体或选择集的LISP程序，谢谢！ [/B]

xdrx_object_regen

功    能：将指定的实体或者选择集的实体REGEN，若不给参数则全图REGEN.

调用格式：(xdrx_object_regen <实体名、选择集>...[实体名、选择集])
          (xdrx_object_regen)

返    回： T

xhf

这是晓东工具箱里的吧。
因为我是做电气设计的，工具箱对我用处不是很大，所以我没有用它。如果为了一个命令安装工具箱对机器不大好（不好意思，院里机器太老了），能否提供此函数的源程序？谢谢！
xhf2411@sohu.com

eachy

最初由 xhf 发布
[B]这是晓东工具箱里的吧。
因为我是做电气设计的，工具箱对我用处不是很大，所以我没有用它。如果为了一个命令安装工具箱对机器不大好（不好意思，院里机器太老了），能否提供此函数的源程序？谢谢！
[email]xhf2411... [/B]

你只需要加载 xdrx_api 即可，而且还可以利用其中的 函数。不一定要安装工具箱。

xhf

关键是这个函数太大了啊。
能否把xdrx_object_regen这一个函数发给我，谢谢了！

fylinwater

2. 
   
3. ;;————————————————————————————————————————;;             jinwei的lsp小程序
   
4. ;;
   
5. ;;命令名称：     r  rw
   
6. ;;功能：         r:窗口重画;  rw局部重画
   
7. ;;说明：         具有将重复覆盖的实体切换显示的功能,但重复在三重以上则切换最上最下两个
   
8. ;;————————————————————————————————————————
   
9.                                         ;{start
   
10.                                         ;
    
11. 
    
12. 
    
13. (defun qregen ( / p h w p1 p2 s num ename alpha y x)
    
14.   (princ "快速重画窗口图像……")
    
15.   ;(princ "\n请选择请选择重画内容: ")
    
16.   ;;获取屏幕范围坐标
    
17.   (setq p (getvar "screensize"))
    
18.    (setq h (/ (getvar "viewsize") 2))
    
19.    (setq w (* h (/ (nth 0 p)  (nth 1 p) )))
    
20.   (setq p (getvar "viewctr"))
    
21. ;;;求坐标偏移
    
22.    (setq alpha (- 0 (ucsorview)))
    
23.   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )
    
24.   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))
    
25. ;;;
    
26.   (setq p1 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
27.   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
28.   (setq        s (ssget "_c" p1 p2 ))
    
29.   (setq num (sslength s))
    
30.   (setq n 0)
    
31.   (repeat num
    
32.      (setq ename (ssname s n))
    
33.      (entupd ename )
    
34.      (setq n (+ 1 n))                     
    
35.   )
    
36. (setq s nil)
    
37. (princ)
    
38. )
    
39.                                         ;
    
40.                                         ;end}
    
41. －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
    
42.                                         ;{start
    
43.                                         ;
    
44. (defun c:rw ( / n s ename num )
    
45.   (princ "局部重画")
    
46.   (princ "\n请选择请选择重画内容: ")
    
47.   (setq        s (ssget ))
    
48.   (setq num (sslength s))
    
49.   (setq n 0)
    
50.   (repeat num
    
51.      (setq ename (ssname s n))
    
52.      (entupd ename )
    
53.      (setq n (+ 1 n))                     
    
54.   )
    
55. (princ)
    
56. )
    
57.                

<br /> ;;————————————————————————————————————————;;             jinwei的lsp小程序<br /> ;;<br /> ;;命令名称：     r  rw<br /> ;;功能：         r:窗口重画;  rw局部重画<br /> ;;说明：         具有将重复覆盖的实体切换显示的功能,但重复在三重以上则切换最上最下两个<br /> ;;————————————————————————————————————————<br />                                         ;{start<br />                                         ;<br /> <br /> <br /> (defun qregen ( / 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 /> (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 />                

xhf

非常感谢6楼楼主，我很需要这个程序，谢谢！