[求助]怎样将当前视口所显示的图元全部加入一个选择集中??

蓝云

要求完全由程序来完成,用户不进行任何干预

f5612140

(defun c:vvv()
(setq cp (trans (getvar "viewctr") 1 2))
(setq pt1 (trans (getvar "vsmin") 1 2))
(setq pt2 (trans (getvar "vsmax") 1 2))
(setq xscl (- (car pt2) (car pt1)))
(setq yscl (- (cadr pt2) (cadr pt1)))
(setq sh (getvar "viewsize"))
(setq sw (* sh (/ xscl yscl)))
(setq p1 (list (- (car cp) (* 0.5 sw)) (- (cadr cp) (* 0.5 sh))))
(setq p3 (list (+ (car cp) (* 0.5 sw)) (+ (cadr cp) (* 0.5 sh))))

(setq ss (ssget "c" p1 p3))
)

蓝云

谢谢！去试试看

magicheno

f5612140 发表于 2005-1-12 23:27
(defun c:vvv()                                                          (setq cp (trans (getvar "viewctr") 1 2))                                         (setq pt1 (trans (getvar "vsmin ...

感谢大佬分享