[编程申请]：批量替换文本内容

lengliqun

求一LSP程序，运行这个程序后，能将所选之]10@100变成[8@150，]12@100变成]10@100。谢谢。

xyp1964

[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;能将所选之]10@100变成[8@150，]12@100变成]10@100。
(defun c:test ()
  (cmdla0)
  (princ "\n选择文本 : ")
  (setq        ss (ssget '((1 . "]10@100,]12@100")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (if        (= (dxf 1 (entget s1)) "]10@100")
      (sub_upd s1 1 "]8@150")
      (sub_upd s1 1 "]10@100")
    )
  )
  (cmdla1)
)[/php]

lengliqun

CAD2002不可用，已将命令改为a2，有误如下，


命令: a2

选择文本 :
选择对象: 找到 1 个
已滤除 1 个。

选择对象:

错误: 参数类型错误: lselsetp nil

命令: *取消*

xyp1964

最初由 lengliqun 发布
[B]CAD2002不可用，已将命令改为a2，有误如下，


命令: a2

选择文本 :
选择对象: 找到 1 个
已滤除 1 个。

选择对象:

错误: 参数类型错误: lselsetp nil

命令: *取消* [/B]

看不懂你说什么！

lengliqun

在CAD2000下运行上述LSP程序有误，提示如下：
命令: test

选择文本 :
选择对象: 找到 1 个
已滤除 1 个。

选择对象:

错误: 参数类型错误: lselsetp nil

xyp1964

发个图给你测试一下。

lengliqun

                               
登录/注册后可看大图

xyp1964

未经测试，确实有问题。
要避免改来改去都变成“]8@150”，别太省，可不安全！
程序修改如下：
[php](load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

;;;能将所选之]10@100变成[8@150，]12@100变成]10@100。
(defun c:test ()
  (cmdla0)
  (setq i -1)
  (princ "\n选择文本 : ")
  (if
    (setq ss (ssget '((0 . "TEXT"))))
     (while (setq s1 (ssname ss (setq i (1+ i))))
       (if (= (dxf 1 (entget s1)) "]10@100")
         (sub_upd s1 1 "]8@150")
       )
       (if (= (dxf 1 (entget s1)) "]12@100")
         (sub_upd s1 1 "]10@100")
       )
     )
  )
  (cmdla1)
)[/php]
或
[php]
(defun c:test ()
  (cmdla0)
  (setq i -1)
  (princ "\n选择文本 : ")
  (if (setq ss (ssget '((0 . "TEXT"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (setq txtmode (dxf 1 (entget s1)))
      (cond ((= txtmode "]10@100") (sub_upd s1 1 "]8@150"))
            ((= txtmode "]12@100") (sub_upd s1 1 "]10@100"))
            (T (princ))
      )
    )
  )
  (cmdla1)
)[/php]

lengliqun

可用了，辛苦了，谢谢了。