已解决按指定内容批量替换图中文字

cz7873559 · 发表于 2013-9-20 00:38:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 cz7873559 于 2013-9-22 11:17 编辑

要求如题，欲做的是把图中文本按TXT文件内容 1000>00001 1000替换成00001，对我的难在于怎样按行批量处理所有符合条件的字符。自己实现不了，麻烦大家给我指教！不胜感激！以下是文本内容，附件是相应的TXT文件。
文本内容：

1000>00001
1001>00002
1002>00003
1003>00004
1004>00005
1005>00006
1006>00007
1007>00008
1008>00009
1009>00010
1010>00011

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TH.txt
下载次数:20 文件大小:130 Bytes
下载权限: 不限以上 [免费赚D豆]

zxq0220 · 发表于 2013-9-20 08:26:48

(defun c:tt ()
(if (and (princ "\n选择文字: ") (setq ss (ssget '((0 . "TEXT") (1 . "1###")))))
(progn
  (setq i -1)
  (repeat (sslength ss)
(setq ent (entget(ssname ss (setq i (1+ i))))
      txt (cdr(assoc 1 ent)))
(entmod (subst (cons 1 (itoa (- (atoi txt) 999))) (assoc 1 ent) ent))
  )
))
(princ)
)

cz7873559 · 发表于 2013-9-20 10:02:53

谢谢zxq0220！这个能实现批量相减得出结果，很有用，先收藏了。我大概没把意思说明白，可能误解了。其实我是想把图中一列的值变成对应的另一列的值。如这个excel数据。

cz7873559 · 发表于 2013-9-20 10:05:42

数据如图所示

Lispboy · 发表于 2013-9-20 14:02:17

下面代码执行前请加载XDRX API和晓东通用LISP函数库。文件保存到G盘，你可以根据需要修改。

(defun c:tt ( / e entl fl n new old ss txt txtl)
(XD::Begin)
(setq fl (open "g:\\th.txt" "r"))
(while (setq txt (read-line fl))
(setq txtl (xdrx_string_split txt ">"))
(setq entl (cons txtl entl))
)
(close fl)
(prompt "\n选取要替换的文字<全选>:")
(if (not (setq ss (ssget '((0 . "text")))))
(setq ss (ssget "x" '((0 . "text"))))
)
(xdrx_setsstodb ss 0)
(setq i 0)
(while (setq e (xdrx_getentdata 0))
(setq txt (xdrx_getpropertyvalue e "TextString"))
(foreach n entl
(setq old (car n)
new (cadr n)
)
(if (XD::String:RegExpS old txt "")
(progn
(setq i (1+ i))
(setq txt (XD::String:RegExpR old txt new ""))
)
)
)
(xdrx_SetPropertyValue e "TextString" txt)
)
(if (> i 0)
(prompt (strcat "\n共替换了 " (itoa i) " 处符合条件的文字."))
(prompt "\n没有发现符合条件的文字.")
)
(XD::End)
(princ)
)

(defun c:tt ( / e entl fl n new old ss txt txtl) 
  (XD::Begin) 
  (setq fl (open "g:\\th.txt" "r")) 
  (while (setq txt (read-line fl)) 
    (setq txtl (xdrx_string_split txt ">")) 
    (setq entl (cons txtl entl)) 
  ) 
  (close fl) 
  (prompt "\n选取要替换的文字<全选>:") 
  (if (not (setq ss (ssget '((0 . "text"))))) 
    (setq ss (ssget "x" '((0 . "text")))) 
  ) 
  (xdrx_setsstodb ss 0) 
  (setq i 0) 
  (while (setq e (xdrx_getentdata 0)) 
    (setq txt (xdrx_getpropertyvalue e "TextString")) 
    (foreach n entl 
      (setq old (car n) 
            new (cadr n) 
      ) 
      (if (XD::String:RegExpS old txt "") 
        (progn 
          (setq i (1+ i)) 
          (setq txt (XD::String:RegExpR old txt new "")) 
        ) 
      ) 
    ) 
    (xdrx_SetPropertyValue e "TextString" txt) 
  ) 
  (if (> i 0) 
     (prompt (strcat "\n共替换了 " (itoa i) " 处符合条件的文字.")) 
     (prompt "\n没有发现符合条件的文字.") 
  ) 
  (XD::End) 
  (princ) 
)

cz7873559 · 发表于 2013-9-20 18:25:33

非常感谢！我得先学学加载XDRX API和晓东通用LISP函数库。

cz7873559 · 发表于 2013-9-20 18:44:28

麻烦问问。在运行时，提示错误: 参数类型错误: FILE nil 是怎么回事呢？

newer · 发表于 2013-9-20 19:12:32

cz7873559 发表于 2013-9-20 18:44
麻烦问问。在运行时，提示错误: 参数类型错误: FILE nil 是怎么回事呢？

你要是没修改程序的话，你的替换规则文件 gh.txt 要保存到G：盘根目录下，如果你修改了程序，把你修改的代码贴上来，可能是你修改错了。

cz7873559 · 发表于 2013-9-20 20:51:35

(defun c:tt ( / e entl fl n new old ss txt txtl)
(XD::Begin)
;;; (setq fl (open "D:\我的文档\桌面\TH.txt" "r"))
(setq f1 (getfiled "选择读取的数据文件" strPath "txt" 0))
(while (setq txt (read-line fl))
(setq txtl (xdrx_string_split txt ">"))
(setq entl (cons txtl entl))
)
(close fl)
(prompt "\n选取要替换的文字<全选>:")
(if (not (setq ss (ssget '((0 . "text")))))
(setq ss (ssget "x" '((0 . "text"))))
)
(xdrx_setsstodb ss 0)
(setq i 0)
(while (setq e (xdrx_getentdata 0))
(setq txt (xdrx_getpropertyvalue e "TextString"))
(foreach n entl
(setq old (car n)
new (cadr n)
)
(if (XD::String:RegExpS old txt "")
(progn
(setq i (1+ i))
(setq txt (XD::String:RegExpR old txt new ""))
)
)
)
(xdrx_SetPropertyValue e "TextString" txt)
)
(if (> i 0)
(prompt (strcat "\n共替换了 " (itoa i) " 处符合条件的文字."))
(prompt "\n没有发现符合条件的文字.")
)
(XD::End)
(princ)
)

(defun c:tt ( / e entl fl n new old ss txt txtl) 
  (XD::Begin) 
;;;  (setq fl (open "D:\我的文档\桌面\TH.txt" "r")) 
    (setq f1 (getfiled "选择读取的数据文件" strPath "txt" 0)) 
  (while (setq txt (read-line fl)) 
    (setq txtl (xdrx_string_split txt ">")) 
    (setq entl (cons txtl entl)) 
  ) 
  (close fl) 
  (prompt "\n选取要替换的文字<全选>:") 
  (if (not (setq ss (ssget '((0 . "text"))))) 
    (setq ss (ssget "x" '((0 . "text")))) 
  ) 
  (xdrx_setsstodb ss 0) 
  (setq i 0) 
  (while (setq e (xdrx_getentdata 0)) 
    (setq txt (xdrx_getpropertyvalue e "TextString")) 
    (foreach n entl 
      (setq old (car n) 
            new (cadr n) 
      ) 
      (if (XD::String:RegExpS old txt "") 
        (progn 
          (setq i (1+ i)) 
          (setq txt (XD::String:RegExpR old txt new "")) 
        ) 
      ) 
    ) 
    (xdrx_SetPropertyValue e "TextString" txt) 
  ) 
  (if (> i 0) 
     (prompt (strcat "\n共替换了 " (itoa i) " 处符合条件的文字.")) 
     (prompt "\n没有发现符合条件的文字.") 
  ) 
  (XD::End) 
  (princ) 
)

cz7873559 · 发表于 2013-9-20 20:52:08

我改成了选择文本文件，也不行啊。

cz7873559 · 发表于 2013-9-20 20:54:39

我启动cad的时候出现如下情况:请问是否加载XDRX API和晓东通用LISP函数库时没加载正确？
Couldn't find OpenDCL.16.arx.
晓东通用LISP函数库Build 2013.09.08加载完毕...

newer · 发表于 2013-9-20 21:17:46

cz7873559 发表于 2013-9-20 20:52
我改成了选择文本文件，也不行啊。

你仔细看看人家的程序，文件路径和你写的有什么不一样？你少了个斜杠。

cz7873559 · 发表于 2013-9-21 09:13:40

您说的对，我按照您的代码就能执行。自己改了就不行：
(setq fl (open "D:\我的文档\桌面\TH.txt" "r"))
怎样改都改不正确。麻烦给我指教下要怎样改才行啊。

Underway · 发表于 2013-9-21 09:40:12

(setq fl (open "D:\\我的文档\\桌面\\TH.txt" "r"))
or
(setq fl (open "D:/我的文档/桌面/TH.txt" "r"))

cz7873559 · 发表于 2013-9-21 10:48:26

谢谢Underway。我们这些新手就是在像你这样的高手的无私帮助下成长起来！

账号		自动登录	找回密码
密码			立即注册

[已解决] 已解决按指定内容批量替换图中文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

评分

[已解决] 已解决 按指定内容批量替换图中文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评

评分

[已解决] 已解决按指定内容批量替换图中文字