[编程交流] 数字总和

;;;add selected numbers.  highlight numbers that cannot convert.
(defun c:add (/ txtss badset total cntr ent elist str nstr)
 (setvar "cmdecho" 0)
 (setq total 0
cntr 0
nstr (list))  
 (princ "\nSelect numbers to add: ")
 (setq txtss (ssget '((0 . "TEXT")) ))
 (while (< cntr (sslength txtss))
   (setq ent (ssname txtss cntr)
  elist (entget ent))
   (setq str (cdr (assoc 1 elist)))
   (if (and (> (strlen str) 3) (wcmatch str "*`,*"))
     (repeat (/ (strlen str) 4)
(setq nstr (cons (substr str (- (strlen str) 2) 3) nstr))
(setq str (substr str 1 (- (strlen str) 4)))
);repeat
     );if
   (if nstr
     (foreach v nstr
(setq str (strcat str v)))
     );if
   (setq total (+ total (atof str)))
   (setq cntr (1+ cntr))
   (setq nstr (list))
   );while
 (princ (strcat "\nTotal: " (rtos total 2 2)))
 (setvar "cmdecho" 0)
 (princ)
 );eof

; ADDN04.LSP - ADDS NUMBER STRINGS AND CONVERTS TO SQUARE FOOT AND ACRES with 4 decimal places
;
(defun C:ADDNO4 ()
 (SETQ CMD (GETVAR "CMDECHO"))
 (SETVAR "CMDECHO" 0)
 (SETQ SS NIL)
 (PRINC "/nSELECT TEXT:")(PRINC)
 (SETQ SS (SSGET))
 (SETQ NO -1)
 (setq TX 0)
 (REPEAT (SSLENGTH SS)
   (SETQ NO (1+ NO))
   (SETQ ENT (ENTGET (SSNAME SS NO)))
   (SETQ OLDL (ASSOC 1 ENT))
   (SETQ TXX (CDR OLDL))
   (SETQ TXX (ATOF TXX))
   (SETQ TX (+ TX TXX))
 )
[color="red"]  (CLUF)
 (SETQ TX (* TX LUF))
 (SETQ MID (GETPOINT "\nSELECT MIDDLE POINT OF TEXT:"))
 (SETQ TXT (RTOS TX 2 4))
 (COMMAND "TEXT" "M" MID "" "0" TXT)
 (PRIN1)
(SETVAR "CMDECHO" CMD)
)[/color]
(DEFUN CLUF ()
 (SETQ LUN (GETVAR "LUNITS"))
 (IF (OR (= LUN 3) (= LUN 4))
     (SETQ LUF 0.00694444)
     (SETQ LUF 1)
 )
)

Your Code Here

Your Code Here

(defun C:STX (/ cpent elist en ip newtxt pt 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
 ;; store the first text entity for using 'em further :
(setq cpent (ssname ss 0))
 ;; 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 in the command line:
 (princ (strcat "\nSumm=" sumtxt))
 (setq pt (getpoint "\nSpecify the new text location: "))
 ;; get the insertion point of stored entity :
 (setq ip (cdr (assoc 10 (entget cpent))))
 ;; copy text entity to the new destination point :
 (command "_copy" cpent "" ip pt)
 ;; get the last created entity :
 (setq newtxt (entlast))
 ;; get entity list of them :
 (setq elist (entget newtxt))
 ;; modify entity list with new text string :
 (entmod (subst (cons 1 sumtxt)(assoc 1 elist) elist))
 ;; update changes :
 (entupd newtxt)
 )
)
(princ)
 )
(princ "\nStart command with STX...")
(princ)