hatch、云线之类的图元隐藏

3stone

如何把hatch、revcloud之类的实体添加(60 . 1)，让其不可见。

3stone

这个有什么问题，怎么实现不了。。。

(defun c:ddd (/ ss ssn n)
  (princ "\n请选择需要隐藏的对象:")
  (setq ss (ssget))
  (setq n 0)
  (while (< n (sslength ss))
    (setq ssn (ssname ss n))
    (setq ssn (entget ssn))
    (setq ssn (append ssn '((60 . 1)))) ;
    (setq ssn (cons '(60 . 1) ssn))
    (entmod ssn)
    (setq n (1+ n))
  )
  (princ)
)