如何用ssget或者其他的方法非手工选择当前界面可见的文字图元？

katamoto

平时用(ssget "x" '((0 . "TEXT")))比较多，这样可以不用操作选择所有符合要求的图元，但是关闭图层中的文字（当前看不见的）也被选中。
用(ssget "wp" ptlist '((0 . "TEXT")))又必须要事先设置好ptlist，考虑搞个通用性的程序，这个也不行。。

请大侠们帮帮忙还有什么设置可以满足我的要求

ZZXXQQ

(setq ss (ssget "W" (getvar "EXTMIN") (getvar "EXTMAX") '((0 . "TEXT"))))

自贡黄明儒

ZZXXQQ 发表于 2014-11-19 08:41
(setq ss (ssget "W" (getvar "EXTMIN") (getvar "EXTMAX") '((0 . "TEXT"))))

(command "line" (getvar "EXTMIN") (getvar "EXTMAX") "")不准呢？

katamoto

ZZXXQQ版本真乃神人也，我的帖子都迅速高效回复，

自贡黄明儒

katamoto 发表于 2014-11-19 08:51
ZZXXQQ版本真乃神人也，我的帖子都迅速高效回复，

用Z版方法，但用下面两个点

1. ;;117.3 [功能] 返回当前视窗左下角和右上角 坐标
   
2. (defun viewpnts        (/ a b c d x)
   
3.   (setq        b (getvar "viewsize")
   
4.         c (car (getvar "screensize"))
   
5.         d (cadr (getvar "screensize"))
   
6.         a (* b (/ c d))
   
7.         x (setq x (getvar "viewctr"))
   
8.         x (trans x 1 2)
   
9.         c (list (- (car x) (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0)
   
10.         d (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0)
    
11.         c (trans c 2 1)
    
12.         d (trans d 2 1)
    
13.   )
    
14.   (list c d)
    
15. )

;;117.3 [功能] 返回当前视窗左下角和右上角 坐标<br /> (defun viewpnts        (/ a b c d x)<br />   (setq        b (getvar "viewsize")<br />         c (car (getvar "screensize"))<br />         d (cadr (getvar "screensize"))<br />         a (* b (/ c d))<br />         x (setq x (getvar "viewctr"))<br />         x (trans x 1 2)<br />         c (list (- (car x) (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0)<br />         d (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0)<br />         c (trans c 2 1)<br />         d (trans d 2 1)<br />   )<br />   (list c d)<br /> )

katamoto

自贡黄明儒 发表于 2014-11-19 08:50
(command "line" (getvar "EXTMIN") (getvar "EXTMAX") "")不准呢？

我试了下(command "rectangle" (getvar "EXTMIN")(getvar "EXTMAX"))
可以的啊，你那个为啥呢？

自贡黄明儒

katamoto 发表于 2014-11-19 09:00
我试了下(command "rectangle" (getvar "EXTMIN")(getvar "EXTMAX"))
可以的啊，你那个为啥呢？

你zoom之后呢？