Invisible to visible help needed

[rick]

OK, I know I've seen someplace in the docs how to make an entity invisible. Can't remember where. Now I've got a drawing with a Paper Space tab which contains 13 Vports, but they have their visibility/invisibility turned to invisible. If I List them, they are tagged as "invisible". This is not a layer on/off or freeze/thaw driven problem. I can select them with the quick select tool, but visibility is not one of the properties which comes up in the Properties dialog or with the Chgprop command. Any (quick, quick, quick!) help appreciated. Rick

[lance.81922]

If you're referring to the DXF 60 group (the way MDT makes stuff invisible, for instance), here's a program to make stuff invisible and a second to make it visible again. It shows how the DXF 60 group turns visibility on or off. Are you sure that, in your drawing(s), you don't just have layers frozen in certain viewports? These programs don't help with that, but then it's easy to un-freeze the layers too.

;;; HIDENTS Program
;;; Makes objects invisible (not just by layer)
;;; Restore visibility with SHOWENTS
(defun c:hidents (/ ss sl ent elist)
  (prompt "\nSelect objects to make INVISIBLE:")
  (setq ss (ssget))
  (if (not (null ss))
	(progn
	  (setq sl (itoa(sslength ss)))
	  (if (not (= (sslength ss) 0))
 (progn
   (setq ent (ssname ss 0))
   (while (> (sslength ss) 0)
	 (ssdel ent ss)
	 (setq elist (entget ent))
	 (if (not (null (assoc 60 elist)))
	   (setq elist (subst (cons 60 1) (assoc 60 elist) elist))
	   (setq elist (append (list (cons 60 1)) elist))
	 )
	 (entmod elist)
	 (setq ent (ssname ss 0))
   )
   (princ (strcat "\n" sl " object(s) made INVISIBLE. Restore with SHOWENTS."))
 )
	  )
	)
  )
  (princ)
)

(defun c:showents (/ ss sl ent elist)
  (setq ss (ssget "X" '((60 . 1))))
  (if (not (null ss))
	(if (not (= (sslength ss) 0))
	  (progn
 (setq ent (ssname ss 0))
 (setq sl (itoa(sslength ss)))
 (while (not (= (sslength ss) 0))
   (ssdel ent ss)
   (setq elist (entget ent))
   (setq elist (subst (cons 60 0) (assoc 60 elist) elist))
   (entmod elist)
   (setq ent (ssname ss 0))
 )
 (princ (strcat "\nVisibility restored to " sl " object(s)."))
	  )
	  (princ "\nNo invisible objects found.")
	)
	(princ "\nNo invisible objects found.")
  )
  (princ)
)

[Mike.Perry]

Hi Rick

Please note I have *moved* this thread from the AutoCAD Tips & Tricks Forum to this one as I feel this particular Forum is a more appropriate place for such a topic.

Thanks, Mike

Forum Moderator

[rick]

You are correct Mike. Incidentally, I am having a lot of trouble, even now, finding this forum. The only reason I wended my way to the Tips and Tricks was I couldn't find this one. I was mislead, my stupidity of course, by the icon and note that "This forum closed for new posts" I found at the bottom of what I thought was this forum. I was probably in the wrong place at the wrong time with the wrong browser but that's my feeble excuse for going to the Tips and Tricks. Best regards, Rick

[rick]

Thanks, Lance. I knew I'd read about the invisibility. Probably when browsing the DXF guide. I appreciate the help. Best regards, Rick

[BrenBren]

You are correct Mike. Incidentally, I am having a lot of trouble, even now, finding this forum. The only reason I wended my way to the Tips and Tricks was I couldn't find this one. I was mislead, my stupidity of course, by the icon and note that "This forum closed for new posts" I found at the bottom of what I thought was this forum. I was probably in the wrong place at the wrong time with the wrong browser but that's my feeble excuse for going to the Tips and Tricks. Best regards, Rick

Just FYI, if you enter the AutoCAD Forums through the AutoCAD Community Page, you should have no problems navigating to the AutoCAD Forum you are looking for (yep, shameless plug for the AutoCAD Community )

[rick]

Brenda - Are you on the left or the right in the picture?

[Mike.Perry]

You are correct Mike. Incidentally, I am having a lot of trouble, even now, finding this forum. The only reason I wended my way to the Tips and Tricks was I couldn't find this one. I was mislead, my stupidity of course, by the icon and note that "This forum closed for new posts" I found at the bottom of what I thought was this forum. I was probably in the wrong place at the wrong time with the wrong browser but that's my feeble excuse for going to the Tips and Tricks. Best regards, Rick

Hi Rick

No worries...

Have you seen this - Most Frequently Asked Questions - short video clip associated with "Most Frequently Asked Question #2".

+

If you would like some general guidance on how to use the forums, please feel free to drop me an E-mail. I will then happily forward you some information that may prove helpful.

Mike

[Michael Coviello]

Is it possible to modify this to work within blocks? Maybe there's a way to say 'pick nested' I'd like to use it on window/door blocks to hide nested muntins or other items.
thanks

If you're referring to the DXF 60 group (the way MDT makes stuff invisible, for instance), here's a program to make stuff invisible and a second to make it visible again. It shows how the DXF 60 group turns visibility on or off. Are you sure that, in your drawing(s), you don't just have layers frozen in certain viewports? These programs don't help with that, but then it's easy to un-freeze the layers too.

;;; HIDENTS Program
;;; Makes objects invisible (not just by layer)
;;; Restore visibility with SHOWENTS
(defun c:hidents (/ ss sl ent elist)
  (prompt "\nSelect objects to make INVISIBLE:")
  (setq ss (ssget))
  (if (not (null ss))
	(progn
	  (setq sl (itoa(sslength ss)))
	  (if (not (= (sslength ss) 0))
 (progn
   (setq ent (ssname ss 0))
   (while (> (sslength ss) 0)
	 (ssdel ent ss)
	 (setq elist (entget ent))
	 (if (not (null (assoc 60 elist)))
	   (setq elist (subst (cons 60 1) (assoc 60 elist) elist))
	   (setq elist (append (list (cons 60 1)) elist))
	 )
	 (entmod elist)
	 (setq ent (ssname ss 0))
   )
   (princ (strcat "\n" sl " object(s) made INVISIBLE. Restore with SHOWENTS."))
 )
	  )
	)
  )
  (princ)
)

(defun c:showents (/ ss sl ent elist)
  (setq ss (ssget "X" '((60 . 1))))
  (if (not (null ss))
	(if (not (= (sslength ss) 0))
	  (progn
 (setq ent (ssname ss 0))
 (setq sl (itoa(sslength ss)))
 (while (not (= (sslength ss) 0))
   (ssdel ent ss)
   (setq elist (entget ent))
   (setq elist (subst (cons 60 0) (assoc 60 elist) elist))
   (entmod elist)
   (setq ent (ssname ss 0))
 )
 (princ (strcat "\nVisibility restored to " sl " object(s)."))
	  )
	  (princ "\nNo invisible objects found.")
	)
	(princ "\nNo invisible objects found.")
  )
  (princ)
)