20231120更-完整源码-字串搜索定位及选择替换--支持*TEXT,*LEADER,DIM..块属性..

masterlong

find太卡界面太大还不能自由缩放视窗
早就想做个替代程序了
但是在mtext这遇到了困难
无格式的好说
有格式的也不算太难
就是换行比较讨厌
还有些特殊符号
难以获取精确的box角标

masterlong

2. ;;去除单行文字中的上下划线标志   ---多行文字中的上下标格式，与单行文字的格式不一样。炸开mt后dt会自动进行转换，导致字符串总长度有差异。
   
3. (defun dtfix( str )
   
4.   (setq str (vl-string-subst "" "%%U" (vl-string-subst "" "%%O" str)))
   
5. )
   
6. ;;多行炸开变单行时，一些特殊的字符自动被转换，需要转换回去。
   
7. (defun spdtfix( str )
   
8.   (setq str (vl-string-subst "%%p" "±" str))        ;\U+00B1
   
9.   (setq str (vl-string-subst "%%c" "\U+2205" str))
   
10.   (setq str (vl-string-subst "%%d" "°" str))        ;\U+00B0
    
11. )
    
12. ;;多行文字提取单行文字   --来自明经  --yuuboo改造，返回列表（list str str2biao）  :::  str为脱格式后完整字符串，str2biao为考虑换行的字符串列表
    
