Jump to content

Arrange multiple layouts in to one folder


isutheparambil

Recommended Posts

Hi..

 

I am searching for a solution for arranging multiple layouts in to diferent folder views.

 

I have 20 layouts in a drawing.

but I don't need to see all at a time.

i need to divide that 20 layouts in to 4 parts.

each parts need to contain 5 drawings each.

so I can find the required layouts easily.

otherwise i need to scroll all layouts to search.

 

If someone can help in this regards, it will very helpful for me.

 

Have a GOOD DAY..:):):)

Link to comment
Share on other sites

A couple of suggestions you can use Ctrl+Pgdn to go to next layout Ctrl+Pdup to go to previous or you can use my "goto" it will jump to any layout you want. Tested on 88 layouts.

 

; GOTO layout just like other goto a page
; By Alan H 2013
; menu command [GOTO]^c^C^p(load "goto")
; enter a big number like 99 to jump to last if 100+ layouts then 123 etc
; Model space is 0 zero GOTO 0

(defun C:goto ( / x alllayouts laynum num)

(setq num (getint "\nEnter tab number"))
(setq alllayouts (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object))))
(SETQ LAYNUM 0)
(vlax-for x alllayouts
(Setq laynum (+ 1 laynum))
) ;total number of layouts

(if (> num laynum)
(setq num (- laynum 1))
)
(vlax-for lay alllayouts
(if (= num (vla-get-taborder lay))
 (setvar "ctab" (vla-get-name lay))
) ; if
) ; for
) ; defun 

; I often type it wrong so added this one also
(defun C:goot ()
(c:goto)
) ; defun

Link to comment
Share on other sites

Hi BIGAL,

 

That is good one,

but the layouts all i cant remember that is in which number.

So for this case the layouts are with different name. That's why I cant say which layout i need by a number.

 

Any way, I hope my requirement is not an impossible one,

because I saw that one of my old colleague he done such a way.

and unfortunately he is not available here.

 

I hope you can understand my actual requirement.

Otherwise please let me know as I can explain with more details.

 

Thanks BIGAL....:):):)

Link to comment
Share on other sites

Make 5 frames of drawings in one layout.

 

Hi,

 

That way is difficult to publish the drawings.

I am looking to create multiple groups of layouts..:)

 

Thanks for your guideline MARATOVICH...:):):)

Link to comment
Share on other sites

That way is difficult to publish the drawings.

Thanks for your guideline MARATOVICH...:):):)

 

This is not a problem.

There are programs that print a lot of frames from one model or from one layout.

Link to comment
Share on other sites

This is not a problem.

There are programs that print a lot of frames from one model or from one layout.

 

But I need such a way that i mention before.

That will helps ease of my work.8)

Link to comment
Share on other sites

If the problem is the sheer number of layout tabs, can you use one drawing for your work and xref it into four separate files? Am I oversimplifying?

Link to comment
Share on other sites

I think the Sheet Set Manager (SSM) would be ideal, bring all 20 into the SSM, sort them in the order required, etc. Easy to publish and find from now on.

Link to comment
Share on other sites

In the 88 layouts Goto 2 the dwg index is there, then Goto x correct layout required not very hard to understand. Takes a couple of seconds.

 

Here is a dwg index lisp for you. It does need to be changed to suit your title block.

 

; dwg index to a table
; by Alan H NOV 2013
(defun AH:dwgindex (/ doc objtable ss1 lay ans ans2 plotabs ss1 tag2 tag3 list1 list2 curlayout colwidth numcolumns numrows INC rowheight )
(vl-load-com)
(setq curlayout (getvar "ctab"))
(if (= curlayout "Model")
(progn
(Alert "You need to be in a layout for this option")
(exit)
) ; end progn
) ; end if model
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq curspace (vla-get-paperspace doc))
(setq pt1 (vlax-3d-point (getpoint "\nPick point for top left hand of table:  "))) 
; read values from title blocks
(setq bname "yourblockname")
(setq tag2 "DRG_NO") ;attribute tag name
(setq tag3 "WORKS_DESCRIPTION") ;attribute tag name
(setq ss1 (ssget "x"  (list (cons 0 "INSERT") (cons 2 bname))))
 
(repeat (setq INC (sslength ss1))
(foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (SETQ INC (- INC 1)) )) 'getattributes) 
       (if (= tag2 (strcase (vla-get-tagstring att)))
           (progn
           (setq ans (vla-get-textstring att))
           (if (/= ans NIL)
           (setq list1 (cons ans list1))
           ) ; if 
           ); end progn
         ) ; end if
       (if (= tag3 (strcase (vla-get-tagstring att)))
         (progn
         (setq ans2 (vla-get-textstring att))
         (if (/= ans2 NIL)
             (setq list2 (cons ans2 list2)) 
          ) ; end if
          ) ; end progn
 ) ; end if tag3 
   
) ; end foreach
) ; end repeat
(setvar 'ctab curlayout)
(command "Zoom" "E")
(command "regen")

(reverse list1)
;(reverse list2)
; now do table 
(setq numrows (+ 2 (sslength ss1)))
(setq numcolumns 2)
(setq rowheight 0.2)
(setq colwidth 150)
(setq objtable (vla-addtable curspace pt1 numrows numcolumns rowheight colwidth))
(vla-settext objtable 0 0 "DRAWING REGISTER")
(vla-settext objtable 1 0 "DRAWING NUMBER") 
(vla-settext objtable 1 1 "DRAWING TITLE") 
(SETQ X 0)
(SETQ Y 2)
(REPEAT (sslength ss1)
 (vla-settext objtable Y 0 (NTH X LIST1))
 (vla-settext objtable Y 1 (NTH X LIST2))
 (vla-setrowheight objtable y 7)
 (SETQ X (+ X 1))
 (SETQ Y (+ Y 1))
)
(vla-setcolumnwidth objtable 0 55)
(vla-setcolumnwidth objtable 1 170)
(command "_zoom" "e")
); end AH defun
(AH:dwgindex)
(princ)

Link to comment
Share on other sites

I think the Sheet Set Manager (SSM) would be ideal, bring all 20 into the SSM, sort them in the order required, etc. Easy to publish and find from now on.

 

Yes RKENT..

 

Hope sheet-set is a good solution for my requirement now.

 

Unfortunately I cant reach to get the BIGALS idea.

anyway if someone find a solution, please let me know..

 

Thanks:) all of you guys...

Link to comment
Share on other sites

It is not clear why this is difficult.

Make multiple copies of the file.

In each delete unnecessary tabs.

It's complicated ?

Or do you want to see all the tabs at once?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...