怎么框选出旋转角度在92度－270度的文字

lxy_2080

(setq ss (ssget "x" (list'(0 . "*text")'(-4 . "<and") '(-4 . ">")(cons 50 (* pi (/ 30 180.)))'(-4 . "<") (cons 50 (* pi (/ 90 180.)))'(-4 . "and>"))))

这个好像筛选不出来。是我用法不对，还是什么呢。请指教！！！

xyp1964

2. ;; 92-270
   
3. (defun D2R (ang) (* (/ ang 180.0) pi))
   
4. (setq ss (ssget
   
5.            (list '(0 . "TEXT")
   
6.                  '(-4 . "<AND")
   
7.                  '(-4 . ">=")
   
8.                  (cons 50 (D2R 92))
   
9.                  '(-4 . "<=")
   
10.                  (cons 50 (D2R 270))
    
11.                  '(-4 . "AND>")
    
12.            )
    
13.          )
    
14. )

;; 92-270<br /> (defun D2R (ang) (* (/ ang 180.0) pi))<br /> (setq ss (ssget<br />            (list '(0 . "TEXT")<br />                  '(-4 . "<AND")<br />                  '(-4 . ">=")<br />                  (cons 50 (D2R 92))<br />                  '(-4 . "<=")<br />                  (cons 50 (D2R 270))<br />                  '(-4 . "AND>")<br />            )<br />          )<br /> )

lxy_2080

勤快小熠

xyp1964 发表于 2014-3-28 22:40

大神，如何选择非90度或者270的直线？

llsheng_73

勤快小熠 发表于 2015-1-8 15:15
大神，如何选择非90度或者270的直线？

1. (defun tt(s / i e b)
   
2.   (setq i 0)
   
3.   (if(and s(=(type s)'pickset))
   
4.     (repeat(sslength s)
   
5.       (setq e(entget(ssname s i)))
   
6.       (if(or(not(equal'(0 . "LINE")(assoc 0 e)))(=(cadr(assoc 10 e))(cadr(assoc 11 e))))
   
7. (setq s(ssdel(cdr(assoc -1 e))s))
   
8. (setq i(1+ i))))
   
9.     (setq s nil))
   
10.   s)
    

(defun tt(s / i e b)<br />   (setq i 0)<br />   (if(and s(=(type s)'pickset))<br />     (repeat(sslength s)<br />       (setq e(entget(ssname s i)))<br />       (if(or(not(equal'(0 . "LINE")(assoc 0 e)))(=(cadr(assoc 10 e))(cadr(assoc 11 e))))<br /> (setq s(ssdel(cdr(assoc -1 e))s))<br /> (setq i(1+ i))))<br />     (setq s nil))<br />   s)<br />

(tt(ssget))
(sssetfirst nil(tt (ssget)))

鱼与熊掌

llsheng_73 发表于 2015-1-8 17:21
(tt(ssget))
(sssetfirst nil(tt (ssget)))

UCS 和视图情况下   ,就...

zwf100

快速选择两次就好了