选择CAD中的文字

Kllies

因为CAD自带的快速选择不能一次同时选择相同内容的单行文字和多行文字，而且操作起来也繁琐想求一个插件，点击选择CAD图中的某一文字后，可以马上选中可见层中相同内容的单行文字多行文字

newer

Kllies 发表于 2017-3-27 12:15

给你写的更灵活点，你可以自己选择，如果全选，就输入ALL， 如果给你改成自动全选了，如果你想选择一个范围内的怎么办？

下面是给你改的，SSGET 后面加个“X”就行了。

1. (defun c:tt (/ e ss)
   
2.   (and (setq e (car (xdrx_entsel "\nPick Text: " '((0 . "*Text")))))
   
3.        (setq ss (ssget  "x" (list '(0 . "*text") (cons 1 (xdrx_getpropertyvalue e "textstring")))))
   
4.        (sssetfirst nil ss)
   
5.   )
   
6.   (princ)
   
7. )
   

(defun c:tt (/ e ss)<br />   (and (setq e (car (xdrx_entsel "\nPick Text: " '((0 . "*Text")))))<br />        (setq ss (ssget  "x" (list '(0 . "*text") (cons 1 (xdrx_getpropertyvalue e "textstring")))))<br />        (sssetfirst nil ss)<br />   )<br />   (princ)<br /> )<br />

marting

用QSELECT命令选两次就行了，一次选文字，一次选多行文字，第二次的时候记得把添加到当前选择集勾上。

Kllies

marting 发表于 2017-3-26 15:44

就是觉得太繁琐了，所以才想要一个插件

newer

Kllies 发表于 2017-3-26 16:13

就两次操作还繁琐啊。

newer

1. (defun c:sel ()
   
2.   (if (and (setq txt (getstring t "\n輸入文字<退出>:"))
   
3.            (xdrx_initssget "\n選擇要過濾的文字<退出>:")
   
4.            (setq ss (xdrx_ssget (list (cons 0 "*TEXT") (cons 1 txt))))
   
5.       )
   
6.     (progn
   
7.       (sssetfirst nil ss)
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:sel ()<br />   (if (and (setq txt (getstring t "\n輸入文字<退出>:"))<br />            (xdrx_initssget "\n選擇要過濾的文字<退出>:")<br />            (setq ss (xdrx_ssget (list (cons 0 "*TEXT") (cons 1 txt))))<br />       )<br />     (progn<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Kllies

newer 发表于 2017-3-26 19:48

可不可以改成以点击选择文字，不用输入文字。然后选中文字后回车就能把可见层的相同文字全部选择

开水瓶游泳

选择CAD中的文字

eachy

MTEXT 的组码 1 中可能含有控制符，而且可能有多个 1 组码，如果不考虑格式符号，用以下代码可满足楼主要求

2. 
   
3. (defun c:tt (/ e ss)
   
4.   (and (setq e (car (xdrx_entsel "\nPick Text: " '((0 . "*Text")))))
   
5.        (setq ss (ssget (list '(0 . "*text") (cons 1 (xdrx_getpropertyvalue e "textstring")))))
   
6.        (sssetfirst nil ss)
   
7.   )
   
8.   (princ)
   
9. )

<br /> (defun c:tt (/ e ss)<br />   (and (setq e (car (xdrx_entsel "\nPick Text: " '((0 . "*Text")))))<br />        (setq ss (ssget (list '(0 . "*text") (cons 1 (xdrx_getpropertyvalue e "textstring")))))<br />        (sssetfirst nil ss)<br />   )<br />   (princ)<br /> )

newer

eachy 发表于 2017-3-26 23:31

textstring是不包含格式化字符的
contents包括

命令: (xdrx_getpropertyvalue e "textstring")
"abc"
命令: (xdrx_getpropertyvalue e "contents")
"{\\C242;\\c2564301;ab}c"

alliuyx

正需要，支持楼主大人了！

Kllies

eachy 发表于 2017-3-26 23:31

这个代码好像跟我想要的不太一样，我是想达到QSELECT命令的效果，但是更简便。QSELECT想要同时选择图中全部的相同内容的单行文字和多行文字的话需要执行两次QSELECT命令还要输入两次文字。我想要的效果是，只需要点击我想要内容的文字的其中一个，回车后可见层所有相同内容的单行、多行文字都能被选择。比如我想选择图中所有的‘ABC’，只需要点击图中的某一个‘ABC’，回车后可见层的所有‘ABC’不论单行还是多行文字都能被选择。

Kllies

newer 发表于 2017-3-27 13:06

可以了，非常感谢！