[求助]请教高手,关于刷新屏幕的问题(已解决).

userzhl

命令: (setq sset (ssget "wp" a b))
; 错误: 错误的点列表

命令: !a (34335.2 -268495.0)

命令: !b (100902.0 -230336.0)

dingtiedt

Andyhon 发表于 2009-3-31 09:51
本帖最后由 作者 于 2009-3-31 9:54:08 编辑  ;;; http://www.faqs.org/faqs/CAD/autolisp-faq/part2/sect ...

在图纸空间也能用。比regenall速度快很多！

王咣生

(setq sset (ssget "wp" (list a b)))

但至少传递3个点的点表,否则选不到任何目标.

userzhl

哦,原来是这样.其实我是想不用系统的REGEN命令,因为刷新要很久,我想只刷新当前屏幕上看得到的物体,有没有这样的程序呢?

我有一个,但是需要选择,我是想省去选择这一步,而且这个程序刷新天正的物体的话经常出错.

哪位有没有更好的?(setq leng (sslength sset))
(progn
        (setq i 0)
        (while (< i leng)
                (setq ent (ssname sset i))  
                (entmod (entget ent))
                (setq i (+ i 1))
        )
)

userzhl

有没有谁有这方面类似的程序?

Andyhon

 ;;; (for-sset ss entdel)
 ;;; Vladimir Nesterovsky

(defun for-sset (sset fun / n)
   (if (= 'PICKSET (type sset))
     (repeat (setq n (fix (sslength sset)))
        (fun (ssname sset (setq n (1- n))))
   ) )
)

;;; =======================================

(defun Re_ss (a)  (for-sset a entupd))

ex. (Re_ss sset)

userzhl

Andyhon,我不明白这段程序如何运行呢?

我是希望执行一个命令就会自动刷新当前屏幕上看到的物体(不需要选择物体)

userzhl

我想这是大部分人都需要的.

Andyhon

;;; http://www.faqs.org/faqs/CAD/autolisp-faq/part2/section-2.html
;;; returns a list of the actual viewport corners in WCS
  (defun ZOOMPTS ( / ctr h screen ratio size size_2)
    (setq ctr (xy-of (getvar "VIEWCTR")) ;3D -> 2D
          h   (getvar "VIEWSIZE")        ;real
          screen (getvar "SCREENSIZE")   ;2D: Pixel x,y
          ratio (/ (float (car screen))  ;aspect ratio
                   (cadr screen))
          size (list (* h ratio) h)      ;screensize in coords
          size_2 (mapcar '/ size '(2.0 2.0)))
      (list (mapcar '- ctr size_2)
            (mapcar '+ ctr size_2)))

;;; for WCS only
(re_ss (apply 'ssget (cons "w" (ZOOMPTS))))   ;; windows
or
(re_ss (apply 'ssget (cons "c" (ZOOMPTS))))    ;; crossing

userzhl

Andyhon,缺少函数:RE_SS

错误: no function definition: RE_SS

Andyhon

check 第 5 楼