(XD::SS:Ents)获取选择集实体表

XDSoft · 发表于 2013-6-4 23:52:30

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

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

×

(defun XD::SS:Ents (ss / ents i ll)
(if (eq 'PICKSET (type ss))
(progn
(setq ll (sslength ss)
i -1
)
(repeat ll
(setq ents (cons (ssname ss (setq i (1+ i))) ents))
)
)
)
ents
)

taner · 发表于 2013-6-5 00:10:10

要测试啥呀？实在没搞明白！

XDSoft · 发表于 2013-6-5 00:11:10

taner 发表于 2013-6-5 00:10
要测试啥呀？实在没搞明白！

不是具体函数测试，是发布这个函数的界面表单内容，布局在测试。

炫翔 · 发表于 2013-6-5 08:35:03

管理用的(eq 'PICKSET (type ss))
我一般用(= 'PICKSET (type ss))

Love-Lisp · 发表于 2013-6-5 09:02:05

为了保持选择集元素和表元素顺序一致，代码最好这样：

(defun XD::SS:Ents (ss / ents i)
(if (eq 'PICKSET (type ss))
(repeat (setq i (sslength ss))
(setq ents (cons (ssname ss (setq i (1- i))) ents))
)
)
)

Lispboy · 发表于 2013-6-5 10:39:45

Love-Lisp 发表于 2013-6-5 09:02
为了保持选择集元素和表元素顺序一致，代码最好这样：

不知道LISP repeat 后面这个数量最终变成汇编语言时候是什么样，我觉得保险起见，还是不要把 (sslength ss) 放到 repeat 后面，还是用个常量保险。

老大的代码最后加个 reverse 就和你想的一样，顺序一致了。

牢固 · 发表于 2013-6-5 11:05:44

Lispboy 发表于 2013-6-5 10:39
不知道LISP repeat 后面这个数量最终变成汇编语言时候是什么样，我觉得保险起见，还是不要把 (sslength s ...

repeat后面的(sslength ss)只计算一次！不会有影响！若果计算多次，结果就不正确了！

q3_2006 · 发表于 2013-6-17 13:35:17

保持选择集元素和表元素顺序一致是这样的呀！

清风明月10 · 发表于 2013-7-18 21:03:44

谢谢楼主的分享！很有用啊。

958620832 · 发表于 2013-11-24 12:03:05

第二行（if (eq 'PICKSET (type ss)) 改成 (if ss 岂不更简洁？何必搞得那么文绉绉的？还让人一时之间没看懂。编程就得力求简洁，越简洁，越好！

958620832 · 发表于 2013-11-24 12:04:17

第二行（if (eq 'PICKSET (type ss)) 改成 (if ss 岂不更简洁？何必搞得那么文绉绉的？还让人一时之间没看懂。编程就得力求简洁，越简洁，越好！

菜菜学ODCL · 发表于 2013-11-24 12:09:35

958620832 发表于 2013-11-24 12:04
第二行（if (eq 'PICKSET (type ss)) 改成 (if ss 岂不更简洁？何必搞得那么文绉绉的？还让人一时之间没看 ...

如果你这么写，那SS如果不是选择集呢？下面不就出错了。楼主这么写判断了变量的类型，是增加了保险。

958620832 · 发表于 2013-11-24 12:13:07

菜菜学ODCL 发表于 2013-11-24 12:09
如果你这么写，那SS如果不是选择集呢？下面不就出错了。楼主这么写判断了变量的类型，是增加了保险。

怎么会呢？你大概不会在程序中定义ss为选择集的同时，还将ss定义为其他类型吧？根据个人习惯，ss要么是nil，要么就是选择集，最好不要一个变量多种用途，容易搞混，也没必要。

菜菜学ODCL · 发表于 2013-11-24 12:16:20

958620832 发表于 2013-11-24 12:13
怎么会呢？你大概不会在程序中定义ss为选择集的同时，还将ss定义为其他类型吧？根据个人习惯，ss要么是ni ...

这个是函数啊，给别人调用的，可能存在调用的人变量搞错啊，要是自己用的，就熟悉了。我认为可以加上，要不就不加，加 (if ss 是没必要的。

958620832 · 发表于 2013-11-24 13:10:25

菜菜学ODCL 发表于 2013-11-24 12:16
这个是函数啊，给别人调用的，可能存在调用的人变量搞错啊，要是自己用的，就熟悉了。我认为可以加上，要 ...

不是加（if ss），而是改成（if ss)，understand?
楼主都已经在程序之前说明了，ss就是选择集（如附图所示），调用的人变量也会搞错？
每个程序都会有说明的，都有一定的实用范围的。不看说明，当然会搞错，什么变量都可能搞懂，是不是编程者得把各种各样的情况都得考虑了？那程序岂不得做得很长很长？有那个必要么？

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

[选择集] (XD::SS:Ents)获取选择集实体表

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

评分

点评

点评

点评