删除含括号的文字

香田里浪人

Ccccccc 发表于 2012-5-9 16:58
比如删除字符串中任意位置的括号

;;;删除所有"(" ")"
(defun C:qskh (/ ss)
  (defun LM:ss->vla        (ss)
        ;;->Lee Mac 2010
        (if        ss
          ((lambda (i / e l)
                 (while        (setq e (ssname ss (setq i (1+ i))))
                   (setq l (cons (vlax-ename->vla-object e) l))
                 )
                 l
           )
                -1
          )
        )
  )
  (setq ss (ssget '((0 . "TEXT"))))
  (setq ss (LM:ss->vla ss))
  (mapcar
        '(lambda (x / str)
          (setq str (vl-string->list  (vla-get-TextString x)))  
           (setq str (vl-remove-if '(lambda(x) (or (= x 40)(= 41 x))) str))
           (setq str (vl-list->string  str))
           (vla-put-TextString x str)
         )
        ss
  )
  (princ)
)