怎么样获得一排孔最两边两个孔的坐标

xiayuxue213 · 发表于 2017-12-31 18:04:21

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

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

×

想获得最左边和最右边，最上最下两个圆的坐标，应该怎么样搞啊？
先谢谢了。

newer · 发表于 2017-12-31 18:57:48

去通用函数库，去找 xd::pickset:tablesort 函数

xyp1964 · 发表于 2017-12-31 19:32:53

;; 左右排序，最左最右会最上最下实体
(defun c:tt ()
(princ "\n选择圆实体: ")
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setq lst (xyp-Sort-Plist (xyp-Sort ss "5" "Y-max") 1)
lst (mapcar 'cdr lst)
ss1 (ssadd)
ss1 (ssadd (car lst) ss1)
ss1 (ssadd (last lst) ss1)
)
(sssetfirst nil ss1)
)
)
(princ)
)

xyp1964 · 发表于 2017-12-31 19:35:49

;; 左右排序，最左最右实体;; tt(左右上下圆选择)
(defun c:tt ()
(princ "\n选择圆实体: ")
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setq lst (xyp-Sort-Plist (xyp-Sort ss "5" "Y-max") 1)
lst (mapcar 'cdr lst)
ss1 (ssadd)
ss1 (ssadd (car lst) ss1)
ss1 (ssadd (last lst) ss1)
)
(sssetfirst nil ss1)
)
)
(princ)
)

xiayuxue213 · 发表于 2017-12-31 23:14:52

xyp1964 发表于 2017-12-31 19:35

报错运行不了

sicky111 · 发表于 2018-1-1 00:04:01

要搭载院长工具箱。

qqqincccken · 发表于 2018-1-1 00:22:57

這麽好的創意一起求求

csharp · 发表于 2018-1-1 16:29:27

本帖最后由 csharp 于 2018-1-1 16:30 编辑

qqqincccken 发表于 2018-1-1 00:22

就是一 vl-sort 函数, 用特征点和实体构造表（其它实体也一样，确定特征点即可）

(defun sortcircle (ss / sl i e el lst)
(if (and (= (type ss) 'PICKSET)
(setq sl (sslength ss))
(> sl 0)
)
(progn
(setq i 0)
(while (< i sl)
(setq e (ssname ss i)
el (entget e)
lst (cons (list (cdr (assoc 10 el)) e) lst)
i (1+ i)
)
)
(setq
lst (vl-sort lst
(function (lambda (a b)
(if (equal (caar a) (caar b) 1e-2)
(< (cadar a) (cadar b))
(< (caar a) (caar b))
)
)
)
)
)
(list (last (car lst)) (last (last lst)))
)
)
)
(defun c:tt (/ ss l s)
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setq l (sortcircle ss))
(setq s (ssadd))
(foreach x l (ssadd x s))
(sssetfirst nil s)
)
)
(princ)
)

(defun sortcircle (ss / sl i e el lst) 
  (if (and (= (type ss) 'PICKSET) 
       (setq sl (sslength ss)) 
       (> sl 0) 
      ) 
    (progn 
      (setq i 0) 
      (while (
    (setq e      (ssname ss i) 
          el  (entget e) 
          lst (cons (list (cdr (assoc 10 el)) e) lst) 
          i      (1+ i) 
    ) 
      ) 
      (setq 
    lst (vl-sort lst 
             (function (lambda (a b) 
                 (if (equal (caar a) (caar b) 1e-2) 
                   (< (cadar a) (cadar b)) 
                   (< (caar a) (caar b)) 
                 ) 
                   ) 
             ) 
        ) 
      ) 
      (list (last (car lst)) (last (last lst))) 
    ) 
  ) 
) 
(defun c:tt (/ ss l s) 
  (if (setq ss (ssget '((0 . "circle")))) 
    (progn 
      (setq l (sortcircle ss)) 
      (setq s (ssadd)) 
      (foreach x l (ssadd x s)) 
      (sssetfirst nil s) 
    ) 
  ) 
  (princ) 
)

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

[求助] 怎么样获得一排孔最两边两个孔的坐标

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