Hideobjects

[Anonymous]

Is there a simple way to hide objects similar to the AutoCAD 2011 hideobjects command?  I have several ways I can use that in a LISP.

Thanks

[Anonymous]

You could use something like this:

(defun c:hideobj ( / sset)
  (vl-load-com)
  (if (setq sset (ssget))
    (foreach item
      (mapcar
        'vlax-ename->vla-object
        (vl-remove-if
          'listp
          (mapcar 'cadr (ssnamex sset))
        )
      )
      (vla-put-visible item :vlax-false)
    )
    (prompt "\nNothing selected.")
  )
  (princ)
)