社区 › AutoLISP/Visual LISP 编程技术 › 删除含括号的文字

香田里浪人 发表于 2014-11-12 09:23:14

Ccccccc 发表于 2012-5-9 16:58 static/image/common/back.gif
比如删除字符串中任意位置的括号

;;;删除所有"(" ")"
(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->stringstr))
         (vla-put-TextString x str)
         )
      ss
)
(princ)
)

查看完整版本: 删除含括号的文字