[编程申请]：请高手编个将%%131替换为%%132的lisp程序

kikigz88

请高手编个将%%131替换为%%132的lisp程序，画结构图的时候经常要改变钢筋的级别，用查找替换太麻烦了，如果有直接的命令，会提高制图的速度啊，最好能互换的，先谢谢了

gysjy

下面的程序将%%131替换为%%132：
[PHP](defun C:nn (/ p l n e os as ns st s nsl osl sl si chf chm olderr)      
   (setq chm 0 p (ssget))                  ; Select objects
   (if p (progn                      ; If any objects selected
      (while (= 0 (setq osl (strlen (setq os "%%131"))))
            (princ "Null input invalid")
      )
      (setq nsl (strlen (setq ns "%%132")))
      (setq l 0 n (sslength p))
      (while (< l n)                 ; For each selected object...
         (if (= "TEXT"               ; Look for TEXT entity type (group 0)
                (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 os)
                      (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        ; Substitute new string for old
                  (setq e (subst (cons 1 s) as e))
                  (entmod e)         ; Modify the TEXT entity
                  (setq chm (1+ chm))
               ))
            )
         )
         (setq l (1+ l))
      )
   ))
   (princ chm)
   (princ " text lines.")
   (terpri)
   (princ)
)[/PHP]

kikigz88

感谢2楼楼主，感激涕零，不知道怎么谢才好！
*-*d

suoykw

我也是觉得是非常的管用。

kikigz88

4楼的真是通道中人啊

yingxy1234

这样的功能需要专门弄个程序，那你需要的程序也太多了吧，命令都会记混了

kikigz88

为了提高自己的制图速度啊，有时候pkpm里的时间很少，主要是生成以后的编辑工作量很大，这页完全是根据自己的需求来的啊，与别人无关