Scribd
Upload
2 views

AFPRN

Selection of paper for print

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
2 views

AFPRN

Selection of paper for print

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

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

; AFPRN.LSP
;
; For printing drawings in any "A" size paper with the foot scale
; factor governed by limits setting.
; *****************************************************************
;
(Defun myerror (s)
(setvar "cmdecho" cm)
(setvar "filedia" 1)
(setvar "cmddia" 1)
(close pfil)
(setq *error* olderr)
(princ)
)
(Defun C:AFPRN (/ sc pp pfil)
(setq olderr *error*
*error* myerror)
(setvar "cmdecho" 0)
(if (= dsc nil)
(progn
(prompt "\nFootscale Plotting... ")
(setq dsc (getreal "\nEnter Plot scale factor <Exit>: "))
)
)
(if (/= dsc nil)
(progn
(setq dz (getvar "dimzin"))
(setvar "dimzin" 0)
(setq cl (getvar "clayer"))
(setq pcp (strcat "C:\\Progra~1\\Cad14\\Plots\\" pcp ".pc2"))
(setq sc (strcat "1=" (rtos dsc)))
(princ "\nPLOTTING ABOUT TO START.....")
(princ (strcat " (" pt ") ... Scale factor: 1 =")) (princ dsc)
(setq pp (getstring "\nPosition paper & Enter to print: "))
(if (/= pp nil)
(progn
(setvar "cmddia" 0)
(setvar "filedia" 0)
(setq pfil (open "C:\\Progra~1\\Cad14\\Plots\\plots.SCR" "w"))
; (write-line (strcat "PLOT E 5 Y 1 E 2 "pcp" E 5 N N N N N " sc "
0") pfil)
(write-line "PLOT E 5 Y 1" pfil)
(write-line (strcat "E 2 "pcp" E 5 N N N N N "sc" 0") pfil)
(write-line "setvar cmddia 1 setvar filedia 1" pfil)
(close pfil)
(setvar "dimzin" dz)
(command "script" "C:\\Progra~1\\Cad14\\Plots\\plots")
(command "graphscr")
(menucmd "s=")
(menucmd "s=")
)
)
)
)
(princ)
)
#######################################################

You might also like