框选统计圆数量程序改善

726613 · 发表于 2015-6-2 15:39:43

(defun c:S88 (/)
  (setq st (car (entsel)))
  (if (/= st nil)
(progn (setq a1 (entget st)
   a2 (cdr (assoc 40 a1))
               a3 (cdr (assoc 8 a1))
               a4 (ssget "x" (list (cons 8 a3)(cons 40 a2)))
         a5 (sslength a4)
   a2 (* a2 2)
   a2 (rtos a2)
   a5 (itoa a5)
   )
  (alert  (strcat "\n直径【"a2"】共计:【"a5"】个"))
))
  (princ)
)

以上程序只能单选统计圆的个数，如何修改才能实现框选各种圆对象并统计各种圆的个数，请高手指点迷津谢谢

2496653555 · 发表于 2020-11-28 14:43:11

;;
(defun c:YGS (/ AS D DD DNS FS GET GV K KS LEN NN S ST)
  (princ "\n功能 [统计圆直径数量弹窗]")
  (setq gv (getvar "dimzin"))
  (setvar 'dimzin 8)
  (if (setq get (ssget '((0 . "CIRCLE"))))
(progn
   (setq Len (sslength get) k 1)
   (repeat Len
  (setq nn (ssname get (setq Len (1- Len)))
      as (cdr (assoc 40 (entget nn)))
  as (atof (rtos as 2 2))
  )
  (if (null (setq dd (assoc as Dns)))
(setq Dns (cons (list as k) Dns))
(setq Dns (subst (list as (1+ (cadr dd))) (assoc as Dns) Dns))
  )
   )
   (foreach x Dns
  (setq d (car x)
      s (cadr x)
      st (strcat "直径"
   (rtos (* d 2) 2 2)
   ",数量"
   (rtos s 2 2)
   "\n"
   )
      ks (cons (list st) ks)
  )
   )
   (setq fs (apply 'strcat (mapcar 'car ks)))
   ;(alert fs)
(setq po (getpoint "input point----:"))
(command "text" po "2" "" FS"")
;(setq wz1 (entlast))
;(command "DDEDIT" wz1 "" "")
)
  )
  (setvar 'dimzin gv)
  (princ)
);

琴剑江山_10184 · 发表于 2015-6-2 17:17:02

本帖最后由琴剑江山_10184 于 2015-6-3 14:01 编辑

(defun c:tt (/ AS D DD DNS FS GET GV K KS LEN NN S ST)
(princ "\n功能 [统计圆直径数量弹窗]")
(setq gv (getvar "dimzin"))
(setvar 'dimzin 8)
(if (setq get (ssget '((0 . "CIRCLE"))))
(progn
(setq Len (sslength get) k 1)
(repeat Len
(setq nn (ssname get (setq Len (1- Len)))
as (cdr (assoc 40 (entget nn)))
as (atof (rtos as 2 2))
)
(if (null (setq dd (assoc as Dns)))
(setq Dns (cons (list as k) Dns))
(setq Dns (subst (list as (1+ (cadr dd))) (assoc as Dns) Dns))
)
)
(foreach x Dns
(setq d (car x)
s (cadr x)
st (strcat "直径"
(rtos (* d 2) 2 2)
",数量"
(rtos s 2 2)
"\n"
)
ks (cons (list st) ks)
)
)
(setq fs (apply 'strcat (mapcar 'car ks)))
(alert fs)
)
)
(setvar 'dimzin gv)
(princ)
)

(defun c:tt (/ AS D DD DNS FS GET GV K KS LEN NN S ST) 
  (princ "\n功能 [统计圆直径数量弹窗]") 
  (setq gv (getvar "dimzin")) 
  (setvar 'dimzin 8) 
  (if (setq get (ssget '((0 . "CIRCLE")))) 
    (progn 
      (setq Len (sslength get) k 1) 
      (repeat Len 
  (setq nn (ssname get (setq Len (1- Len))) 
        as (cdr (assoc 40 (entget nn))) 
  as (atof (rtos as 2 2)) 
  ) 
  (if (null (setq dd (assoc as Dns))) 
    (setq Dns (cons (list as k) Dns)) 
    (setq Dns (subst (list as (1+ (cadr dd))) (assoc as Dns) Dns)) 
  )       
      ) 
      (foreach x Dns 
  (setq d   (car x) 
        s   (cadr x) 
        st (strcat "直径" 
       (rtos (* d 2) 2 2) 
       ",数量" 
       (rtos s 2 2) 
       "\n" 
     ) 
        ks (cons (list st) ks) 
  ) 
      ) 
      (setq fs (apply 'strcat (mapcar 'car ks))) 
      (alert fs) 
    ) 
  ) 
  (setvar 'dimzin gv) 
  (princ) 
)

726613 · 发表于 2015-6-2 18:49:46

琴剑江山_10184 发表于 2015-6-2 17:17

谢谢您的修改

726613 · 发表于 2015-6-3 08:21:04

琴剑江山_10184 发表于 2015-6-2 17:17

通过测试文档结果显示为如上图，显示的是没有汇总。

琴剑江山_10184 · 发表于 2015-6-3 14:01:30

726613 发表于 2015-6-3 08:21
通过测试文档结果显示为如上图，显示的是没有汇总。

小数点的问题，上面代码已更新

SHOUXI · 发表于 2015-6-18 16:47:43

与燕秀有得一比!

甜兮兮 · 发表于 2017-7-28 22:58:43

谢谢各位，辛苦了

e54wsj · 发表于 2017-8-21 21:58:55

若可以把得到之信息轉出，或可讀取就更完美了....謝謝

lg328084985 · 发表于 2018-11-26 16:56:22

谢谢分享。

sdls · 发表于 2019-4-14 20:30:23

谢谢分享！！！

账号		自动登录	找回密码
密码			注册

[已解答] 框选统计圆数量程序改善

相关帖子

点评

本帖子中包含更多资源

本帖子中包含更多资源