框选统计圆数量程序改善

lhyvn · 发表于 2019-6-13 17:11:56

太好了，大侠啊

hn10183051 · 发表于 2019-8-19 13:45:45

改为插入CAD这么写

hn10183051 · 发表于 2019-8-31 15:58:16

怎么以表格方式统计？大师们

500w008 · 发表于 2019-9-5 02:12:13

提示: 作者被禁止或删除内容自动屏蔽

hn10183051 · 发表于 2019-9-5 11:56:43

应该好了~~~

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)
);

天宇飞翔12 · 发表于 2020-11-29 12:28:46

能不能扩展到多段线的圆

xyp1964 · 发表于 2020-11-30 18:04:16

本帖最后由 xyp1964 于 2020-11-30 18:09 编辑

;; tt(框选统计圆数量)
(defun c:tt () (if (and (setq ss (ssget '((0 . "CIRCLE")))i -1)
(setq p0 (getpoint "\n基点<退出>: "))
)
(setq lst (xyp-Ss2List ss)
lst (mapcar '(lambda (x) (xyp-DXF 40 x)) lst)
lst (xyp-List-Count lst)
aa (xyp-TableAuto p0 lst '("序号" "圆半径" "数量"))
)
)
(princ)
)

天宇飞翔12 · 发表于 2020-12-2 08:20:52

能不能扩展到更改为多段线的圆

迷失1786 · 发表于 2023-7-1 20:57:50

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

大哥，不要弹窗，写进CAD里面要怎么改？

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

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

本帖子中包含更多资源

500w008 500w008 当前离线积分 6432 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2019-9-5 02:12:13 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