求两段关于框选的代码。

wgij007 · 发表于 2021-3-4 09:07

本帖最后由 wgij007 于 2021-3-4 11:09 编辑

1:只是针对文本的框选，设置的文本不先上，其他文全选中。
如：框选,带有PCS不选上，其他文本的选中。其他的线都不选上,只是针对文本.

2.框选,除了文本，全选中

start4444 · 发表于 2021-3-4 09:07

wgij007 发表于 2021-3-4 14:24
能不能就是PCS的不选的，不用输入

(defun c:tt5 (/ en i ss ss1 str)
(setq str "PCS"  ss       (ssget '((0 . "*text"))))
(setq i -1 ss1 (ssadd))
      (while (setq en (ssname ss (setq i (1+ i))))
            (if (not (vl-string-search str (cdr (assoc 1 (entget en))))) (setq ss1 (ssadd en ss1)))
      )
      (sssetfirst nil ss1)
      (princ)
)

start4444 · 发表于 2021-3-4 11:16

(defun c:tt5 (/ en i ss ss1 str)
(setq str (getstring "非选字符:") ss (ssget '((0 . "*text"))))
(setq i -1 ss1 (ssadd))
(while (setq en (ssname ss (setq i (1+ i))))
(if (not (vl-string-search str (cdr (assoc 1 (entget en))))) (setq ss1 (ssadd en ss1)))
)
(sssetfirst nil ss1)
(princ)
)

(defun c:tt6 ()
(sssetfirst nil (ssget '((0 . "~*text"))))
)

选取用法参看这里
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=175755

wgij007 · 发表于 2021-3-4 14:24

start4444 发表于 2021-3-4 11:16
(defun c:tt5 (/ en i ss ss1 str)
(setq str (getstring "非选字符:") ss (ssget '((0 . "*text"))))
( ...

能不能就是PCS的不选的，不用输入

wgij007 · 发表于 2021-3-4 17:47

start4444 发表于 2021-3-4 09:07
(defun c:tt5 (/ en i ss ss1 str)
(setq str "PCS" ss (ssget '((0 . "*text"))))
(setq i ...

太感谢你了

vitalgg · 发表于 2021-3-4 18:11

这个是区分大小写的。

(ssget '((0 . "text")(-4 . "<NOT")(1 . "*PCS*")(-4 . "NOT>")))

wgij007 · 发表于 2021-3-5 08:20

vitalgg 发表于 2021-3-4 18:11
这个是区分大小写的。

(ssget '((0 . "text")(-4 . "")))

非常感谢，

谢谢了。

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

[提问] 求两段关于框选的代码。

最佳答案