用了一个块统计LSP
(defun c:5()
;;;defun err
(defun err (msg)
(setq *error* olderr)
(princ "操作错误!请先选择要统计的物体!")
(princ)
) ;for defun fi-err
(setq olderr *error* *error* err)
(SETQ a0 (CAR (ENTSEL "\n请选择要统计的设备:")))
(setq a0 (cdr(assoc 2 (entget a0))))
(princ "\n请选择要统计的图纸范围:")
(SETQ SS1 (SSGET))
(setq N (sslength ss1)
nsset (ssadd))
(while (> N 0)
(setq temp (ssname SS1 (setq N (1- N))))
(if (and (= (cdr(assoc 0 (entget temp))) "INSERT")(= (cdr(assoc 2 (entget temp))) a0))
(ssadd temp nsset)
)
)
(setq N (sslength nsset)
ss1 nsset
unctr 0
)
(SETQ N (SSLENGTH NSSET))
(setq *error* olderr)
(IF (= N 0)(prompt "操作错误!请选择图块!")
(progn
(princ "该范围内共有")(princ " ")(princ n)(princ "个")(princ a0)
(PRINC "。已统计完。 ")(princ)
))
)
(PRINC)
如上
我想要在统计出量的同时 选择这些选出的块要什么做????
求大神!!!
(defun c:5()
;;;defun err
(defun err (msg)
(setq *error* olderr)
(princ "操作错误!请先选择要统计的物体!")
(princ)
) ;for defun fi-err
(setq olderr *error* *error* err)
(SETQ a0 (CAR (ENTSEL "\n请选择要统计的设备:")))
(setq a0 (cdr(assoc 2 (entget a0))))
(princ "\n请选择要统计的图纸范围:")
(SETQ SS1 (SSGET))
(setq N (sslength ss1)
nsset (ssadd))
(while (> N 0)
(setq temp (ssname SS1 (setq N (1- N))))
(if (and (= (cdr(assoc 0 (entget temp))) "INSERT")(= (cdr(assoc 2 (entget temp))) a0))
(ssadd temp nsset)
)
)
(setq N (sslength nsset)
ss1 nsset
unctr 0
)
(SETQ N (SSLENGTH NSSET))
(setq *error* olderr)
(IF (= N 0)(prompt "操作错误!请选择图块!")
(progn
(princ "该范围内共有")(princ " ")(princ n)(princ "个")(princ a0)
(PRINC "。已统计完。 ")(princ)
))
)
(PRINC)
如上
我想要在统计出量的同时 选择这些选出的块要什么做????
求大神!!!