Topic: Viewport layer filter

[PitchBlack98]

I am working on a lisp that will setup VPs to only show certain layers. I am drafting different foundation types on one drawing so they are stacked. I have one drawing with 54 foundations all in separate tabs. Its taking me forever to set up each and every tab to freeze layers I dont need. I have a routine working, but an having problems getting it to work without a lot of interaction. My tab names and foundation types all correspond to each other with an elevation designation (IE "STDA(NSG)" That would be elev. A standard foundation with narrow spread footings with slab on grade). Is is possible to create a lisp that will check the tab names and apply the right VP filter to the viewports on that tab.

Heres what I have working so far. The viewport has to be active for the layers to freeze in it since Im using vplayer and it asks for the layer name then the viewport to freeze it in everytime. Any help is appreciated. What I have now is a little quicker, but not much.

Thanks in advance!

Code: [Select]

;;FOUNDATION TYPE ROUTINE
;;Makes stacked foundation layers visible in viewports to seperate them on
;;different tabs
(defun C:FDNTYPE (/ cmd att clay p)
 ;;GET VARIABLES
 (setq cmd  (getvar 'cmdecho)
att  (getvar 'attdia)
clay (getvar 'clayer))
 ;;SET LAYER TO ZERO
 (COMMAND "-LAYER" "THAW" "0" "SET" "0" "" "")
 (setvar 'cmdecho 0)
 (setvar 'attdia 1)
 ;;Set the foundation types allowed
 (initget 0 "CSG CST NSG NST PSG PST")
 (setq P (cond ((getkword "\nFoundation Type: CSG / CST / NSG / NST / PSG / PST: "))
("A")))
;;CSG ONLY
       (if (= P "CSG")
     (progn (command "VPLAYER" "F" "CS-STEEL" "CURRENT" "F" "NS*" "CURRENT" "F" "PS*" "CURRENT" "F" "S-PIER*"

"CURRENT" "F" "S-STEEL" "CURRENT" "")))
;;NSG ONLY
       (if (= P "NSG")
     (progn (command "VPLAYER" "F" "NS-STEEL" "CURRENT" "F" "CS*" "CURRENT" "F" "PS*" "CURRENT" "F" "S-PIER*"

"CURRENT" "F" "S-STEEL" "CURRENT" "")))
 ;;;
 ;;RESET VARIABLES
 (setvar "attdia" att)
 (setvar "clayer" clay)
 ;;EXIT
 (princ)
 )

[CADaver]

I am drafting different foundation types on one drawing so they are stacked. I have one drawing with 54 foundations all in separate tabs.

I understand the different tabs, and I understand the different foundation types, but why stack 'em??

[T.Willey]

I don't think I fully understand what you want, but to get the current tab name use
(getvar "ctab").

[PitchBlack98]

We stack them so if there are redlines or any changes they can be made to all the foundations at the same time. Depending on all the options and elevations we can have a lot of drawings.

The project I'm working on now has 54 sheets for just the foundation and it's a shoebox house. I've tried to sell the xref idea, but no one wants to try it because the don't understand xrefs and how they work. It's very irritating, I know, but theres nothing I can do about it. I've been setting up this drawing for 4 days now and I'm only about 80% done with it. I have 7 more houses to do that are very similar. I'm hoping to have this lisp working so it helps with the rest of these stupid houses....  :realmad: lol

[CAB]

Welcome to the swamp.

Can you attach a sample drawing?

I stack my houses as well. Foundation, floor 1, floor 2, Framing 1, Framing2, elect1, elect2,  etc.
They share some layers, walls, windows, doors etc.
Works for me.


Does it make sense to Freeze all layers in the VP, then thaw the ones you want visible?

[PitchBlack98]

Heres the actually drawing I'm working on now. I removed all client info so I don't get in trouble. I also had to delete the 4 car garage option to make the file small enough to attach here. It's bascially the same as what's still in the drawing.

All the tabs are set up the way I want them so they filter out the different foundation type depending on what tab I'm on. I want a lisp that will either let me select the foundation type I want and let me pick the viewport that I want to display it or one that will read my tabs and if it sees NSG on the tab it freezes all the layers needed to only display the NSG foundation in that tab's viewport. Does that make sense?

[CAB]

Thanks for the look at the drawing.
Should be easy with some helper routines.
Go here
Look at the last post, there are two attachments.
See if that does it for you.


pseudo code

Code: [Select]

Loop through layouts
  get viewport, should be only one per tab
  get list of freeze layers from data list using tab name
  thaw all layers in vp
  freeze predefined layers from list (check for current layer)
end of loop

[PitchBlack98]

Thanks for that link. Ill check them out tomorrow and see if I can use them to do what I want to do. Appreciated much...