엔지니어 기술블로그

;;;   DIMENSION,TEXT,MTEXT에 괄호가 있으면 제거,없으면 삽입합니다
(defun c:gh (/ ss p n n1 n2 n3 n4)
  (SETVAR "CMDECHO" 0)
  (setq ss (ssget '((0 . "DIMENSION,TEXT,MTEXT"))))
  (if (> (SSLENGTH ss) 0)
    (progn
      (setq p 0)
      (while (ssname ss p)
        (setq n         (ssname ss p)
              n1 (entget n)
              n2 (assoc 1 n1)
              n3 (cdr n2)
              p         (+ p 1)
        )
        (if        (= n3 "")
              (setq n3 "<>")
            )
        (if (/= (wcmatch n3 "(*,*(*,*),*)*") nil)
          (progn
            (setq n3 (vl-string-trim "()" n3))
            (setq n4 (subst (cons 1 n3) n2 n1))
            (entmod n4)
          )
          (progn
            (setq n4 (subst (cons 1 (strcat "(" n3 ")")) n2 n1))
            (entmod n4)
          )
        )
      )
    )
  )
  (princ)

)