[求助]为什么我用选择集删除不掉图元求高手给我改改

piao1887

      (setq ss (ssget "X" '((8 . "JSPOINT"))))
      (setq num (sslength ss))
      (while (< n num)
        (setq ent (ssname ss n))
        (entdel ent)
        (setq n (+ n 1))
      )

淮上

1.变量n未赋初值

2.(setq num (1- (sslength ss)));num应减1

3.不循环方法：

  1）(command "_.erase" ss "")

  2) 用vla-get-ActiveSelectionSet + vla-delete

ZZXXQQ

变量n未赋初值。

piao1887

哦  谢谢 那请问一下删除选择集里的所有图元 是否有函数不用循环 直接把选择集中的所有图元全部删除

cocoorange

淮上 发表于 2009-8-2 08:58
1.变量n未赋初值2.(setq num (1- (sslength ss)));num应减13.不循环方法：&nbsp; 1）(command "_.erase" ss ...

感谢分享，你的方法非常好用