Lệnh STX

Cộng giá trị Text trong bản vẽ AutoCAD

MÃ NGUỒN MỞ

1 Thêm class STX_.lsp

Lưu mã sau dưới dạng tệp tin STX_.lsp

Code:

(defun C:STX (/ elist en ss sum sumtxt txt)
(princ "\n\t\t>>>  Select text to get summ >>>")
(if
;;select texts/mtexts on screen :
(setq ss (ssget '((0 . "*TEXT"))))
;; if selected then :
(progn
 ;; set initial sum to zero :
 (setq sum 0.)
 ;; loop trough selected texts/mtexts :
 (while
   ;; get the first text in selection :
   (setq en (ssname ss 0))
   ;; get entity list of them :
   (setq elist (entget en))
   ;; get the textstring by key 1 from entity list :
   (setq txt (cdr (assoc 1 elist)))
   ;; create output string :
   (setq sumtxt
   ;; concatenate strings :
   (strcat
     ;; convert digits to string :
     (rtos
       ;; add to summ the digital value of text :
       (setq sum (+ (atof txt) sum))
       ;; 2 is for metric units (3 for engineering) :
       2
       ;; set precision by current :
       (getvar "dimdec")))
  )
   ;; delete entity from selection set :
   (ssdel en ss)
   )
 ;; display message :
 (alert (strcat "\nSumm = " sumtxt))
 )
)
(princ)
 )
(princ "\nStart command with STX...")
(princ)

Nguồn: https://www.cadtutor.net/forum/topic/1715-sum-of-numbers-in-text-strings/