API应用删除完全重合LINE

st788796 · 发表于 2014-2-25 16:30:13

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

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

×

仅保留最长的一根

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "line"))))
(progn
(setq lst (mapcar '(lambda (x)
(list (cadr (xdrx_curve_getpoint x)) ;_Middle Point
x
)
)
(xdrx_pickset->ents ss)
)
lst (XD::List:GroupByIndex lst 1e-3)
)
(mapcar
'(lambda (x / lnlst)
(setq
lnlst (vl-sort x
'(lambda (e1 e2)
(> (xdrx_getpropertyvalue e1 "Length")
(xdrx_getpropertyvalue e2 "Length")
)
)
)
); Length
(mapcar '(lambda (a)
(if (> (length a) 1)
(mapcar 'xdrx_entity_delete (cdr a));_delete short
)
)
lnlst
)
)
(mapcar 'cdr lnlst)
)
)
(princ)
)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "line")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (list (cadr (xdrx_curve_getpoint x)) ;_Middle Point 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (XD::List:GroupByIndex lst 1e-3) 
      ) 
      (mapcar 
        '(lambda (x / lnlst) 
           (setq 
             lnlst (vl-sort x 
                            '(lambda (e1 e2) 
                               (> (xdrx_getpropertyvalue e1 "Length") 
                                  (xdrx_getpropertyvalue e2 "Length") 
                               ) 
                             ) 
                   ) 
           ); Length 
           (mapcar '(lambda (a) 
                      (if (> (length a) 1) 
                        (mapcar 'xdrx_entity_delete (cdr a));_delete short 
                      ) 
                    ) 
                   lnlst 
           ) 
         ) 
        (mapcar 'cdr lnlst) 
      ) 
    ) 
    (princ) 
  ) 
)

Lisphk · 发表于 2014-2-25 16:44:00

支持批量选择分别处理吗？

st788796 · 发表于 2014-2-25 16:49:13

Lisphk 发表于 2014-2-25 16:44
支持批量选择分别处理吗？

随便写的, 用于 Line 中点重合情况

weehuwei · 发表于 2014-5-21 10:59:41

都很牛的啊，我也想试试编个工具！

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

[教学] API应用删除完全重合LINE

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

浏览过的版块

[教学] API应用 删除完全重合LINE

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

浏览过的版块

[教学] API应用删除完全重合LINE