求一次框选含L和含LZ字母的文字，一个文字中LZ字母不一定相邻

品茗新秀

求一次框选含L和含LZ字母的文字，一个文字中LZ字母不一定相邻，将含字母L但不含Z字母的文字变成红色，将含LZ字母的的文字生成一个矩形外框。

q3_2006

2. (defun c:tt ( / e i ss)
   
3. (defun tbox (e / an p2 p3 p4 la pt tb th x y)
   
4.   (if e
   
5.     (progn
   
6.       (setq tb (textbox (list (cons -1 e)))
   
7.             pt (cdr (assoc 10 (entget e)))
   
8.             an (cdr (assoc 50 (entget e)))
   
9.             th (cdr (assoc 40 (entget e)))
   
10.             x (+ (caar tb) (caadr tb))
    
11.             y (+ (cadar tb) (cadadr tb))
    
12.             p2 (polar pt an x)
    
13.             p4 (polar pt (+ (* pi 0.5) an) y)
    
14.             p3 (polar p2 (+ (* pi 0.5) an) y)
    
15.             la (cdr (assoc 8 (entget e)))
    
16.       )
    
17.       (setvar "clayer" la)
    
18.       (vl-cmdf "_pline" pt p2 p3 p4 "_c")
    
19.     )
    
20.   )
    
21. )
    
22.         (vl-cmdf "undo" "be")
    
23.         (setvar "osmode" 0)
    
24.         (setq ss (ssget '((0 . "text") (1 . "*L*,*L*Z*"))))
    
25.         (repeat (setq i (sslength ss))
    
26.                 (setq e (ssname ss (setq i (1- i))))
    
27.                 (if (null (vl-string-search "Z" (cdr (assoc 1 (entget e)))))
    
28.                         (entmod (append (entget e) (list (cons 62 1))))
    
29.                         (tbox e)
    
30.                 )
    
31.         )
    
32.         (vl-cmdf "undo" "e")
    
33. )

(defun c:tt ( / e i ss)<br /> (defun tbox (e / an p2 p3 p4 la pt tb th x y)<br />   (if e<br />     (progn<br />       (setq tb (textbox (list (cons -1 e)))<br />             pt (cdr (assoc 10 (entget e)))<br />             an (cdr (assoc 50 (entget e)))<br />             th (cdr (assoc 40 (entget e)))<br />             x (+ (caar tb) (caadr tb))<br />             y (+ (cadar tb) (cadadr tb))<br />             p2 (polar pt an x)<br />             p4 (polar pt (+ (* pi 0.5) an) y)<br />             p3 (polar p2 (+ (* pi 0.5) an) y)<br />             la (cdr (assoc 8 (entget e)))<br />       )<br />       (setvar "clayer" la)<br />       (vl-cmdf "_pline" pt p2 p3 p4 "_c")<br />     )<br />   )<br /> )<br />         (vl-cmdf "undo" "be")<br />         (setvar "osmode" 0)<br />         (setq ss (ssget '((0 . "text") (1 . "*L*,*L*Z*"))))<br />         (repeat (setq i (sslength ss))<br />                 (setq e (ssname ss (setq i (1- i))))<br />                 (if (null (vl-string-search "Z" (cdr (assoc 1 (entget e)))))<br />                         (entmod (append (entget e) (list (cons 62 1))))<br />                         (tbox e)<br />                 )<br />         )<br />         (vl-cmdf "undo" "e")<br /> )

flytoday

套哥太疯狂了吧……选择梁编号的统计梁编号…的插件很多……连找都不想找了啊…………cad会用了吧

品茗新秀

q3_2006 发表于 2014-4-22 01:40

如果不变色，也不生成外框，而是形成两类选择集，不知如何

lucas_3333

flytoday 发表于 2014-4-22 10:38
套哥太疯狂了吧……选择梁编号的统计梁编号…的插件很多……连找都不想找了啊…………cad会用了吧

这名字取得好！马甲哥可否一比？

q3_2006

品茗新秀 发表于 2014-4-22 13:08
如果不变色，也不生成外框，而是形成两类选择集，不知如何

(ssadd e ss1)加e到ss1

chenbh2

q3_2006 发表于 2014-4-22 01:40

我这边，会转成红色，但没有加外框，求