Print Page | Close Window

Acad lisp code plott more copys

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=6856
Printed Date: 23.Apr.2026 at 01:58


Topic: Acad lisp code plott more copys
Posted By: georgino
Subject: Acad lisp code plott more copys
Date Posted: 06.Nov.2011 at 17:08

Hi folks..


quastion:

i need a command in lisp for more that one copy plot.

have anywhere an idea?


Thx georgino...


Me lisp code:



(print)
;************************************************* ***********
(defun C:PL ()
(setvar "OSMODE" 1)
(INITGET 1)
(setq P1 (getpoint "\n Lower Left Endpoint: "))
(INITGET 1)
(setq P2 (getpoint "\n Upper Right Endpoint: "))
(setvar "OSMODE" 0)
************************************************ **************************************************
(setvar "cmdecho" 0)
(command "-PLOT" "j" "" "Canon MP270 series Printer" "A4" "" "" "" "fe" P1 P2 "" "" "" "acad.ctb" "" "" "" "" "" "" "")

(print "\nType Datei an den Plotter gesendet! :-)")

;************************************************* **************************************************
 ) 

 


Replies:
Posted By: georgino
Date Posted: 11.Nov.2011 at 19:11

I have creat this one:

(print)

;************************************************* ***********
(defun C:PL ()
(setvar "OSMODE" 1)
(INITGET 1)
(setq P1 (getpoint "\n Lower Left Endpoint: "))
(INITGET 1)
(setq P2 (getpoint "\n Upper Right Endpoint: "))
(setvar "OSMODE" 0)

************************************************ **************************************************(setvar "cmdecho" 0)

(satq z (read))

(while (not (zerop z))


;************************************************* **************************************************
(setvar "cmdecho" 0)
(command "-PLOT" "j" "" "Canon MP270 series Printer" "A4" "" "" "" "fe" P1 P2 "" "" "" "acad.ctb" "" "" "" "" "" "" "")

(setq z(1- z))

)
  


 (print "\nType Datei an den Plotter gesendet! :-)")


;************************************************* **************************************************

)


Acad write: syntax error! 

Whats the problem?

Posted By: John Connor
Date Posted: 14.Nov.2011 at 12:08
Why are you reinventing the wheel?  The Plot command has the option to input the number of copies that are to be plotted.

-------------
"Humans have a strength that cannot be measured. This is John Connor. If you are reading this, you are the resistance."

<<AutoCAD 2015>>


Print Page | Close Window