Lisp cộng các Dim

Tiêu đề: Lisp cộng các Dim Thu Mar 29, 2018 5:49 pm

Cộng các dim (Lệnh tắt: CDS)

Code:: ;;;************CÔòNG DIM*************************
(defun c:CDS(/ ss n i S duyet ent sst nt j St duyett entt Skq)(prompt "\n Choòn caìc Dim câÌn côòng:")(setq ss (ssget '((0 . "DIMENSION"))))(setq n (sslength ss) i 0 S 0 duyet 0)(while (< i n)(setq ent (entget(ssname ss i)))(if (= (cdr(assoc 1 ent)) "")(setq duyet (cdr(assoc 42 ent)))(setq duyet (atof(cdr(assoc 1 ent)))))(setq S (+ S duyet))(setq i (1+ i)))(alert (rtos S 2 0))(princ))(defun c:TDS(/ ss n i S duyet ent sst nt j St duyett entt Skq)(prompt "\nChoòn caìc Dim laÌm sôì biò trýÌ:")(setq ss (ssget '((0 . "DIMENSION"))))(prompt "\n Choòn caìc Dim laÌm sôì trýÌ:")(setq sst (ssget '((0 . "DIMENSION"))))(setq n (sslength ss) i 0 S 0 duyet 0)(setq nt (sslength sst) j 0 St 0 duyett 0)(while (< i n)(setq ent (entget(ssname ss i)))(if (= (cdr(assoc 1 ent)) "")(setq duyet (cdr(assoc 42 ent)))(setq duyet (atof(cdr(assoc 1 ent)))))(setq S (+ S duyet))(setq i (1+ i)))(while (< j nt)(setq entt (entget(ssname sst j)))(if (= (cdr(assoc 1 entt)) "")(setq duyett (cdr(assoc 42 entt)))(setq duyett (atof(cdr(assoc 1 entt)))))(setq St (+ St duyett))(setq j (1+ j)))(setq Skq (- S St))(alert (rtos Skq 2 0))(princ))