(XD::Pickset:NumEntities)获得选择集实际的实体数

Lispboy

1. ;|
   
2. 返回选择集实际的实体数
   
3. |;
   
4. (defun XD::Pickset:NumEntities (ss / i)
   
5.   (setq i 0)
   
6.   (xdrx_setsstodb ss 0)
   
7.   (while (xdrx_getentdata 0)
   
8.     (setq i (1+ i))
   
9.   )
   
10.   i
    
11. )
    

;|<br /> 返回选择集实际的实体数<br /> |;<br /> (defun XD::Pickset:NumEntities (ss / i)<br />   (setq i 0)<br />   (xdrx_setsstodb ss 0)<br />   (while (xdrx_getentdata 0)<br />     (setq i (1+ i))<br />   )<br />   i<br /> )<br />

st788796

都进ARX了，length就可取得，单独弄个函数省的循环浪费时间

XDSoft

st788796 发表于 2014-11-29 12:54
都进ARX了，length就可取得，单独弄个函数省的循环浪费时间

这个可以在仅需要知道实际的选择集长度时候有用。
你说的都进ARX了，是什么意思？

st788796

XDSoft 发表于 2014-11-29 17:03
这个可以在仅需要知道实际的选择集长度时候有用。
你说的都进ARX了，是什么意思？

setsstodb后就有length了没必要在外部循环

XDSoft

st788796 发表于 2014-11-29 17:07
setsstodb后就有length了没必要在外部循环

length 在哪？

st788796

XDSoft 发表于 2014-11-29 18:59
length 在哪？

转进入不是数组吗？

st788796

再说几句关于Autolisp关于选择集的一个概念，比如选择一堆 Line 的选择集 ss ，执行 Pedit ，命令结束后用  sslength  ss 长度和  peidt 之前是一样的，但实际上 ss 选择集内的实体ssname后是不可访问的（不存在了），另外一个例子 选择一堆 Pline 执行 pedit ，运行完成后此前构造的选择集长度一样，但是里面还是有实体的，因为保留了第一实体的 ID ，这个 ID 还是在选集内。所以对选集的操作在 Alisp 一般都是对原始构造，如果是其他函数传过来的就需要检测，用Alisp就是

1. (defun Pickset:NumEntities (ss / i j e)
   
2.   (if (eq (type ss) 'PICKSET)
   
3.     (if        (zerop (sslength ss))
   
4.       0
   
5.       (progn
   
6.         (setq i        0
   
7.               j        (sslength ss)
   
8.         )
   
9.         (while (setq e (ssname ss (setq j (1- j))))
   
10.           (if (not (vlax-erased-p e))
    
11.             (setq i (1+ i))
    
12.           )
    
13.         )
    
14.         i
    
15.       )
    
16.     )
    
17.   )
    
18. )
    

(defun Pickset:NumEntities (ss / i j e)<br />   (if (eq (type ss) 'PICKSET)<br />     (if        (zerop (sslength ss))<br />       0<br />       (progn<br />         (setq i        0<br />               j        (sslength ss)<br />         )<br />         (while (setq e (ssname ss (setq j (1- j))))<br />           (if (not (vlax-erased-p e))<br />             (setq i (1+ i))<br />           )<br />         )<br />         i<br />       )<br />     )<br />   )<br /> )<br />

还可以用 entget 判断是否存在

XDSoft

st788796 发表于 2014-11-29 20:56
转进入不是数组吗？

不是，xdrx_setsstodb 只是把选择集放入内部变量了，没有遍历，只有遍历才能知道哪些实体不能OPEN的。

XDSoft

st788796 发表于 2014-11-29 21:41
再说几句关于Autolisp关于选择集的一个概念，比如选择一堆 Line 的选择集 ss ，执行 Pedit ，命令结束后用  ...

其实很多时候都不必要管这些的，因为ACAD的命令都会自动过滤掉已经删除的实体的。只有特殊的地方需要知道操作后还剩下多少有效的实体的时候才遍历次。

st788796

XDSoft 发表于 2014-11-29 23:08
其实很多时候都不必要管这些的，因为ACAD的命令都会自动过滤掉已经删除的实体的。只有特殊的地方需要知道 ...

命令是包装的，选集操作也是转到内部遍历， Alisp 的 ssname 不会判断，只会计数