Topic: Seperate layout as a drawing?

[huan_khu]

Please help me. I have a problem.

I have a CAD file with many layouts. Could you show me any LISP to do these work:

 1. Separate each layout as  a drawing.
 2. In above drawing, we keep the contents that show in layout only. Other objects outside layout will be deleted.

Thank you very much.

PS: This is the link to my file https://dl.dropboxusercontent.com/u/15038223/FVR-TEC-MST-3130-024-A-EN%20%26%20VN-LLT-S1%20%28Long%20Line%201%29.dwg

[ROBBO]

This lisp routine found in the following link will export layouts to separate DWGs:

http://www.jtbworld.com/lisp/layoutstodwgs.htm

[huan_khu]

I know this LISP but it does not delete the contents outside viewport. Thank you

[irneb]

So your lisp would then need to erase everything, but remove anything shown inside the viewports on the Layout.

If all you want is to convert each TAB to the absolute minimum linework in a single DWG ... then the simplest solution would be to use the ExportLayout command. Note though that it places everything in the new DWG's model space (i.e. even the title block) and it scales everything to suit (i.e. like you had to draw prior to acad getting a paper space).

[Matt__W]

Did you try this?

http://www.theswamp.org/index.php?topic=19721.msg240368#msg240368

[cmwade77]

My suggestion is to utilize the built in export layout command.

NOTE: This will export each layout to paper space and saves the file in the same folder as the drawing.

Code: [Select]

;Written by Chris Wade - cmwade77 at http://theswamp.org
;If file dialog boxes appear, unremark the (setvar "filedia" x) lines
(defun c:ExportAllTabs (/ Mode)
; (setvar "filedia" 0)
(foreach pair (dictsearch (namedobjdict) "ACAD_LAYOUT")
(if (= 3 (car pair))
(progn
(if (/= (strcase (cdr pair)) "MODEL")
(progn
(vl-cmdf "._layout" "set" (cdr pair))
(vl-cmdf "._explortlayout" "")
)
)
)
)
)
; (setvar "filedia" 1)
)

[huan_khu]

Did you try this?

http://www.theswamp.org/index.php?topic=19721.msg240368#msg240368

Yes I try but it looks like the Lisp here http://www.jtbworld.com/lisp/layoutstodwgs.htm  . Thank you

My suggestion is to utilize the built in export layout command.

NOTE: This will export each layout to paper space and saves the file in the same folder as the drawing.

Code: [Select]

;Written by Chris Wade - cmwade77 at http://theswamp.org
;If file dialog boxes appear, unremark the (setvar "filedia" x) lines
(defun c:ExportAllTabs (/ Mode)
; (setvar "filedia" 0)
(foreach pair (dictsearch (namedobjdict) ""ACAD_LAYOUT"")
(if (= 3 (car pair))
(progn
(if (/= (strcase (cdr pair)) ""MODEL"")
(progn
(vl-cmdf "._layout" "set" (cdr pair))
(vl-cmdf "._explortlayout" "")
)
)
)
)
)
; (setvar "filedia" 1)
)

When running it has error "; error: too many arguments" . Thank you

[ChrisCarlson]

So find the error....

[cmwade77]

I fixed the error and edited the code in my post, please try again.

[ronjonp]

So find the error....

Really ? At least try to help a little bit.

[mailmaverick]

I have made list file which deletes all objects in MODEL space which are not present in any of the viewports. Please see if it works for you.

Also I have used various custom functions made by other people and I thank them for the same. I have mentioned the source of the same.

Code - Auto/Visual Lisp: [Select]

