[求助]：怎样快速给已画图形分层？

长江平子

我觉得用图元过滤的命令能解决点问题，但没有实例又不好说*-*9 怎么用！

rotring

为什么不在绘图之前就分好层？这样做会节约很多时间啊！
磨刀不误砍柴工！

zhouxj

应该养成好习惯
习惯成自然

dfx1324

9楼楼主说的最清楚,图方并茂双双齐全,偶佩服

mylion

你们都比较先进，用2004，我还是R14,看来很难赶上

lsjjm

参考这个程序:
(defun c:test ( / ss)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ent (entsel "\nSelect object on layer to copy from: "))
  (setq lay (vla-get-layer (vlax-ename->vla-object (car ent))))
  (cond
    ((setq ss (ssget))
      (setq i 0)
      (vla-StartUndoMark doc)
      (repeat (sslength ss)
        (vla-put-layer (vlax-ename->vla-object (ssname ss i)) lay)
        (setq i (1+ i))
      )
      (vla-EndUndoMark adoc))
  )
  (vlax-release-object adoc)
  (princ)
)

HLB_Konan

别怪我啊 把这么老的帖子翻出来 刷子是刚学cad时最感兴趣的操作 也是用的最多的一个 但几年下来 第一次看刷子内的内容 点刷子以后 在选s 对立面的内容进行筛选 这也许是我们对cad很多细节根本就没怎么重视 其二 哈哈长老的演示 我有个问题想问 就是你刷标注 为什么类同的标注也一同变过来了 是可以自动选择类同属性的一次性匹配 还是一个一个点出来 演示时把中间一个一个点的操作去掉了

zzsong

恐怕没希望了。

HLB_Konan

为什么 难道哈哈长老已经不削于光顾本论坛？？还是他本人他忙 n久都不来这里了