● 一个在cad中执行查找和替换的程序 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: minho (蓝石头】), 信区: CAD
标  题: 一个在cad中执行查找和替换的程序
发信站: 荔园晨风BBS站 (Sun Mar 31 12:02:48 2002), 转信

(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 "确认替换吗?:"))
   (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)
)
--

               那块石头在阳光下闪过几丝神秘的蓝光

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.55.120]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店