（XD::Entity:GetMaxGroup）获取实体所有所在的组里面面积最大的那个组

newer · 发表于 2014-12-19 09:58:27

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

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

×

;|
获取实体所有所在的组里面面积最大的那个组
参数： e --- 实体名
返回值：表
命令: (XD::ENTITY:GETMAXGROUP e)
("cd" <图元名: -167bd0>)
|;
(defun XD::Entity:GetMaxGroup (e / box gs x)
(if (setq gs (XD::Entity:GroupName e t))
(progn
(cadar (XD::List:Sort (mapcar
'(lambda (x)
(setq box (XD::Group:BoxAtUcs
(cadr x) t
)
)
(list (abs (apply
'xdrx_points_area
box
)
) x
)
)
gs
) '>
)
)
)
)
)

;| 
获取实体所有所在的组里面面积最大的那个组 
参数： e --- 实体名 
返回值： 表 
命令: (XD::ENTITY:GETMAXGROUP e) 
("cd" <图元名: -167bd0>) 
|; 
(defun XD::Entity:GetMaxGroup (e / box gs x) 
  (if (setq gs (XD::Entity:GroupName e t)) 
    (progn 
      (cadar (XD::List:Sort (mapcar 
                              '(lambda (x) 
                                 (setq box (XD::Group:BoxAtUcs 
                                                               (cadr x) t 
                                           ) 
                                 ) 
                                 (list (abs (apply 
                                              'xdrx_points_area 
                                              box 
                                            ) 
                                       ) x 
                                 ) 
                               ) 
                              gs 
                            ) '> 
             ) 
      ) 
    ) 
  ) 
)

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

[实体] （XD::Entity:GetMaxGroup）获取实体所有所在的组里面面积最大的那个组

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