;|
Dimensions Sum #AutoCAD #CADTHAI
- Selected Dimensions
- Enter and pick to text sum.
|;
(defun
c:sumdim (/ sum ss n dim mea ddata prec)
(setq old_cmdecho (getvar "cmdecho"))
(setvar "CMDECHO" 0)
(setq sum 0.0)
(prompt "\nAdd values of
Dimensions")
(if (setq ss (ssget '((0 .
"DIMENSION"))))
(progn
(repeat (setq n (sslength ss))
(setq dim (ssname ss
(setq n (1- n))))
(setq mea (cdr (assoc 42
(setq ddata (entget dim)))))
(setq prec (getvar
"DIMDEC")
sum (+ sum mea)
)
)
(setq p1 (getpoint
"\nPick point to Text Sum. :"))
(command "text"
"j" "mc" p1 (getvar "textsize") "0"
(rtos sum (getvar 'lunits) prec))
(prompt(strcat "\nSum of
distances = " (rtos sum (getvar 'lunits) prec)))
)
(prompt "\nNo Dimensions
selected.")
)
(setvar
"CMDECHO" old_cmdecho)
(princ)
)
