求能对全图文本进行查找、替换的程序

unfeltboy · 发表于 2004-8-26 19:11:00

因为R14下没有像2000以下版本中的查找、替换、全部替换的功能，

现求一能实现该功能对全图文本进行查找、替换、全部替换的程序。

不知哪位高手能帮帮忙。

alin · 发表于 2004-8-26 20:32:00

我以前有一个，帮你找找看。

BDYCAD · 发表于 2004-8-27 11:10:00

一个在CAD中执行查找与替换的程序

yyqxq@163.net

(defun dxf(code elist)
 (cdr (assoc code elist))
)
;查找与替换
(defun c:rep();/ ss txsize n index ent type oldsize newsize ent1 char)
  (setvar "CMDECHO" 0)
  (prompt "\n 请输入查找范围:")
  (setq ss (ssget))
  (setq txsize (entget (car (entsel "请选择查找文字目标:"))))
  (setq txsize (dxf 1 txsize))
  (prompt "\n 指定或输入替换内容?")
  (setq char (grread))
  (cond
     ((= (car char) 3)
      (progn
       (setq ent (entget (ssname (ssget (cadr char)) 0)))
       (setq char (dxf 1 ent))
      );progn
     );pick from screen
     ((= (car char) 2)
      (progn
       (princ (chr (cadr char)))
       (setq char (strcat (chr (cadr char)) (getstring)))
      );progn
     );pick form keyboard
     (t nil)
  );
  (princ "\n")
  (princ "\n")
  (princ (strcat txsize "替换为-->" char "\n"))
  (setq n (getstring "确认替换吗?[Esc取消]:"))
   (setq n (sslength ss))
   (setq index 0)
   (repeat n
    (setq ent (entget (ssname ss index)))
    (setq index (+ 1 index))
    (setq type (assoc 1 ent))
    (if (= txsize (cdr type))
     (progn
      (setq oldsize (assoc 1 ent))
      (setq newsize (cons (car oldsize) char))
      (setq ent (subst newsize oldsize ent))
      (entmod ent)
     );progn
    );if
   );repeat
   (prin1)
)

返回

CAD/CAM 2 EaSy 2000

小狼 · 发表于 2004-8-27 19:41:00

把R14下的扩展工具装上（一般是默认安装的）

执行Find就可以修改

梁旭武 · 发表于 2004-8-28 09:28:00

我也用过R14呀，好像有的吧。FIND 就可以了。

unfeltboy · 发表于 2004-9-10 14:58:00

我的怎么没有find的命令啊？

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