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

XDSoft

1. (defun XD::SS:Ents (ss / ents i ll)
   
2.   (if (eq 'PICKSET (type ss))
   
3.     (progn
   
4.       (setq ll (sslength ss)
   
5.             i -1
   
6.       )
   
7.       (repeat ll
   
8.         (setq ents (cons (ssname ss (setq i (1+ i))) ents))
   
9.       )
   
10.     )
    
11.   )
    
12.   ents
    
13. )
    

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

taner

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

XDSoft

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

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

炫翔

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

Love-Lisp

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

1. (defun XD::SS:Ents (ss / ents i)
   
2.   (if (eq 'PICKSET (type ss))
   
3.     (repeat (setq i (sslength ss))
   
4.       (setq ents (cons (ssname ss (setq i (1- i))) ents))
   
5.       )
   
6.     )
   
7.   )

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

Lispboy

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

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

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

牢固

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

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

q3_2006

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

清风明月10

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

958620832

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

958620832

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

菜菜学ODCL

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

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

958620832

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

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

菜菜学ODCL

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

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

958620832

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

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