13. (defun mt2dt( MTextString / regex s s1 s2 )
    
14.   (setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
    
15.   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    
16.   (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    
17.   (setq s MTextString)
    
18.   
    
19.   ;替换\\字符
    
20.   (vlax-put-property regex "Pattern" "\\\\\\\")
    
21.   (setq s (vlax-invoke-method  regex "Replace" s (chr 1)))
    
22.   ;替换\{字符
    
23.   (vlax-put-property regex "Pattern" "\\\\{")
    
24.   (setq s (vlax-invoke-method  regex "Replace" s (chr 2)))
    
25.   ;替换\}字符
    
26.   (vlax-put-property regex "Pattern" "\\\\}")
    
27.   (setq s (vlax-invoke-method  regex "Replace" s (chr 3)))
    
28.   ;删除段落缩进格式
    
29.   (vlax-put-property regex "Pattern" "\\\\pi(.[^;]*);")
    
30.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
31.   ;删除制表符格式
    
32.   (vlax-put-property regex "Pattern" "\\\\pt(.[^;]*);")
    
33.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
34.   ;删除堆迭格式
    
35.   (vlax-put-property regex "Pattern" "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);")
    
36.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
37.   ;删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
    
38.   (vlax-put-property regex "Pattern" "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);")
    
39.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
40.   ;删除下划线、删除线格式
    
41.   (vlax-put-property regex "Pattern" "(\\\\L|\\\\O|\\\\l|\\\\o)")
    
42.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
43.   ;删除不间断空格格式
    
44.   (vlax-put-property regex "Pattern" "\\\\~")
    
45.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
46.   ;删除{}
    
47.   (vlax-put-property regex "Pattern" "({|})")
    
48.   (setq s (vlax-invoke-method  regex "Replace" s ""))
    
49.   ;替换回\\,\{,\}字符
    
50.   (vlax-put-property regex "Pattern" "\\x01")
    
51.   (setq s (vlax-invoke-method  regex "Replace" s "\"))
    
52.   (vlax-put-property regex "Pattern" "\\x02")
    
53.   (setq s (vlax-invoke-method  regex "Replace" s "{"))
    
54.   (vlax-put-property regex "Pattern" "\\x03")
    
55.   (setq s (vlax-invoke-method  regex "Replace" s "}"))
    
56.   
    
57.       ;;几个特殊符号更换大小写
    
58.       (setq s (vl-string-subst "%%p" "%%P" (vl-string-subst "%%d" "%%D" (vl-string-subst "%%c" "%%C" s))))
    
59.   
    
60.   ;;;换行处理1
    
61.   (setq s1 s)
    
62.   ;删除回车换行符格式
    
63.   (vlax-put-property regex "Pattern" "\\\\P")
    
64.   (setq s1 (vlax-invoke-method  regex "Replace" s1 ""))
    
65.   ;删除换行符格式（针对Shift+Enter格式）
    
66.   (vlax-put-property regex "Pattern" "\n")
    
67.   (setq s1 (vlax-invoke-method  regex "Replace" s1 ""))
    
68.   
    
69.   ;;;换行处理2
    
70.   (setq s2 s)
    
71.   ;回车换行符格式替换为 "\n"
    
72.   (vlax-put-property regex "Pattern" "\\\\P")
    
73.   (setq s2 (vlax-invoke-method  regex "Replace" s2 "\\n"))
    
74.   ;回车换行符格式替换为 "\n"（针对Shift+Enter格式）
    
75.   (vlax-put-property regex "Pattern" "\n")
    
76.   (setq s2 (vlax-invoke-method  regex "Replace" s2 "\\n"))
    
77.   
    
78. 
    
79.   (vlax-release-object regex)
    
80.   (list s1 (dos_strtokens s2 "\\n" T))
    
81. )

;;去除单行文字中的上下划线标志   ---多行文字中的上下标格式，与单行文字的格式不一样。炸开mt后dt会自动进行转换，导致字符串总长度有差异。<br /> (defun dtfix( str )<br />   (setq str (vl-string-subst "" "%%U" (vl-string-subst "" "%%O" str)))<br /> )<br /> ;;多行炸开变单行时，一些特殊的字符自动被转换，需要转换回去。<br /> (defun spdtfix( str )<br />   (setq str (vl-string-subst "%%p" "±" str))        ;\U+00B1<br />   (setq str (vl-string-subst "%%c" "\U+2205" str))<br />   (setq str (vl-string-subst "%%d" "°" str))        ;\U+00B0<br /> )<br /> ;;多行文字提取单行文字   --来自明经  --yuuboo改造，返回列表（list str str2biao）  :::  str为脱格式后完整字符串，str2biao为考虑换行的字符串列表<br /> (defun mt2dt( MTextString / regex s s1 s2 )<br />   (setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件<br />   (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写<br />   (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配<br />   (setq s MTextString)<br />   <br />   ;替换\\字符<br />   (vlax-put-property regex "Pattern" "\\\\\\\")<br />   (setq s (vlax-invoke-method  regex "Replace" s (chr 1)))<br />   ;替换\{字符<br />   (vlax-put-property regex "Pattern" "\\\\{")<br />   (setq s (vlax-invoke-method  regex "Replace" s (chr 2)))<br />   ;替换\}字符<br />   (vlax-put-property regex "Pattern" "\\\\}")<br />   (setq s (vlax-invoke-method  regex "Replace" s (chr 3)))<br />   ;删除段落缩进格式<br />   (vlax-put-property regex "Pattern" "\\\\pi(.[^;]*);")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除制表符格式<br />   (vlax-put-property regex "Pattern" "\\\\pt(.[^;]*);")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除堆迭格式<br />   (vlax-put-property regex "Pattern" "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除字体、颜色、字高、字距、倾斜、字宽、对齐格式<br />   (vlax-put-property regex "Pattern" "(\\\\F|\\\\f|\\\\C|\\\\H|\\\\\T|\\\\Q|\\\\W|\\\\A)(.[^;]*);")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除下划线、删除线格式<br />   (vlax-put-property regex "Pattern" "(\\\\L|\\\\O|\\\\l|\\\\o)")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除不间断空格格式<br />   (vlax-put-property regex "Pattern" "\\\\~")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;删除{}<br />   (vlax-put-property regex "Pattern" "({|})")<br />   (setq s (vlax-invoke-method  regex "Replace" s ""))<br />   ;替换回\\,\{,\}字符<br />   (vlax-put-property regex "Pattern" "\\x01")<br />   (setq s (vlax-invoke-method  regex "Replace" s "\"))<br />   (vlax-put-property regex "Pattern" "\\x02")<br />   (setq s (vlax-invoke-method  regex "Replace" s "{"))<br />   (vlax-put-property regex "Pattern" "\\x03")<br />   (setq s (vlax-invoke-method  regex "Replace" s "}"))<br />   <br />       ;;几个特殊符号更换大小写<br />       (setq s (vl-string-subst "%%p" "%%P" (vl-string-subst "%%d" "%%D" (vl-string-subst "%%c" "%%C" s))))<br />   <br />   ;;;换行处理1<br />   (setq s1 s)<br />   ;删除回车换行符格式<br />   (vlax-put-property regex "Pattern" "\\\\P")<br />   (setq s1 (vlax-invoke-method  regex "Replace" s1 ""))<br />   ;删除换行符格式（针对Shift+Enter格式）<br />   (vlax-put-property regex "Pattern" "\n")<br />   (setq s1 (vlax-invoke-method  regex "Replace" s1 ""))<br />   <br />   ;;;换行处理2<br />   (setq s2 s)<br />   ;回车换行符格式替换为 "\n"<br />   (vlax-put-property regex "Pattern" "\\\\P")<br />   (setq s2 (vlax-invoke-method  regex "Replace" s2 "\\n"))<br />   ;回车换行符格式替换为 "\n"（针对Shift+Enter格式）<br />   (vlax-put-property regex "Pattern" "\n")<br />   (setq s2 (vlax-invoke-method  regex "Replace" s2 "\\n"))<br />   <br /> <br />   (vlax-release-object regex)<br />   (list s1 (dos_strtokens s2 "\\n" T))<br /> )

wzg356

masterlong 发表于 2023-8-22 22:17

多行文本可以格式还原的，就按取得的有效字符（炸开后的）从头开始在原含格式的字符串里面逐个字符检索取回来就行了。
替换匹配是按有效字符匹配的。
主要问题是要替换的旧字串间有格式变化时，新字串格式如何人为安排。

gaics

getlockedas函数针对图名中乱码的情况会报错。
比如我的图纸里"V_B"就存在乱码
命令: (tblsearch "layer" "V_B")
((0 . "LAYER") (2 . "&#65534;&#65535;V&#65534;_B") (70 . 0) (62 . 8) (6 . "Continuous"))

建议改为如下方式：
(defun getlockedlas (/ la lst es)
  (vlax-for la (vla-get-layers
                 (vla-get-activedocument (vlax-get-acad-object))
               )
    (if        (or (eq (vla-get-Lock la) :vlax-true)
            (eq (vla-get-Freeze la) :vlax-true)
            (eq (vla-get-LayerOn la) :vlax-false)
        )
      (setq lst (cons (vla-get-name la) lst))
    )
  )
)


但是，为什么要排除“锁定”的图层呢？只排除“关闭”和“冻结”的不可见图层不行吗？

gaics

还有个问题，查看时视图拉的太远，看不见文字在哪。

建议根据文字字高设置显示范围。

wzg356

gaics 发表于 2023-8-23 08:56
还有个问题，查看时视图拉的太远，看不见文字在哪。

建议根据文字字高设置显示范围。

把最后用于查看的函数里面+-6000数据改小就是放大

gaics

getlockedlas函数的值并没有传递给lockedlas

wzg356

gaics 发表于 2023-8-23 08:54
getlockedas函数针对图名中乱码的情况会报错。
比如我的图纸里"V_B"就存在乱码
命令: (tblsearch "layer" ...

冻结好像选不上（自己试一下），不管，锁定层可以看—不能操作，自己据需求修改吧！查看，建注记（如画实体线框等）没问题，对文字对象操作难度很大，会误操作。

另，ssget用（1 . 通配符）过滤选多行文字不一定能选中（有格式变化时），有时又会误选（通配符与格式控制符配上），自己据需要是否包含

gaics

wzg356 发表于 2023-8-24 10:42
冻结好像选不上（自己试一下），不管，锁定层可以看—不能操作，自己据需求修改吧！查看，建注记（如画实 ...

我试了，锁定、关闭和冻结 都能被选中

天天问

gaics 发表于 2023-8-23 08:56
还有个问题，查看时视图拉的太远，看不见文字在哪。

建议根据文字字高设置显示范围。

我使用的时候也有这个问题，运行后自动窗口自动缩小了，标记框都找不到