Question

求大神修改autolsp程序

希望该程序，在全选时m值减少1，其他不变
;;;;块统计
(defun c:ktj ()
(setq st t)
(while st
(while (not (setq st (entsel "\n选择需要统计的块:"))))
(if (= (cdr (assoc '0 (entget (car st)))) "INSERT")
(progn
(setq blockname (cdr (assoc '2 (entget (car st)))))
(setq st nil)
)
(princ "\n未选择到块!")
)
)

(princ (strcat "\n选择块" blockname "<全选:"))
(setq ss (ssget))
(if (= ss nil) (setq ss (ssget "x")))
(setq n 0 m 0)
(while (and ss (< n (sslength ss)))
(setq ssn (ssname ss n))
(if (= (cdr (assoc '0 (entget ssn))) "INSERT")
(progn
(setq blockname1 (cdr (assoc '2 (entget ssn))))
(if (= blockname blockname1)
(setq m (+ m 1))
)
)
)
(setq n (+ n 1))
)
(alert (strcat "(不含图例)" blockname ":" (rtos (- m 1) 2 0) "个"))
(setq pt (getpoint "\n给定输出的点位<不输出>:"))
(if pt
(command "text" pt (getvar "textsize") "0" (strcat blockname " " (rtos (- m 1) 2 0) "个"))
)
)

Answer 1

修改m的初始值
(setq n 0 m 0)这句话，修改为:(setq n 0 m -1)