蓝云 发表于 2005-1-12 18:01:00

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

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

f5612140 发表于 2005-1-12 23:27:00

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

蓝云 发表于 2005-1-13 14:09:00

谢谢！去试试看

magicheno 发表于 2022-8-1 01:58:27

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

感谢大佬分享
页: [1]
查看完整版本: [求助]怎样将当前视口所显示的图元全部加入一个选择集中??