[文章]：R14中如何进行全图替换？

afeijianke

我用的是CAD R14，请教：怎样把图中所有的“[”换成符号“＃”，请说的详细些，我是个新手，谢谢大家！

xcajcj

最初由 afeijianke 发布
[B]我用的是CAD R14，请教：怎样把图中所有的“[”换成符号“＃”，请说的详细些，我是个新手，谢谢大家！ [/B]

你可以使用扩展工具中的“FIND”命令。

l19811102

最初由 xcajcj 发布
[B]
你可以使用扩展工具中的“FIND”命令。 [/B]

R14好像没有find这个命令的啊！

ericeden

你用2002以上好了,右键菜单就有
或者输入find,界面和word很像,可以选择替换范围

柔柔

送一个小程序：
;
; CHGTEXT.LSP   文字替换程序
; CYN  最近一次修改: 2001.11.15
;
;------------------------------------------------------------------------
(defun chgterr (s)
   (if (/= s "Function cancelled")   ; If an error (such as CTRL-C) occurs
      (princ (strcat "\nError: " s)) ; while this command is active...
   )
   (setq p nil)                      ; Free selection set
   (setq *error* olderr)             ; Restore old *error* handler
   (princ)
)

;=====================  MAIN PROGRAM  ===================================

(defun c:chgtext (/ p l n e as st s nsl osl sl si chf chm olderr)
   (setq olderr  *error*             ; Initialize variables
         *error* chgterr
         chm     0)
   (if (= ost nil)(setq ost "Old string"))
   (if (= ns nil0)(setq ns "New string"))
    (prompt (strcat "\n替换目标 <"ost"> :"))
    (setq xx (getstring T))
    (if (/= xx "") (setq ost xx))
    (setq osl (strlen ost))  
  
    (prompt (strcat "\n替换成为 <"ns"> :"))
    (setq xx (getstring T))
    (if (/= xx "") (setq ns xx))
    (setq nsl (strlen ns))
  (setq k T)
  (while k
   (setq p (ssget))
     (if (= p nil) (setq k nil))
      (setq l 0 n (sslength p))
      (while (< l n)                 
         (if (= "TEXT"               
                (cdr (assoc 0 (setq e (entget (ssname p l))))))
            (progn
               (setq chf nil si 1)
               (setq s (cdr (setq as (assoc 1 e))))
               (while (= osl (setq sl (strlen
                             (setq st (substr s si osl)))))
                  (if (= st ost)
                      (progn
                        (setq s (strcat (substr s 1 (1- si)) ns
                                        (substr s (+ si osl))))
                        (setq chf t) ; Found old string
                        (setq si (+ si nsl))
                      )
                      (setq si (1+ si))
                  )
               )
               (if chf (progn        
                  (setq e (subst (cons 1 s) as e))
                  (entmod e)         
                  (setq chm (1+ chm))
               ))
            )
         )
         (setq l (1+ l))
      )   
   (princ (strcat "Changed "(itoa chm)" text lines."))         
   (terpri)
   (setq *error* olderr)            
   (princ)
  )
)
;=========================================================================

xcajcj

最初由 l19811102 发布
[B]
R14好像没有find这个命令的啊！ [/B]

有，在R14的“附赠程序”里，2000以后叫“ET扩展工具ExpressTools”。

afeijianke

谢谢各位大侠，尤其是柔柔和xcajcj,在下受益非浅，一定继续努力.