TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: aswin on June 07, 2017, 01:07:14 AM

Title: LISP HELP - Combine functions into single COMMAND
Post by: aswin on June 07, 2017, 01:07:14 AM

Hi friends .. I am posting a lisp here... this lisp functions are  'CURRENT LAYOUT SETUP TO ALL LAYOUT TABS' and 'PRINT ALL LAYOUTS TABS' .
but i have to enter two comments ,

CPS='CURRENT LAYOUT SETUP TO ALL LAYOUT TABS'
PT  ='PRINT ALL LAYOUTS TABS'

can we make this into a single command for both functions?

-----------------------------------------------------------------------------------------------------------------------------------------------------------

Code - Auto/Visual Lisp: [Select]

1.  
2. ;; Copy current layout page setup to all layout tabs
3. (vl-load-com)
4. (defun c:CPS (/ Adoc Layts clyt)
5.   (setq aDoc  (vla-get-activedocument (vlax-get-acad-object))
6.         Layts (vla-get-layouts aDoc)
7.         clyt  (vla-get-activelayout aDoc)
8.   )
9.   (foreach
10.             itm
11.                (vl-remove (vla-get-name clyt) (layoutlist))
12.     (vla-copyfrom (vla-item Layts itm) clyt)
13.   )
14.   (princ)
15. )
16.  
17.  
18.  
19. (Defun C:PT
20.             (/ PLO_LAYOUTS PLO_CNTR PLO_LIST PLO_LAYOUTTAB)
21.   (vl-load-com)
22.   (setvar "FILEDIA" 0)
23.   (setvar "CMDDIA" 0)
24.   (initget 6) ; disallow 0 or <0
25.   (setq nofs (getint "Enter number of sets: <1>"))
26.   (setq nofs (if (or nofs (= nofs 0)) nofs  1))
27.   (setq PLO_LAYOUTS
28.          (vla-get-layouts
29.            (vla-get-activedocument (vlax-get-acad-object))
30.          )
31.   )
32.   (vlax-for PLO_LAYOUT PLO_LAYOUTS
33.     (setq plo_list (cons (vla-get-name PLO_LAYOUT) plo_list))
34.   )
35.   (setq PLO_LIST (reverse PLO_LIST))
36.   (while (>= nofs 1)
37.     (setq plo_cntr 0)
38.     (repeat (1- (length plo_list)) ; plot all but MODEL
39.       (setq PLO_LAYOUTTAB (nth PLO_CNTR PLO_LIST))
40.       (command "-PLOT" "n" PLO_LAYOUTTAB "" "" "" "" "" "")
41.       (setq PLO_CNTR (1+ PLO_CNTR))
42.     )
43.     (prompt "\nPlot Set Complete")
44.     (setq nofs (1- nofs))
45.   )
46.  
47.   (setvar "FILEDIA" 1)
48.   (setvar "CMDDIA" 1)
49.   (princ)
50. )
51.  

Edit kdub : changed Subject title to be descriptive.
                   add code tags

Title: Re: LISP HELP - Combine functions into single COMMAND
Post by: kdub_nz on June 07, 2017, 04:54:52 AM

You could try something like :

Code - Auto/Visual Lisp: [Select]

1. (defun c:CPS-PT ()
2.  
3.         (c:CPS)
4.         (c:PT)
5.  
6.         (princ)
7. )

Title: Re: LISP HELP - Combine functions into single COMMAND
Post by: aswin on June 07, 2017, 05:02:16 AM

@kdub
thank you soo much...