怎样实现带过滤的entsel呢？

xxxycxd · 发表于 2016-1-8 22:32

举例：
当entsel选择的不是单行文字，则继续选择，直到选中为止。
怎么实现呢？请各位大神指教一下，谢谢！

xyp1964 · 发表于 2016-1-9 11:40

(while (or (not (setq s1 (car (entsel "\n选择单行文本: "))))
(not (= (cdr (assoc 0 (entget s1))) "TEXT"))
)
)

kwok · 发表于 2016-1-9 09:15

一般用 ssget":E:S" '((0 . "test")) ;:S表示只选一次可以过去掉.

ivde · 发表于 2016-1-9 10:17

kwok 发表于 2016-1-9 09:15
一般用 ssget":E:S" '((0 . "test")) ;:S表示只选一次可以过去掉.

"+-.:S"

chg · 发表于 2016-1-9 10:26

(setvar "errno" 0)
  (setq rtxt (entsel "\n选择源文本:"))
  (setq err (getvar "errno"))
  (while (/= err 52)
(cond
   ((= err 7)
   (setvar "errno" 0)
   (setq
   rtxt (entsel
"没有选中.\n选择文本:"
)
   )
   (setq err (getvar "errno"))
   )
   ( (/= (cdr (assoc 0 (entget (car rtxt)))) "TEXT")
   (setvar "errno" 0)
   (setq rtxt
      (entsel
"所选对象不是文本. \n选择文本:"
)
      )
   (setq err (getvar "errno"))
   )
(t
....
)))
括号你匹配下，可能没匹配，我的思路就是这样。

xxxycxd · 发表于 2016-1-9 10:33

kwok 发表于 2016-1-9 09:15
一般用 ssget":E:S" '((0 . "test")) ;:S表示只选一次可以过去掉.

(ssget":E:S" '((0 . "TEXT"))) 可以获取到选取点吗？

ivde · 发表于 2016-1-9 11:02

xxxycxd 发表于 2016-1-9 10:33
(ssget":E:S" '((0 . "TEXT"))) 可以获取到选取点吗？

(ssnamex (ssname ss 0))

xxxycxd · 发表于 2016-1-13 23:04

chg 发表于 2016-1-9 10:26
(setvar "errno" 0)
(setq rtxt (entsel "\n选择源文本:"))
(setq err (getvar "errno"))

有没有系统变量”errno“值的解释？我查了下帮助，没有找到。

xxxycxd · 发表于 2016-1-13 23:11

ivde 发表于 2016-1-9 11:02
(ssnamex (ssname ss 0))

获取选取点是不是需要
(cadr (nth 3 (car (ssnamex (ssget":E:S" '((0 . "TEXT"))) 0)
)
)
)
有没有简洁点的方法？

xxxycxd · 发表于 2016-1-13 23:12

xyp1964 发表于 2016-1-9 11:40

版主的程序就是简洁明了，直中要害！

账号		自动登录	找回密码
密码			注册

[已解答] 怎样实现带过滤的entsel呢？