[投票]：一次实现多个查找替换

xyp1964 · 发表于 2005-7-2 14:09:20

最初由 gongzhuke 发布
[B]xyp1964 大哥我对你的感激之情如滔滔江水。。。。。。。
但小弟我实在是烦固不化
只能用R14
还是要请你帮忙
我不把两个不同的程序写在同一个文件里
也出现上面同样的问题
如果不是小弟程序有错
请问还有没有?.. [/B]

13楼的不是改好了吗！没试试？！

逐月飞鸿 · 发表于 2005-7-5 10:05:06

很实用的程序！对于批量的查找和替换大大提高了工作效率！
但是较长文本的替换就可能超出图纸的限制的范围了~~~~~~~
如果能订制替换后文本的宽高比就完美了！！请大虾们完善一下吧！！

xyp1964 · 发表于 2005-7-5 12:39:48

最初由逐月飞鸿发布
[B]很实用的程序！对于批量的查找和替换大大提高了工作效率！
但是较长文本的替换就可能超出图纸的限制的范围了~~~~~~~
如果能订制替换后文本的宽高比就完美了！！请大虾们完善一下吧！！ [/B]

宽高比是文本自身的问题，如果要改变可以试试签名栏下的“★文本编辑套件”！

狂刀 · 发表于 2005-7-7 22:50:34

最初由 gongzhuke 发布
[B]真诚感谢xyp1964班主
为我写了很好用的程序
向你敬礼！

我是我多年渴求的程序啊！

还想请你帮个忙
写一个R14下的LISP程序
实现如下功能

把同一个文件夹里的多个CAD文件作为块同时插入同一个CAD文件中
... [/B]

也许可以考虑用vb 或 vba 做

gongzhuke · 发表于 2005-8-18 12:27:58

Vb或VBA在R14里可能用不了吧

limingqian · 发表于 2005-8-18 12:36:40

使用chtext.lsp提供的CHT命令,选择多个文字实体,使用全局编辑即可.

gongzhuke · 发表于 2005-11-7 17:53:35

xyp1964班主
谢谢你给我写程序
我现在程序遇到新问题了，
你看下面的程序片断，
((= #txt "%%130") (sub_upd s1 1 "["))
这个功能实现不了

因为"%%130只是文字里的一部分，
这个程序非得要整个文字都写进去才能实现
即
((= #txt "%%1308@100/200(2)") (sub_upd s1 1 "[8@100/200(2)"))

我该怎么办呢？

xyp1964 · 发表于 2005-11-7 18:51:45

最初由 gongzhuke 发布
[B]xyp1964班主
谢谢你给我写程序
我现在程序遇到新问题了，
你看下面的程序片断，
((= #txt "%%130") (sub_upd s1 1 "["))
这个功能实现不了

因为"%%130只是文字里的一部分，
这个程序非得要整个文字... [/B]

[php]((= (substr #txt 1 5)"%%130") (sub_upd s1 1 (strcat "[" (substr #txt 6))))[/php]

gongzhuke · 发表于 2005-11-8 09:30:05

班主这个程序片断您试过了吗？
我用了怎么不行啊？
请帮我看一下，自己不懂编程真是麻烦呀，叩谢谢！

((= (substr #txt 1 5)"%%130") (sub_upd s1 1 (strcat "[" (substr #txt 6))))
((= (substr #txt 1 5)"%%131") (sub_upd s1 1 (strcat "]" (substr #txt 6))))

我是放在LIsp里面的哦，

xyp1964 · 发表于 2005-11-8 11:05:23

最初由 gongzhuke 发布
[B]班主这个程序片断您试过了吗？
我用了怎么不行啊？
请帮我看一下，自己不懂编程真是麻烦呀，叩谢谢！

((= (substr #txt 1 5)"%%130") (sub_upd s1 1 (strcat "[" (substr #txt 6))))
((= (substr #txt... [/B]

替换原则改变了，程序当然也得改变：

[FONT=courier new]
;;;一次实现多个查找替换
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq txt (cdr (assoc 1 (entget s1))))
(cond-user)
)
(CMDLA1)
)
(defun cond-user ()
(cond
;;((= txt "%%1318@180") (sub_upd s1 1 "K8"))
;;((= txt "%%1318@150") (sub_upd s1 1 "K5"))
;;((= txt "%%1318@200") (sub_upd s1 1 "K"))
((= (substr txt 1 5) "%%130")
(sub_upd s1 1 (strcat "[" (substr txt 6)))
)
((= (substr txt 1 5) "%%131")
(sub_upd s1 1 (strcat "]" (substr txt 6)))
)
;;……用户自定义
(t (princ))
)
)[/FONT]

gongzhuke · 发表于 2005-11-8 14:41:17

;;;一次实现多个查找替换
(defun c:L1 ()
  (CMDLA0)
  (setq ss (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq txt (cdr (assoc 1 (entget s1))))
(cond-user)
  )
  (CMDLA1)
)
(defun cond-user ()
  (cond

((= (substr txt 1 5) "%%130")
   (sub_upd s1 1 (strcat "[" (substr txt 6)))
)
((= (substr txt 1 5) "%%131")
   (sub_upd s1 1 (strcat "]" (substr txt 6)))
)
;;……用户自定义
(t (princ))
  )
)

L1命令不执行
楼主啊

显示无效的命令

Command: l1
错误: null function
nil*Cancel*

我错在哪里啊？

xyp1964 · 发表于 2005-11-8 15:04:42

最初由 gongzhuke 发布
[B];;;一次实现多个查找替换
(defun c:L1 ()
  (CMDLA0)
  (setq ss (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq txt (cdr (assoc 1 (entget s1))))
(c... [/B]

本身没错，只是未加载xyp_lib通用函数！

gongzhuke · 发表于 2005-11-8 17:39:31

最初由 xyp1964 发布
[B][QUOTE]最初由 gongzhuke 发布
[B];;;一次实现多个查找替换
(defun c:L1 ()
  (CMDLA0)
  (setq ss (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq ... [/B]

我用的是R14，没有办法加载您的VLX程序啊？
我还有别的办法吗？

xyp1964 · 发表于 2005-11-8 17:45:59

最初由 gongzhuke 发布
[B][QUOTE]最初由 xyp1964 发布
[B][QUOTE]最初由 gongzhuke 发布
[B];;;一次实现多个查找替换
(defun c:L1 ()
  (CMDLA0)
  (setq ss (ssget '((0 . "TEXT")))
i  -1
  )
  (while (setq s1 (s... [/B]

很遗憾，对R14实在是无能为力！
为什么还停留在20世纪，不想长大？呵呵……

gongzhuke · 发表于 2005-11-9 12:28:33

可我还是想实现这外功能啊，
哪位大哥哥可以帮小弟一把啊？

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