Scribd
Upload
5 views1 page

AFPRN

Selection of paper for print

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
5 views1 page

AFPRN

Selection of paper for print

Uploaded by

bravomikeparle
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
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

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy