LISP for hiding/showing objects...

[David Bethel]

that's very clever David. i like it.
replace command with vla and will be perfect

Thanks. I don't have access to vl* calls in most of the versions I run so I get to stick with (command....

-David

[lamensterms]

Thanks so much for all your replies guys.

David

That routine does work well on ordinary AutoCAD entitiest (lines, solids, etc)… but im afraid it wont run on ProSteel objects. Im thinking it must have something to do with assigning the XDATA.

ProSteel has a proprietary object type that is uses to contain all necessary data. These are 3D objects, but not ACIS solids.

Thanks for your efforts though.


Thanks a lot to everyone else for the pointers… looks like ill have to do some reading on VLA functions and VLISP.

I shall let you all know how I go.

[David Bethel]

Hmmmmm That's strange. I've used this scenario for 10+ years and never ran across anything that it couldn't handle ( excluding VIEWPORT entities ). Can you post a sample dwg? -David

[lamensterms]

Hi again David,

I have attached a .DWG (2000) containing some ProSteel objects. Though i have noticed that if the program ProSteel is not running - AutoCAD can only recognise these objects as "ACAD_PROXY_ENTITY" - rather than the true ProSteel shape.

Though it should still demonstrate how the routine wont run on these object types.

Thanks again mate.

Sample_ProSteel_Objects.dwg

ps:... i think i may have increased the reliability of my original routine... simply by making sure the UCS is not in 'world' while the routine is running. Still experimenting - its seems that ProSteels show/hide function is not completely stable - hence my routine also being unstable.

[VVA]

How about ASMITOOLS?

