（XD::Entities:GroupbyProperty）实体按属性值分组

newer · 发表于 2017-3-25 20:06:07

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

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

×

本帖最后由 newer 于 2017-3-25 20:27 编辑

(defun xd::entities:groupbyproperty (ss property tol / ents)
(if (= (type ss) 'pickset)
(setq ss (xdrx_pickset->ents ss))
)
(setq ss (mapcar
'(lambda (x)
(list (cond
((= (strcase property) "ANGLE")
(xd::geom:angleformat
(xdrx_getpropertyvalue x property)
)
)
((= (strcase property) "COLOR")
(xdrx_getpropertyvalue x property t)
)
(t
(xdrx_getpropertyvalue x property)
)
) x
)
)
ss
)
)
(vl-sort (xd::list:groupbyindex ss tol) '(lambda (x y)
(< (car x) (car y))
)
)
)

(defun xd::entities:groupbyproperty (ss property tol / ents) 
  (if (= (type ss) 'pickset) 
    (setq ss (xdrx_pickset->ents ss)) 
  ) 
  (setq ss (mapcar 
             '(lambda (x) 
                (list (cond 
                        ((= (strcase property) "ANGLE") 
                          (xd::geom:angleformat 
                                                (xdrx_getpropertyvalue x property) 
                          ) 
                        ) 
                        ((= (strcase property) "COLOR") 
                          (xdrx_getpropertyvalue x property t) 
                        ) 
                        (t 
                          (xdrx_getpropertyvalue x property) 
                        ) 
                      ) x 
                ) 
              ) 
             ss 
           ) 
  ) 
  (vl-sort (xd::list:groupbyindex ss tol) '(lambda (x y) 
                                             (< (car x) (car y)) 
                                           ) 
  ) 
)

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

[实体] （XD::Entities:GroupbyProperty）实体按属性值分组

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