选择非同心圆、弧

/db_自贡黄明儒_ · 发表于 2016-7-18 14:56:16

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

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

×

本帖最后由 /db_自贡黄明儒_ 于 2016-7-18 15:00 编辑

;;选择非同心圆、弧
(defun W1 (ss fuzz / E I L L1 L2 P X)
  (repeat (setq i (sslength SS))
(setq e (ssname ss (setq i (1- i))))
(setq P (cdr (assoc 10 (entget e))))
(setq L (cons (cons e p) L))
  )
  (while (setq L1 (car L)
            L  (cdr L)
      )
(setq L2 (VL-REMOVE-IF-NOT '(lambda (x) (equal (cdr L1) (cdr x) fuzz)) L))
(cond (L2
         (ssdel (car L1) ss))
         (mapcar '(lambda (x) (ssdel (car x) ss)) L2)
         (foreach x L2 (setq L (vl-remove x L)))
      )
)
  )
  ss
)
;;测试
(defun C:w1 (/ ss)
  (if (setq ss (ssget '((0 . "CIRCLE,arc"))))
(SSLENGTH (w1 ss 0.01))
  )
)

st788796 · 发表于 2016-7-18 16:47:12

((ptcenter1 r1 e1) (ptcenter2 r2 e2) ...)
(xd::list:groupbyindex lst 1.0)
...

xvjiex · 发表于 2021-9-6 00:06:16

感谢楼主分享选择非同心圆、弧

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

[每日一码] 选择非同心圆、弧

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