(XD::Diameter:Circle)按直径分类圆

75215195 · 发表于 2019-9-5 07:29:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Diameter:Circle (s tol / lst e obj lst r rlst plst)
(vl-load-com)
  (setq lst nil rlst nil plst nil)
  (repeat (setq i (sslength s))
(setq e (ssname s (setq i (1- i))))
(setq obj (vlax-ename->vla-object e))
(setq d (vla-get-Diameter obj))
(setq lst (cons (list d e) lst))
)
  (while lst
(setq d (caar lst))
(setq rlst (mapcar 'cadr (vl-remove-if-not '(lambda (x) (equal (car x) d tol)) lst)))
(setq lst (vl-remove-if '(lambda (x) (equal (car x) d tol)) lst))
(setq plst (cons (cons d rlst) plst))
(setq rlst nil)
)
  (vl-sort plst '(lambda (x y) (< (car x) (car y))))
  )

zhystar · 发表于 2019-9-5 08:25:35

谢谢楼主分享

yuren008 · 发表于 2019-9-5 08:58:06

不错的，看看。

yangjian001 · 发表于 2019-9-5 10:24:17

做一个热心并受欢迎的人

wrf610051 · 发表于 2019-9-6 06:19:37

谢谢楼主分享

1210168880 · 发表于 2019-11-2 15:53:41

哥这是什么命令呢

yoyoho · 发表于 2019-11-4 07:59:53

谢谢楼主分享!!!!!!!

yzj63298368 · 发表于 2019-11-5 07:32:09

谢谢楼主分享!

ymcui2005 · 发表于 2019-11-5 08:59:14

谢谢楼主分享

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

[选择集] (XD::Diameter:Circle)按直径分类圆

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。