设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4342|回复: 24

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

[复制链接]

签到天数: 416 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-7-2 19:04:45 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Pickset:TableSort
调用格式: (XD::Pickset:TableSort ss row basePt x-oper y-oper)
参数说明: ss ---- 选择集
row --- 排序方式,0 按行 1 按列
basePt- 实体的基点(包围盒4个角点, 0- 左下 1-右下 2-右上 3-左上)
x-oper- 行方向,'< 以SS整体包围盒的0/1连线做基线(小号在下),'> 以2/3连线做基线(小号在上)
y-oper- 列方向,'< 以SS整体包围盒的0/3连线做基线(小号在左),'> 以1/2连线做基线(小号在右)
返回值:
函数简介: 基于行、列的(支持UCS)的实体任意排序函数
函数来源: 原创
函数作者: Lispboy
适用版本: XDRX API 
最后更新时间: 2013-07-02
备注: -
演示图片: -

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

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



QQ截图20130702173451.jpg
QQ截图20130702173635.jpg


QQ截图20130702173727.jpg

QQ截图20130702174620.jpg

QQ截图20130702174706.jpg

QQ截图20130702174804.jpg

QQ截图20130702174900.jpg



评分

参与人数 1威望 +1 D豆 +5 贡献 +1 收起 理由
牢固 + 1 + 5 + 1 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 416 天

连续签到: 1 天

[LV.9]以坛为家II

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-7-2 19:07:03 | 显示全部楼层
本帖最后由 Lispboy 于 2013-7-2 19:08 编辑

xd_tablesort.gif


测试工具

  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (if (and
  4.         (setq ss (ssget))
  5.         (setq row (getint "\n行或列:"))
  6.         (setq basept (getint "\n基点:"))
  7.         (setq xoper (getint "\nX方式"))
  8.         (setq yoper (getint "\nY方式:"))

  9.       )
  10.     (progn
  11.       (if (= xoper 0)
  12.         (setq xoper '<)
  13.         (setq xoper '>)
  14.       )
  15.       (if (= yoper 0)
  16.         (setq yoper '<)
  17.         (setq yoper '>)
  18.       )
  19.       (setq a (XD::Pickset:TableSort ss row basept xoper yoper))
  20.       (setq i 0)
  21.       (mapcar
  22.         '(lambda (x)

  23.            (mapcar
  24.              '(lambda (y)
  25.                 (setq ptl (xd::entity:box y))
  26.                 (setq pj (xdrx_midp (car ptl) (caddr ptl)))
  27.                 (command "text" pj "35" "" (itoa (setq i (1+ i))))
  28.               )
  29.              x
  30.            )
  31.          )
  32.         a
  33.       )
  34.     )
  35.   )
  36.   (xdrx_end)
  37.   (princ)
  38. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 20 天

连续签到: 13 天

[LV.4]偶尔看看III

发表于 2013-7-3 04:58:42 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 356 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 185个

财富等级: 日进斗金

发表于 2013-7-3 09:02:00 | 显示全部楼层
看不到隐藏的,遗憾

点评

多参与,很快就看到源码了。 函数使用可以下载 晓东通用LISP函数库0703版本,都在里面了。  详情 回复 发表于 2013-7-3 10:22
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 11 天

连续签到: 1 天

[LV.3]偶尔看看II

发表于 2013-7-3 09:14:35 | 显示全部楼层
:funk: 好牛
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 1192 天

连续签到: 51 天

[LV.10]以坛为家III

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-7-3 10:22:42 | 显示全部楼层
gdslqs 发表于 2013-7-3 09:02
看不到隐藏的,遗憾

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

函数使用可以下载 晓东通用LISP函数库0703版本,都在里面了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 330 天

连续签到: 1 天

[LV.8]以坛为家I

发表于 2013-7-7 15:09:34 | 显示全部楼层
积分设置高了点!~~还不能浏览!~~:L
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 2013 天

连续签到: 192 天

[LV.Master]伴坛终老I

已领礼包: 5582个

财富等级: 富甲天下

发表于 2013-8-7 10:01:16 | 显示全部楼层
XD::pnt:dist2Line的定义没找到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 253 天

连续签到: 1 天

[LV.8]以坛为家I

发表于 2015-1-8 12:31:32 | 显示全部楼层
想加个前缀,唉~~可惜代码还是没怎么看懂,最近脑袋非常混乱……
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 29 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2015-2-15 01:43:22 | 显示全部楼层
本算法用到的
:funk::funk:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 116 天

连续签到: 1 天

[LV.6]常住居民II

发表于 2015-4-25 01:22:48 | 显示全部楼层
多参与 多学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 68 天

连续签到: 1 天

[LV.6]常住居民II

已领礼包: 12个

财富等级: 恭喜发财

发表于 2015-4-29 09:26:44 | 显示全部楼层
多来学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 116 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 202个

财富等级: 日进斗金

发表于 2015-5-16 11:55:12 | 显示全部楼层
好程序啊,先标记下。积分够了,再回来下载!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 221 天

连续签到: 1 天

[LV.7]常住居民III

发表于 2015-5-16 13:06:40 来自手机 | 显示全部楼层
需要分值太高
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 116 天

连续签到: 2 天

[LV.6]常住居民II

已领礼包: 202个

财富等级: 日进斗金

发表于 2015-5-16 22:06:08 | 显示全部楼层
是啊。分值太高了,还得100分才行。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-12-12 10:31 , Processed in 0.141718 second(s), 68 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表