;; ================================================== ================== ;;
;; ;;
;; INVIS.LSP - Makes objects temporarily invisible and ;;
;; returns visibility. ;;
;; ;;
;; ================================================== ================== ;;
;; ;;
;; Command(s) to call: INVIS ;;
;; ;;
;; ================================================== ================== ;;
;; ;;
;; THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY ;;
;; MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR ;;
;; PARTS OF IT ABSOLUTELY FREE. ;;
;; ;;
;; THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY ;;
;; DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS ;;
;; FOR A PARTICULAR USE. ;;
;; ;;
;; ================================================== ================== ;;
;; ;;
;; V1.1, 11th Apr 2005, Riga, Latvia ;;
;; © Aleksandr Smirnov (ASMI) ;;
;; For AutoCAD 2000 - 2008 (isn't tested in a next versions) ;;
;; ;;
;; http://www.asmitools.com ;;
;; ================================================== ================== ;;
;

AsmiTools

[lamensterms]

Hi VVA,

I have tried the INVIS LISP - im afraid it offers no greater functionality than ProSteel's existing hide/show command.

INVIS will let me select objects i wish to hide - but it will not let me select which objects to reveal - it will only reveal ALL hidden objects. So you can hide 50% of your model - but then you cannot reveal a small percent of that 50% which is hidden.

If you know what i mean.

Thanks anyway mate.

[VVA]

a few more links
HideShow - hide selected objects from AutoCAD drawing (VLX for AutoCAD)
Easily hide and isolate objects in AutoCAD 2011
Freeze Object(s)
Quick and dirty

(defun c:invis (/ errCount wMode objSet showset actDoc *error*)
  ;; ==================================================================== ;;
  ;;                                                                      ;;
  ;;  INVIS.LSP - Makes objects temporarily invisible and                 ;;
  ;;              visible return of all or some                           ;;
  ;;                                                                      ;;
  ;; ==================================================================== ;;
  ;;                                                                      ;;
  ;;  Command(s) to call: INVIS                                           ;;
  ;;                                                                      ;;
  ;; ==================================================================== ;;
  ;;                                                                      ;;
  ;;  THIS PROGRAM AND PARTS OF IT MAY REPRODUCED BY ANY METHOD ON ANY    ;;
  ;;  MEDIUM FOR ANY REASON. YOU CAN USE OR MODIFY THIS PROGRAM OR        ;;
  ;;  PARTS OF IT ABSOLUTELY FREE.                                        ;;
  ;;                                                                      ;;
  ;;  THIS PROGRAM PROVIDES 'AS IS' WITH ALL FAULTS AND SPECIFICALLY      ;;
  ;;  DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR FITNESS        ;;
  ;;  FOR A PARTICULAR USE.                                               ;;
  ;;                                                                      ;;
  ;; ==================================================================== ;;
  ;;                                                                      ;;
  ;;  V1.1, 11th Apr 2005, Riga, Latvia                                   ;;
  ;;  © Aleksandr Smirnov (ASMI)                                          ;;
  ;;  For AutoCAD 2000 - 2008 (isn't tested in a next versions)           ;;
  ;;                                                                      ;;
  ;;http://www.cadtutor.net/forum/showthread.php?43876-AsmiTools          ;;
  ;; ==================================================================== ;;
  ;;                                                                      ;;
  ;;  V1.2, 02 June 2011, Minsk, Belarus                                  ;;
  ;;  © Vladimir Azarko (VVA)                                             ;;
  ;;  For AutoCAD 2000 - 2011 (isn't tested in a next versions)           ;;
  ;; Add mode "Show some object"                                          ;;
  ;;  V1.3, 04 may 2013, Minsk, Belarus                                   ;;
  ;;  © Vladimir Azarko (VVA)                                             ;;
  ;;  For AutoCAD 2000 - 2011 (isn't tested in a next versions)           ;;
  ;; Add mode "Show selected Only"                                        ;;
  ;;                                                                      ;;
  ;;http://www.cadtutor.net/forum/showthread.php?59655                    ;;
  ;; ==================================================================== ;;
  ;;                                                                      ;;

  (vl-load-com)
  (defun put_Visible_Prop (Object Flag)
    (if
      (vl-catch-all-error-p
	(vl-catch-all-apply
	  'vla-put-visible
	  (list Object Flag)
	)
      )
       (setq errCount (1+ errCount))
    );_ end if
    (princ)
  );_ end of put_Visible_Prop
  (defun Set_to_List (SelSet)
    (mapcar 'vlax-ename->vla-object
	    (vl-remove-if
	      'listp
	      (mapcar 'cadr (ssnamex SelSet))
	    )
    )
  );_ end of Set_to_List
  (defun errMsg	()
    (if	(/= 0 errCount)
      (princ (strcat ", "
		     (itoa errCount)
		     " were on locked layer."
	     )
      )
      "."
    );_ end if
  );_ end of errMsg
  (setq	actDoc	 (vla-get-ActiveDocument
		   (vlax-get-Acad-object)
		 )
	errCount 0
  );_ end setq
  (vla-StartUndoMark actDoc)
  (initget "Visible Invisible Show Only" 1)
  (setq	wMode
	 (getkword
	   "\nMake objects [Visible all/Invisible/Show some invisible objects/show selected Only]: "
	 )
  )
  (cond
    ((and
       (= wMode "Visible")
       (setq objSet (ssget "_X" '((60 . 1))))
     );_ end and
     (setq objSet (Set_to_List objSet))
     (mapcar
       '(lambda (x) (put_Visible_Prop x :vlax-true))
       objSet
     )
     (princ
       (strcat "\n<< "
	       (itoa (- (length objSet) errCount))
	       " now visible"
	       (errMsg)
	       " >>"
       )
     )
    ) ;_ # condition
    ((and
       (= wMode "Show")
       (setq objSet (ssget "_X" '((60 . 1))))
     );_ end and
     (setq objSet (Set_to_List objSet))
     (mapcar
       '(lambda (x) (put_Visible_Prop x :vlax-true))
       objSet
     )
     (princ
       (strcat "\n<< "
	       (itoa (- (length objSet) errCount))
	       " now visible"
	       (errMsg)
	       " >>"
       )
     )
     (princ "\nSelect objects to show")
     (if (setq showset (ssget "_:L"))
       (progn
	 (setq showset (Set_to_List showset))
	 (foreach item showset
	   (setq objSet (vl-remove item objSet))
	 )
	 (mapcar
	   '(lambda (x) (put_Visible_Prop x :vlax-false))
	   objSet
	 )
       )
     )
    ) ;_ # condition
    ((= wMode "Only")
     (if (not (setq objSet (ssget "_I")))
       (setq objSet (ssget))
     ) ;_ end if
     (if (and objset (setq objSet (Set_to_List objSet)))
       (progn
	 (setq showset (ssget "_X" (list (cons 410 (getvar 'Ctab))))
	       showset (Set_to_List showset)
	 )
	 (foreach item objSet
	   (setq showset (vl-remove item showset))
	 )
	 (mapcar
	   '(lambda (x) (put_Visible_Prop x :vlax-false))
	   showset
	 )
	 (princ
	   (strcat "\n<< "
		   (itoa (- (length showset) errCount))
		   " now invisible"
		   (errMsg)
		   " >>"
	   )
	 )
       )
     )
    ) ;_ # condition
    (t
     (if (not (setq objSet (ssget "_I")))
       (setq objSet (ssget))
     );_ end if
     (if objSet
       (progn
	 (setq objSet (Set_to_List objSet))
	 (mapcar
	   '(lambda (x) (put_Visible_Prop x :vlax-false))
	   objSet
	 )
	 (princ
	   (strcat "\n<< "
		   (itoa (- (length objSet) errCount))
		   " now invisible"
		   (errMsg)
		   " >>"
	   )
	 )
       );_ end progn
     );_ end if
    )
  );_ end cond
  (vla-EndUndoMark actDoc)
  (princ)
);_ end of c:invis
(mapcar 'princ
(list
  "\n[Info] http://www.cadtutor.net/forum/showthread.php?59655 [Info]"
  "\nType INVIS to make objects invisible or visible."
 )
)	
(princ)

[mdbdesign]

This is the thing I was looking for. Perfect. Thank you.
Only one question: Is possible to extend it to another option as "Show selected only"
Similar to AutoCAD's "Isolate Object".
I know it is older post but will waiting for answer.
Thank you again.

[kruuger]

This is the thing I was looking for. Perfect. Thank you.
Only one question: Is possible to extend it to another option as "Show selected only"
Similar to AutoCAD's "Isolate Object".
I know it is older post but will waiting for answer.
Thank you again.

try this. CadPack required
http://forum.cad.pl/cadpl-pack-v1-lsp-t78161.html
kruuger

[mdbdesign]

Great tool as well. Added to toolbar, but I need extension to VVA program, something works exactly like "Isolate Objects" in AutoCAD, but only extension to VVA program.
Let say I need to isolate two items from entire dwg, I select them and only this item stay visible and rest of them disappear.
Maybe header "Show selected only" is misleading. It s/b "Isolate selected only from entire dwg"
Sorry for confusion.