lxy_2080 发表于 2014-3-28 16:42:53

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

本帖最后由 Gu_xl 于 2014-8-7 18:50 编辑

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

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

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

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

lxy_2080 发表于 2014-3-29 12:07:02

勤快小熠 发表于 2015-1-8 15:15:31

xyp1964 发表于 2014-3-28 22:40 static/image/common/back.gif


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

llsheng_73 发表于 2015-1-8 17:21:30

本帖最后由 llsheng_73 于 2015-1-8 17:39 编辑

勤快小熠 发表于 2015-1-8 15:15 static/image/common/back.gif
大神，如何选择非90度或者270的直线？
(defun tt(s / i e b)
(setq i 0)
(if(and s(=(type s)'pickset))
    (repeat(sslength s)
      (setq e(entget(ssname s i)))
      (if(or(not(equal'(0 . "LINE")(assoc 0 e)))(=(cadr(assoc 10 e))(cadr(assoc 11 e))))
(setq s(ssdel(cdr(assoc -1 e))s))
(setq i(1+ i))))
    (setq s nil))
s)

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

鱼与熊掌 发表于 2015-1-8 19:58:00

llsheng_73 发表于 2015-1-8 17:21 static/image/common/back.gif
(tt(ssget))
(sssetfirst nil(tt (ssget)))

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

zwf100 发表于 2017-12-3 22:05:13

快速选择两次就好了
页: [1]
查看完整版本: 怎么框选出旋转角度在92度－270度的文字