Nhờ Viết Lisp Cộng Các Số Trong Text (Hoặc Mtext) Và Output Sang Một Mtext Khác

[Tap.Ve.Cad 27]

Bạn thử cái này xem:

(defun c:congtext ()
  (setq object (ssget '((0 . "*TEXT")))
        number 0)
    (if object
    (progn
      (repeat (sslength object)
        (setq ent (entget (ssname object 0)))
        (setq txt (cdr (assoc 1 ent)))
        
       (setq val (get-numeric-value txt))
        
        (setq number (+ number val))
        (ssdel (ssname object 0) object)
      )
      (setq sstext_ent (car (entsel "\nChon Text hoac MText thay ket qua: ")))
      (if sstext_ent
        (progn
          (setq ent_data (entget sstext_ent))
          (setq ent_data (subst (cons 1 (rtos number 2 2)) (assoc 1 ent_data) ent_data))
          (entmod ent_data)
        )
      )
    )
  )
  (princ (strcat "\nTong cong la: " (rtos number 2 2)))
  (princ)
)

(defun get-numeric-value (str / pos1 pos2 clean-str)
  (cond
    ((and (setq pos1 (vl-string-search ";" str))
          (setq pos2 (vl-string-search "}" str pos1)))
     (atof (substr str (+ pos1 2) (- pos2 pos1 1)))
    )
    (t (atof str))
  )
)

[levietmy 2]

Cám ơn bạn nhiều