Topic: No Show Space

[TimSpangler]

This is a project that I started on that came about from CATIA (If you don't know, it is a high end solid modeling package $$)

This program has what they call  Show/ NoShow Space it is sort of like freezing or turning off layers.  They disappear in to noshow.  So I thought that this would be a great idea to extend my layer routines.  I have started the coding and done a little testing but more work needs to be done.

How it works is if you have layers that are off in order to get those layers to turn on you have to open up the layer dialog and search for the layers that are off then turn them on.  My spin on this is to turn off the layers that are on and turn on the layers that are off.  Then you select the layers that you want on then when you are done it turns off the layers that were originally off and turns on the layers that were originally on as well as the layers that you just selected.  I have also changed the background color so there you can tell what is what.

The question would be do you think that tis would be a useful program?

I am thinking of having 2 types of noshow space "Off Space" "Frozen Space"

What do ya think?

[SMadsen]

Not sure what it means, Timothy
(.. but then I always need a box of crayons, a ton of paper and at least 1 hour powerpoint representation before I get any message)

Isn't this: "to turn off the layers that are on and turn on the layers that are off"
reversed by this: "it turns off the layers that were originally off and turns on the layers that were originally on"
.. so that it only turns on "the layers that you just selected"?

Why the need of a flipflop if you are only going to select layers to turn on?

[TimSpangler]

Isn't this: "to turn off the layers that are on and turn on the layers that are off"
reversed by this: "it turns off the layers that were originally off and turns on the layers that were originally on"
.. so that it only turns on "the layers that you just selected"?

Yes it turns the layers that you selected as well as turn on the layers that were originally on.  It would keep from opening the layer dialog and would also allow the user the WHAT YOU SEE IS WHAT YOU GET view so he/she can select the entities that they want to see.  I will attach what I have done so far.

[JohnK]

Sounds cool to me.

[JohnK]

I think its a good idea cause of those situations that you want to see the stuff that is off and maybe turn one of those layers on. (without having to thaw/on all the layers and weed thru them again.)

Sounds good. (However i dont see it as a "high trafic" application, but it does have its validity.)

[TimSpangler]

The link to what I have done so far.

Still has bugs and only turns on one layer at a time.  Still working on it.

http://www.theswamp.org/lilly_pond/timspangler/NoShow.lsp?nossi=1

[TimSpangler]

(However i dont see it as a "high trafic" application, but it does have its validity.)

Yes I think that you're right about that>  I have a highlight layer routine that gets a little use but falls into that same catagory (you select a layer and it blinks 2 diferant colors for a matter of seconds.  Great for dwgs with alot of layers)

[JohnK]

Are you still gonna go thru with development?

[Anonymous]

Are you still gonna go thru with development?

Yes I work on it alittle each day.  Do you think I should stop?  

I works now sort of once I get all of the bugs out I'll post it.

[JohnK]

No, No, go thru with it.

...Check your PM box

[CAB]

Maybe something like this.
Modify it to suit your needs.

Code: [Select]

(defun c:NoShow(/ *error* useror useros usercmd )
  ;;==============================
  ;; error function & Routine Exit
  (defun *error* (msg)
    (if
      (not
        (member
          msg
          '("console break" "Function cancelled" "quit / exit abort" "")
        )
      )
       (princ (strcat "\nError: " msg))
    ) ; endif
   (layt); toggle layers
  ) ;end error function
 
  ;;=====================================
  ;;  Toggle Layer On/Off -  CAB 091404  
  (defun layt (/ doc lname)
   (vl-load-com) ; load ActiveX support
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
                         
   (vlax-for for-item (vla-get-layers doc);(vla-GetExtensionDictionary)
     (setq lname (vlax-get-property for-item 'Name))
     (if (eq :vlax-true
             (vlax-get-property(vla-item (vla-get-Layers doc ) lname)'LayerOn))
        (vlax-put-property (vla-item (vla-get-Layers doc) lname)
          'LayerOn :vlax-false); layer OFF
        (vlax-put-property (vla-item (vla-get-Layers doc) lname)
          'LayerOn :vlax-true); layer ON
     ); endif
   ); vlax-for
  ); defun
   
  ;;===================
  ;;  Start of Routine
  ;;===================
  (command ".undo" "begin")
  (layt); toggle layers
  (while (setq ent (entsel "\nPick object to turn on."))
    (setq lname (cdr(assoc 8 (entget (car ent)))))
    (command "._Layer" "_Off" lname "")
  ); while
  (layt); toggle layers
  (command ".undo" "end")
  (princ)
);defun
(prompt "\n*-*  NoShow loaded, Enter NoShow to run.  *-*")
(princ)


[Crank]

Years ago I've used Microcadam (a predecessor of Helix / CATIA). I already had forgotten this option, but this is exactly how it worked.

But 'undo grouping' is necessary, because otherwise a simple UNDO can be very confusing:

Code: [Select]


      .
      .
      .
  ;;===================
  ;;  Start of Routine
  ;;===================
  (command ".undo" "begin")
  (layt); toggle layers
  (while (setq ent (entsel "\nPick object to turn on."))
    (setq lname (cdr (assoc 8 (entget (car ent)))))
    (command "._Layer" "_Off" lname "")
  )
  (layt); toggle layers
  (command ".undo" "end")
  (princ)
)


[CAB]

Good idea, I made the change.

[JohnK]

Tim,

I like the code sofar I havent tested it cause i dont have an autocad on this comoputer but thats just "details".

I'll help as much as i can if youl'd like.

[Jeff_M]

I'll help as much as i can if youl'd like.

Egads! I hope he doesn't ask you to be the spell checker.....