isutheparambil Posted August 29, 2017 Share Posted August 29, 2017 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..:) Quote Link to comment Share on other sites More sharing options...
BIGAL Posted August 29, 2017 Share Posted August 29, 2017 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 Quote Link to comment Share on other sites More sharing options...
isutheparambil Posted August 29, 2017 Author Share Posted August 29, 2017 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....:) Quote Link to comment Share on other sites More sharing options...
maratovich Posted August 29, 2017 Share Posted August 29, 2017 Make 5 frames of drawings in one layout. Quote Link to comment Share on other sites More sharing options...
isutheparambil Posted August 29, 2017 Author Share Posted August 29, 2017 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...:) Quote Link to comment Share on other sites More sharing options...
maratovich Posted August 29, 2017 Share Posted August 29, 2017 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. Quote Link to comment Share on other sites More sharing options...
isutheparambil Posted August 29, 2017 Author Share Posted August 29, 2017 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. Quote Link to comment Share on other sites More sharing options...
CyberAngel Posted August 29, 2017 Share Posted August 29, 2017 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? Quote Link to comment Share on other sites More sharing options...
rkent Posted August 29, 2017 Share Posted August 29, 2017 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. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted August 30, 2017 Share Posted August 30, 2017 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) Quote Link to comment Share on other sites More sharing options...
isutheparambil Posted August 30, 2017 Author Share Posted August 30, 2017 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... Quote Link to comment Share on other sites More sharing options...
maratovich Posted August 30, 2017 Share Posted August 30, 2017 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? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.