先按照半径的大小计算对应的数量,完成第一步,下面就是画表格
- (defun c:tt ()
- (setq ss (ssget))
- (command "select" ss "")
- (setq ssr2 (ssget "p" '((0 . "CIRCLE")(-4 . "=")(40 . 2))))
- (command "select" ss "")
- (setq ssr27 (ssget "p" '((0 . "CIRCLE")(-4 . "=")(40 . 2.7))))
- (command "select" ss "")
- (setq ssr165 (ssget "p" '((0 . "CIRCLE")(-4 . "=")(40 . 1.65))))
- (setq nubr2 (sslength ssr2))
- (setq nubr27 (sslength ssr27))
- (setq nubr165 (sslength ssr165))
- (princ "\n")
- (princ nubr2)
- (princ "个")
- (princ "\n")
- (princ nubr27)
- (princ "个")
- (princ "\n")
- (princ nubr165)
- (princ "个")
- (princ)
- )
|