如何快速获取选择集图层列表

timmy521 · 发表于 2024-7-24 20:56:12

现在做法是，获取选择集，然后判断选择集中每一个对象的图层，形成图层名称列表，然后再去掉重复图层，最终形成选择集图层列表。选择集中其实有好多对象全是同一层的，如果每个都判断一下，就太慢了。各位大神有没有好方法，一下能获取选择集对象的图层列表？

自贡黄明儒 · 发表于 2024-7-25 09:03:48

这是另一办法，也许行

(defun LayerList1 (/ L)
(while (setq d (tblnext "layer" (null d)))
(setq L (cons (cdr (assoc 2 d)) L))
)
)
(defun wmg-ssgetp1 (ss filter)
(vl-cmdf "_.select" ss "")
(ssget "p" filter)
)
(defun C:t1 (/ L SS)
(setq ss (ssget))
(foreach layer (LayerList1)
(if (wmg-ssgetp1 ss (list (cons 8 layer)))
(setq L (cons layer L))
)
)
L
)

liuhe · 发表于 2024-7-25 08:25:22

本帖最后由 liuhe 于 2024-7-25 08:39 编辑

你应该直接上代码和图纸，而不是简单描述，大概率是你写法问题，即使你思路是正确的

(DEFUN C:FOO (/ SS I LST E LAY )
  (SETQ SS (SSGET "X"))
  (IF (NOT SS)
(VL-EXIT-WITH-VALUE 0)
  )
  (SETQ       I 0
      LST NIL
  )
  (REPEAT (SSLENGTH SS)
(SETQ E (SSNAME SS I)
      LAY (CDR (ASSOC 8 (ENTGET E)))
      LST (VL-REMOVE LAY LST)
      LST (CONS LAY LST)
      I (1+ i)
)
  )
  (PRINC )
)

5W个图形仍然很快，176w个图形感觉会有点卡

你有种再说一遍 · 发表于 2024-7-24 21:06:16

本帖最后由你有种再说一遍于 2024-7-25 02:07 编辑

并不是每个都判断一下很慢,而是判断的方式问题,
写lisp的人没有注意到,
很多时候写了双for去比较数据,或者调用remove-if,
你怎么知道这个remove-if是双for还是排序后剔除,还是词典呢?它的时间复杂度...

然后这个循环还不能中断,
在其他语言则不是,其他语言的优点:
1,数组array能够通过index,这是CPU寻址速度,嘎嘎快.
2,循环可以break.
3,数据结构可以O(1)速度.
4,处理图元不是每个都启动事务,能够更快的进行数据路由.

消重不应该是全部加入集合再剔除,而是加入时候剔除,
例如使用数据结构:词典或者红黑树就天然可以剔除重复项,
lisp针对第三点,可以调用vb词典:
和尚777这里就用了dictionary词典来减少时间复杂度
http://bbs.mjtd.com/thread-186202-1-1.html

词典的原理就是利用数组寻址速度,
1,计算字符串的hashcode,
2,hashcode取模,获取数组索引下标:
int index=array.length%hashcode
3,key是array[index]获取,因为hash冲突,所以索引相同不一定内容相同,接着内部会通过equals比较.
4,如果相同的,就取出value内容,你的value是计数器int,然后++.

这也就是,lisp的终点是调用vb...vb的终点的换到c#或c++

kozmosovia · 发表于 2024-7-24 22:07:55

图元数量非常大的话，可以先弄到dbx中再遍历读取图层。

timmy521 · 发表于 2024-7-24 22:32:42

没有学过这个东西

kozmosovia · 发表于 2024-7-24 22:37:12

timmy521 发表于 2024-7-24 22:32
没有学过这个东西

找资料学一下，把图元vla-CopyObjects进dbx，然后读取DBX的图层表获取层名就行了。不需要遍历图元。顶多不确定0层是否有被包含

shirker · 发表于 2024-7-25 07:40:27

学习了，支持一下

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

[提问] 如何快速获取选择集图层列表