一个MTEXT处理文字格式的代码

marting

MTEXT的一个处理代码，使用了正则表达式替换

1. (defun c:stackchange ( / inc obj rgx sel str )
   
2.     (if (setq sel (ssget "_:L" '((0 . "MTEXT") (-4 . "<OR") (1 . "*#/#*") (3 . "*#/#*") (-4 . "OR>"))))
   
3.         (if (setq rgx (vlax-create-object "vbscript.regexp"))
   
4.             (progn
   
5.                 (vlax-put-property rgx 'global     actrue)
   
6.                 (vlax-put-property rgx 'ignorecase actrue)
   
7.                 (vlax-put-property rgx 'multiline  actrue)
   
8.                 (vlax-put-property rgx 'pattern "(?:(\\d)[ \\-])?(?:\\{\\\\H[^;]+;\\\\S)*(\\d+)/(\\d+)(?:;\\})*")
   
9.                 (repeat (setq inc (sslength sel))
   
10.                     (setq obj (vlax-ename->vla-object (ssname sel (setq inc (1- inc))))
    
11.                           str (vla-get-textstring obj)
    
12.                     )
    
13.                     (vla-put-textstring obj (vlax-invoke rgx 'replace str "$1{\\H0.7x;\\S$2#$3;}"))
    
14.                 )
    
15.                 (vlax-release-object rgx)
    
16.             )
    
17.             (princ "\nUnable to interface with RegExp object.")
    
18.         )
    
19.     )
    
20.     (princ)
    
21. )
    

(defun c:stackchange ( / inc obj rgx sel str )<br />     (if (setq sel (ssget "_:L" '((0 . "MTEXT") (-4 . "<OR") (1 . "*#/#*") (3 . "*#/#*") (-4 . "OR>"))))<br />         (if (setq rgx (vlax-create-object "vbscript.regexp"))<br />             (progn<br />                 (vlax-put-property rgx 'global     actrue)<br />                 (vlax-put-property rgx 'ignorecase actrue)<br />                 (vlax-put-property rgx 'multiline  actrue)<br />                 (vlax-put-property rgx 'pattern "(?:(\\d)[ \\-])?(?:\\{\\\\H[^;]+;\\\\S)*(\\d+)/(\\d+)(?:;\\})*")<br />                 (repeat (setq inc (sslength sel))<br />                     (setq obj (vlax-ename->vla-object (ssname sel (setq inc (1- inc))))<br />                           str (vla-get-textstring obj)<br />                     )<br />                     (vla-put-textstring obj (vlax-invoke rgx 'replace str "$1{\\H0.7x;\\S$2#$3;}"))<br />                 )<br />                 (vlax-release-object rgx)<br />             )<br />             (princ "\nUnable to interface with RegExp object.")<br />         )<br />     )<br />     (princ)<br /> )<br />

前生

其实，总觉得，Mtext 这个东西很麻烦。

sicky111

谢谢分享。