1. (defun c:DelObjectsNotOnAnyViewport ()
2.   (setq ssview (ssadd))
3.   (setvar 'ctab "MODEL")
4.   (setq app (vlax-get-acad-object))
5.   (vlax-for lay                         ; for each layout
6.                 (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
7.     (setq id1 nil)                      ; ignore the first vp
8.     (if (eq :vlax-false (vla-get-modeltype lay))
9.       (progn (vlax-for obj (vla-get-block lay) ; for each obj in layout
10.                (if (and (= (vla-get-objectname obj) "AcDbViewport")
11.                         (or id1 (not (setq id1 t))) ; ignore first viewport because that is the viewport tab itself
12.                    )
13.                  (progn (vla-GetBoundingBox obj 'LPVP 'UPVP)
14.                         (setq LPVP (vlax-safearray->list LPVP))
15.                         (setq UPVP (vlax-safearray->list UPVP))
16.                         (setq LPMODEL (PCS2WCS LPVP (vlax-vla-object->ename obj)))
17.                         (setq UPMODEL (PCS2WCS UPVP (vlax-vla-object->ename obj)))
18.                         (setq minx (car LPMODEL))
19.                         (setq maxx (car UPMODEL))
20.                         (setq miny (cadr LPMODEL))
21.                         (setq maxy (cadr UPMODEL))
22.                         (setq pt1 (list minx miny))
23.                         (setq pt2 (list maxx miny))
24.                         (setq pt3 (list maxx maxy))
25.                         (setq pt4 (list minx maxy))
26.                         (vla-zoomwindow app (vlax-3d-point pt1) (vlax-3d-point pt3))
27.                         (if (setq ss (ssget "_CP" (list pt1 pt2 pt3 pt4) (list (cons 410 "MODEL"))))
28.                           (setq ssview (kdub:ssunion ssview ss))
29.                         )
30.                  )
31.                )
32.              )
33.       )
34.     )
35.   )
36.   (setq ssall (ssget "_X" (list (cons 410 "MODEL"))))
37.   (setq sstodel (kdub:sssubtract ssall ssview))
38.   (repeat (setq n (sslength sstodel)) (setq ent (ssname sstodel (setq n (1- n)))) (entdel ent))
39. )
40.  
41.  
42. ;;; Union of two selection sets
43. (defun kdub:ssunion (ss1 ss2 / ss index)
44. ;;; Source : http://www.theswamp.org/index.php?topic=46652.0
45.   (setq ss (ssadd))
46.   (cond ((and ss1 ss2)
47.          (setq index -1)
48.          (repeat (sslength ss1) (ssadd (ssname ss1 (setq index (1+ index))) ss))
49.          (setq index -1)
50.          (repeat (sslength ss2) (ssadd (ssname ss2 (setq index (1+ index))) ss))
51.         )
52.         (ss1 (setq ss ss1))
53.         (ss2 (setq ss ss2))
54.         (t (setq ss nil))
55.   )
56.   ss
57. )
58.  
59. ;; Subtracts one selection set from another and returns their difference
60. ;; NOT optimal because it changes the previous/last selection set.
61. (defun kdub:sssubtract (ss1 ss2 / ss)
62. ;;; Source : http://www.theswamp.org/index.php?topic=46652.0
63.   (cond ((and ss1 ss2) (vl-cmdf "._Select" ss1 "_Remove" ss2 "") (setq ss (ssget "_P")))
64.         (ss1 (setq ss ss1))
65.         (t (setq ss nil))
66.   )
67.   ss
68. )
69.  
70. (defun PCS2WCS (pnt ent / ang enx mat nor scl)
71. ;;; Source : http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Auto-Update-of-XY-coord-in-Model-Space-onto-Paper-Space-Layout/td-p/4591789/page/2
72.   (setq pnt (trans pnt 0 0)
73.         enx (entget ent)
74.         ang (- (cdr (assoc 51 enx)))
75.         nor (cdr (assoc 16 enx))
76.         scl (/ (cdr (assoc 45 enx)) (cdr (assoc 41 enx)))
77.         mat (mxm (mapcar (function (lambda (v) (trans v 0 nor t))) '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)))
78.                  (list (list (cos ang) (- (sin ang)) 0.0) (list (sin ang) (cos ang) 0.0) '(0.0 0.0 1.0))
79.             )
80.   )
81.   (mapcar '+
82.           (mxv mat (mapcar '+ (vxs pnt scl) (vxs (cdr (assoc 10 enx)) (- scl)) (cdr (assoc 12 enx))))
83.           (cdr (assoc 17 enx))
84.   )
85. )
86.  
87. ;; Matrix Transpose  -  Doug Wilson
88. ;; Args: m - nxn matrix
89.  
90. (defun trp (m) (apply 'mapcar (cons 'list m)))
91.  
92. ;; Matrix x Matrix  -  Vladimir Nesterovsky
93. ;; Args: m,n - nxn matrices
94.  
95. (defun mxm (m n) ((lambda (a) (mapcar '(lambda (r) (mxv a r)) m)) (trp n)))
96.  
97. ;; Matrix x Vector  -  Vladimir Nesterovsky
98. ;; Args: m - nxn matrix, v - vector in R^n
99.  
100. (defun mxv (m v) (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m))
101.  
102. ;; Vector x Scalar  -  Lee Mac
103. ;; Args: v - vector in R^n, s - real scalar
104.  
105. (defun vxs (v s) (mapcar '(lambda (n) (* n s)) v))
106.  
107.  

[huan_khu]

I have made list file which deletes all objects in MODEL space which are not present in any of the viewports. Please see if it works for you.

Also I have used various custom functions made by other people and I thank them for the same. I have mentioned the source of the same.

Code - Auto/Visual Lisp: [Select]

1. (defun c:DelObjectsNotOnAnyViewport ()
2.   (setq ssview (ssadd))
3.   (setvar 'ctab "MODEL")
4.   (setq app (vlax-get-acad-object))
5.   (vlax-for lay                         ; for each layout
6.                 (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
7.     (setq id1 nil)                      ; ignore the first vp
8.     (if (eq :vlax-false (vla-get-modeltype lay))
9.       (progn (vlax-for obj (vla-get-block lay) ; for each obj in layout
10.                (if (and (= (vla-get-objectname obj) "AcDbViewport")
11.                         (or id1 (not (setq id1 t))) ; ignore first viewport because that is the viewport tab itself
12.                    )
13.                  (progn (vla-GetBoundingBox obj 'LPVP 'UPVP)
14.                         (setq LPVP (vlax-safearray->list LPVP))
15.                         (setq UPVP (vlax-safearray->list UPVP))
16.                         (setq LPMODEL (PCS2WCS LPVP (vlax-vla-object->ename obj)))
17.                         (setq UPMODEL (PCS2WCS UPVP (vlax-vla-object->ename obj)))
18.                         (setq minx (car LPMODEL))
19.                         (setq maxx (car UPMODEL))
20.                         (setq miny (cadr LPMODEL))
21.                         (setq maxy (cadr UPMODEL))
22.                         (setq pt1 (list minx miny))
23.                         (setq pt2 (list maxx miny))
24.                         (setq pt3 (list maxx maxy))
25.                         (setq pt4 (list minx maxy))
26.                         (vla-zoomwindow app (vlax-3d-point pt1) (vlax-3d-point pt3))
27.                         (if (setq ss (ssget "_CP" (list pt1 pt2 pt3 pt4) (list (cons 410 "MODEL"))))
28.                           (setq ssview (kdub:ssunion ssview ss))
29.                         )
30.                  )
31.                )
32.              )
33.       )
34.     )
35.   )
36.   (setq ssall (ssget "_X" (list (cons 410 "MODEL"))))
37.   (setq sstodel (kdub:sssubtract ssall ssview))
38.   (repeat (setq n (sslength sstodel)) (setq ent (ssname sstodel (setq n (1- n)))) (entdel ent))
39. )
40.  
41.  
42. ;;; Union of two selection sets
43. (defun kdub:ssunion (ss1 ss2 / ss index)
44. ;;; Source : http://www.theswamp.org/index.php?topic=46652.0
45.   (setq ss (ssadd))
46.   (cond ((and ss1 ss2)
47.          (setq index -1)
48.          (repeat (sslength ss1) (ssadd (ssname ss1 (setq index (1+ index))) ss))
49.          (setq index -1)
50.          (repeat (sslength ss2) (ssadd (ssname ss2 (setq index (1+ index))) ss))
51.         )
52.         (ss1 (setq ss ss1))
53.         (ss2 (setq ss ss2))
54.         (t (setq ss nil))
55.   )
56.   ss
57. )
58.  
59. ;; Subtracts one selection set from another and returns their difference
60. ;; NOT optimal because it changes the previous/last selection set.
61. (defun kdub:sssubtract (ss1 ss2 / ss)
62. ;;; Source : http://www.theswamp.org/index.php?topic=46652.0
63.   (cond ((and ss1 ss2) (vl-cmdf "._Select" ss1 "_Remove" ss2 "") (setq ss (ssget "_P")))
64.         (ss1 (setq ss ss1))
65.         (t (setq ss nil))
66.   )
67.   ss
68. )
69.  
70. (defun PCS2WCS (pnt ent / ang enx mat nor scl)
71. ;;; Source : http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Auto-Update-of-XY-coord-in-Model-Space-onto-Paper-Space-Layout/td-p/4591789/page/2
72.   (setq pnt (trans pnt 0 0)
73.         enx (entget ent)
74.         ang (- (cdr (assoc 51 enx)))
75.         nor (cdr (assoc 16 enx))
76.         scl (/ (cdr (assoc 45 enx)) (cdr (assoc 41 enx)))
77.         mat (mxm (mapcar (function (lambda (v) (trans v 0 nor t))) '((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)))
78.                  (list (list (cos ang) (- (sin ang)) 0.0) (list (sin ang) (cos ang) 0.0) '(0.0 0.0 1.0))
79.             )
80.   )
81.   (mapcar '+
82.           (mxv mat (mapcar '+ (vxs pnt scl) (vxs (cdr (assoc 10 enx)) (- scl)) (cdr (assoc 12 enx))))
83.           (cdr (assoc 17 enx))
84.   )
85. )
86.  
87. ;; Matrix Transpose  -  Doug Wilson
88. ;; Args: m - nxn matrix
89.  
90. (defun trp (m) (apply 'mapcar (cons 'list m)))
91.  
92. ;; Matrix x Matrix  -  Vladimir Nesterovsky
93. ;; Args: m,n - nxn matrices
94.  
95. (defun mxm (m n) ((lambda (a) (mapcar '(lambda (r) (mxv a r)) m)) (trp n)))
96.  
97. ;; Matrix x Vector  -  Vladimir Nesterovsky
98. ;; Args: m - nxn matrix, v - vector in R^n
99.  
100. (defun mxv (m v) (mapcar '(lambda (r) (apply '+ (mapcar '* r v))) m))
101.  
102. ;; Vector x Scalar  -  Lee Mac
103. ;; Args: v - vector in R^n, s - real scalar
104.  
105. (defun vxs (v s) (mapcar '(lambda (n) (* n s)) v))
106.  
107.  

It works like a charm. Could you add more feature like separate layouts as the drawing?? Thank you. Anyway, this Lisp help me save time too much

[mailmaverick]

It works like a charm. Could you add more feature like separate layouts as the drawing?? Thank you. Anyway, this Lisp help me save time too much

I am happy that I could help you.
For separate layouts as drawings, you can use the LISP given by cmwade.

[huan_khu]

It works like a charm. Could you add more feature like separate layouts as the drawing?? Thank you. Anyway, this Lisp help me save time too much

I am happy that I could help you.
For separate layouts as drawings, you can use the LISP given by cmwade.

I know that LISP but if I use that LISP first, I will open one by one drawing and use your LISP again. I meant that if I can separate layout and delete objects not on any viewport at the same time? Thank you very much

Edit: I found that if I only have object in viewport, running LISP again, and it will delete all objects viewpoint.  Say another way, if I run the LISP 2 times, it will delete all objects on model space. Could you revise this? Thank you @mailmaverick

[mailmaverick]

I know that LISP but if I use that LISP first, I will open one by one drawing and use your LISP again. I meant that if I can separate layout and delete objects not on any viewport at the same time? Thank you very much

You need to first run my LISP to delete all objects which are not in any viewport. Then you should seperate each layout as drawing.

Edit: I found that if I only have object in viewport, running LISP again, and it will delete all objects viewpoint.  Say another way, if I run the LISP 2 times, it will delete all objects on model space. Could you revise this? Thank you @mailmaverick

If I run this LISP 2 times, it will not delete all objects in Model Space but delete all those objects which are not included in any viewport. If you have already exported your viewports as seperate layouts and no viewports exist, then probably, all objects in Model Space would be deleted.

[huan_khu]

You need to first run my LISP to delete all objects which are not in any viewport. Then you should seperate each layout as drawing.

Say I have 2 layouts with 2 viewports on it.

     1. Run your LISP, it delete objects not on any view port
     2. Run separate layout LISP, it creates 2 drawings with one view port on it. So Drawing 1 still remains objects on viewport 2 and drawing 1 remains objects on viewpor t1. These objects are not on any wiewport and I need to delete. 

If I run this LISP 2 times, it will not delete all objects in Model Space but delete all those objects which are not included in any viewport. If you have already exported your viewports as seperate layouts and no viewports exist, then probably, all objects in Model Space would be deleted.

I have checked again and the LISP also delete all objects in Model Space  ( I don't exported my viewports as seperate layouts). I tested on Autocad 2013 and Autocad 2015. Maybe because of my CAD version.

Thank you very much.

[WHOSAGOOFBALL]

sorry for hopping on to this thread but i've run this lsp from jtbworld in the past and it worked perfectly. since we've gone to 2015 it no longer works. this is what i get:

Command: LAYOUTSTODWGS
Enter filename prefix:
Regenerating model.
Regenerating layout.
Regenerating model.

Block "_Y" not found.

Invalid option keyword.

Error:  Function cancelled
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.Include AutoCAD Map information in the export? [Yes/No] <Y>:


any thoughts? thanks.

[RC]

expLortlayouts??

Code: [Select]

(vl-cmdf "._explortlayout" "")