(XD::Pickset:TableSort)基于行、列的（支持UCS)的实体任意排序函数

Lispboy · 发表于 2013-7-2 19:04:45

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

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

×

本帖最后由 newer 于 2020-5-12 19:12 编辑

游客，本帖隐藏的内容需要积分高于 100 才可浏览，您当前积分为 0

Lispboy · 发表于 2013-7-2 19:07:03

本帖最后由 Lispboy 于 2013-7-2 19:08 编辑

测试工具

(defun c:tt ()
(xdrx_begin)
(if (and
(setq ss (ssget))
(setq row (getint "\n行或列:"))
(setq basept (getint "\n基点:"))
(setq xoper (getint "\nX方式"))
(setq yoper (getint "\nY方式:"))
)
(progn
(if (= xoper 0)
(setq xoper '<)
(setq xoper '>)
)
(if (= yoper 0)
(setq yoper '<)
(setq yoper '>)
)
(setq a (XD::Pickset:TableSort ss row basept xoper yoper))
(setq i 0)
(mapcar
'(lambda (x)
(mapcar
'(lambda (y)
(setq ptl (xd::entity:box y))
(setq pj (xdrx_midp (car ptl) (caddr ptl)))
(command "text" pj "35" "" (itoa (setq i (1+ i))))
)
x
)
)
a
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (if (and 
        (setq ss (ssget)) 
        (setq row (getint "\n行或列:")) 
        (setq basept (getint "\n基点:")) 
        (setq xoper (getint "\nX方式")) 
        (setq yoper (getint "\nY方式:")) 
 
      ) 
    (progn 
      (if (= xoper 0) 
        (setq xoper '<) 
        (setq xoper '>) 
      ) 
      (if (= yoper 0) 
        (setq yoper '<) 
        (setq yoper '>) 
      ) 
      (setq a (XD::Pickset:TableSort ss row basept xoper yoper)) 
      (setq i 0) 
      (mapcar 
        '(lambda (x) 
 
           (mapcar 
             '(lambda (y) 
                (setq ptl (xd::entity:box y)) 
                (setq pj (xdrx_midp (car ptl) (caddr ptl))) 
                (command "text" pj "35" "" (itoa (setq i (1+ i)))) 
              ) 
             x 
           ) 
         ) 
        a 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

/mg爱因思考 · 发表于 2013-7-3 04:58:42

提示: 作者被禁止或删除内容自动屏蔽

gdslqs · 发表于 2013-7-3 09:02:00

看不到隐藏的，遗憾

Quinta · 发表于 2013-7-3 09:14:35

:funk: 好牛

newer · 发表于 2013-7-3 10:22:42

gdslqs 发表于 2013-7-3 09:02
看不到隐藏的，遗憾

多参与，很快就看到源码了。

函数使用可以下载晓东通用LISP函数库0703版本，都在里面了。

daidong013 · 发表于 2013-7-7 15:09:34

积分设置高了点！~~还不能浏览！~~:L

liuyj · 发表于 2013-8-7 10:01:16

XD::pnt:dist2Line的定义没找到

freedake · 发表于 2015-1-8 12:31:32

想加个前缀，唉~~可惜代码还是没怎么看懂，最近脑袋非常混乱……

kkt123 · 发表于 2015-2-15 01:43:22

本算法用到的
:funk::funk:

浮世小半生 · 发表于 2015-4-25 01:22:48

{:soso_e179:}多参与多学习

海盗曹 · 发表于 2015-4-29 09:26:44

多来学习一下

vlisp2012 · 发表于 2015-5-16 11:55:12

好程序啊，先标记下。积分够了，再回来下载！

swzlcircle · 发表于 2015-5-16 13:06:40

需要分值太高

vlisp2012 · 发表于 2015-5-16 22:06:08

是啊。分值太高了，还得100分才行。

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

/mg爱因思考 /mg爱因思考当前离线 UID 677051 积分 117 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-6-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2013-7-3 04:58:42 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[选择集] (XD::Pickset:TableSort)基于行、列的（支持UCS)的实体任意排序函数

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

评分

相关帖子

点评