改变多行文字的颜色为指定的颜色色号

戏男

如题，框选多行文字，改变多行文字的颜色为指定的颜色色号

liuhe

2. (prompt"作者：流河 QQ:859779429")
   
3. (defun m1 (MTextString / regex s)
   
4.   (setq regex (vlax-create-object "Vbscript.RegExp"))
   
5.                                         ;引用正则表达式控件
   
6.   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
   
7.   (vlax-put-property regex "Global" 1)        ;匹配方式，全文字匹配
   
8.   (setq s MTextString)
   
9.   (vlax-put-property regex "Pattern" "(\\\\c|\\\\C)(.[^;]*);")
   
10.   (setq s (vlax-invoke-method regex "Replace" s ""))
    
11.   (vlax-release-object regex)
    
12.   s
    
13. )
    
14. (defun c:tt (/ SS COR I E ENT MT)
    
15.   (SETQ SS (SSGET '((0 . "MTEXT"))))
    
16.   (IF (NOT SS)
    
17.     (VL-EXIT-WITH-VALUE 0)
    
18.   )
    
19.   (if (or (not cor11) (<= cor11 0) (> cor11 256))
    
20.     (setq cor11 1)
    
21.   )
    
22.   (SETQ COR NIL)
    
23.   (WHILE (or (not cor) (<= cor 0) (> cor 256))
    
24.   (IF
    
25.     (NOT (SETQ
    
26.            COR (GETINT (STRCAT "\n请输入颜色号<" (RTOS COR11 2 0) ">"))
    
27.          )
    
28.     )
    
29.      (SETQ COR COR11)
    
30.      (SETQ COR11 COR)
    
31.   )
    
32. )
    
33.   (SETQ I 0)
    
34.   (REPEAT (SSLENGTH SS)
    
35.     (SETQ E   (SSNAME SS I)
    
36.           ENT (ENTGET E)
    
37.           MT  (CDR (ASSOC 1 ENT))
    
38.           MT  (M1 MT)
    
39.           i   (1+ I)
    
40.     )
    
41.     (setq ent (ENTMOD (SUBST (CONS 1 MT) (ASSOC 1 ENT) ENT))
    
42.           ent (ENTMOD (SUBST (CONS 62 COR) (ASSOC 62 ENT) ENT))
    
43.     )
    
44.   )
    
45.   (PRINC)
    
46. )
    

(prompt"作者：流河 QQ:859779429")<br /> (defun m1 (MTextString / regex s)<br />   (setq regex (vlax-create-object "Vbscript.RegExp"))<br />                                         ;引用正则表达式控件<br />   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写<br />   (vlax-put-property regex "Global" 1)        ;匹配方式，全文字匹配<br />   (setq s MTextString)<br />   (vlax-put-property regex "Pattern" "(\\\\c|\\\\C)(.[^;]*);")<br />   (setq s (vlax-invoke-method regex "Replace" s ""))<br />   (vlax-release-object regex)<br />   s<br /> )<br /> (defun c:tt (/ SS COR I E ENT MT)<br />   (SETQ SS (SSGET '((0 . "MTEXT"))))<br />   (IF (NOT SS)<br />     (VL-EXIT-WITH-VALUE 0)<br />   )<br />   (if (or (not cor11) (<= cor11 0) (> cor11 256))<br />     (setq cor11 1)<br />   )<br />   (SETQ COR NIL)<br />   (WHILE (or (not cor) (<= cor 0) (> cor 256))<br />   (IF<br />     (NOT (SETQ<br />            COR (GETINT (STRCAT "\n请输入颜色号<" (RTOS COR11 2 0) ">"))<br />          )<br />     )<br />      (SETQ COR COR11)<br />      (SETQ COR11 COR)<br />   )<br /> )<br />   (SETQ I 0)<br />   (REPEAT (SSLENGTH SS)<br />     (SETQ E   (SSNAME SS I)<br />           ENT (ENTGET E)<br />           MT  (CDR (ASSOC 1 ENT))<br />           MT  (M1 MT)<br />           i   (1+ I)<br />     )<br />     (setq ent (ENTMOD (SUBST (CONS 1 MT) (ASSOC 1 ENT) ENT))<br />           ent (ENTMOD (SUBST (CONS 62 COR) (ASSOC 62 ENT) ENT))<br />     )<br />   )<br />   (PRINC)<br /> )<br />

loveu515

553-G-01怎么组合到一块的呢？

戏男

loveu515 发表于 2023-6-12 11:53
553-G-01怎么组合到一块的呢？

是多行文字，多行文字可以弄两种以上的颜色

d1742647821

既然没要求语言，那就发个c#的
powered by ifox

1. [CommandMethod(nameof(Test1), CommandFlags.UsePickSet)]
   
2.     public static void Test1()
   
3.     {
   
4.         var sf = OpFilter.Build(e => e.Dxf(0) == "MTEXT");
   
5.         PromptSelectionOptions pso = new PromptSelectionOptions() { MessageForAdding = "\n选择要修改颜色的多行文字", RejectObjectsOnLockedLayers = true };
   
6.         var r1 = Env.Editor.GetSelection(pso, sf);
   
7.         if (r1.Status != PromptStatus.OK)
   
8.             return;
   
9.         using var tr = new DBTrans();
   
10.         var mtList1 = r1.Value.GetEntities<MText>(OpenMode.ForWrite);
    
11.         if (!mtList1.Any())
    
12.             return;
    
13.         var r2 = Env.Editor.GetInteger("\n输入颜色号");
    
14.         if (r2.Status != PromptStatus.OK)
    
15.             return;
    
16.         var colorIndex = Math.Abs(r2.Value) % 257;
    
17.         foreach (var mt in mtList1)
    
18.         {
    
19.             mt.Contents = mt.Text;
    
20.             mt.ColorIndex = colorIndex;
    
21.         }
    
22.     }

[CommandMethod(nameof(Test1), CommandFlags.UsePickSet)]<br />     public static void Test1()<br />     {<br />         var sf = OpFilter.Build(e => e.Dxf(0) == "MTEXT");<br />         PromptSelectionOptions pso = new PromptSelectionOptions() { MessageForAdding = "\n选择要修改颜色的多行文字", RejectObjectsOnLockedLayers = true };<br />         var r1 = Env.Editor.GetSelection(pso, sf);<br />         if (r1.Status != PromptStatus.OK)<br />             return;<br />         using var tr = new DBTrans();<br />         var mtList1 = r1.Value.GetEntities<MText>(OpenMode.ForWrite);<br />         if (!mtList1.Any())<br />             return;<br />         var r2 = Env.Editor.GetInteger("\n输入颜色号");<br />         if (r2.Status != PromptStatus.OK)<br />             return;<br />         var colorIndex = Math.Abs(r2.Value) % 257;<br />         foreach (var mt in mtList1)<br />         {<br />             mt.Contents = mt.Text;<br />             mt.ColorIndex = colorIndex;<br />         }<br />     }

戏男

d1742647821 发表于 2023-6-12 14:41
既然没要求语言，那就发个c#的
powered by ifox

不会用这个，只会用LISP的

d1742647821

戏男 发表于 2023-6-13 15:39
不会用这个，只会用LISP的

那应该注明需要Lisp

戏男

d1742647821 发表于 2023-6-13 22:21
那应该注明需要Lisp

是啊，可以弄一个lisp的吗？谢谢

戏男

liuhe 发表于 2023-6-16 14:10

可以用了，谢谢

loveu515

liuhe 发表于 2023-6-12 10:06

挺好用，改改对单行标注都能用