Subject: Re: baidarka tile printing from Cad with Lisp
From: Samson Family (bill.samson@tesco.net)
Date: Sat Dec 30 2000 - 22:57:32 EST
WOW! Paul,
I'm impressed!
I used to write a little LISP about 10 years ago, but have forgotten how it
goes.
Still a fantastic language.
Have a happy holiday!
Bill
-----Original Message-----
From: Paul Raymond <kayaker37@hotmail.com>
To: baidarka@lists.intelenet.net <baidarka@lists.intelenet.net>;
ivy@teleport.com <ivy@teleport.com>
Date: Friday, December 29, 2000 7:08 AM
Subject: Re: baidarka tile printing from Cad with Lisp
>Here is a short lisp program that will break up any drawing automatically
>into saved views from which you can then print out. You should still
>manually add an alignment grid.
>
>To use, set Intellicad to Advanced user level under Tools, Options. Then
>under tools click on Load Lisp Application. Find and highlight tile.lsp and
>press load. To use type tile at the command prompt.
>
>Using "1830 paddle longer than original grid.dxf" as an example open the
>drawing, and load tile.lsp. Type zoom, then "e" for extents. Then type
tile,
>which will prompt you for a point. Type "int" (for intersection) and click
>on the intersection of the lower left corner. You are prompted for a second
>point. Type "int" and select the intersection of the upper right corner.
You
>are prompted for tile width. Try 10 for landscape mode. You are promped for
>tile height. Try 7. Set up your printer for landscape mode, set scale 1 to
1
>and print out saved views.
>
>Cut and paste this and save as tile.lsp
>Beware of line wrap causing the program not to function when you paste,
>especially the area between the "while" and "close f". These should be
>nicely indented, so if a line is all the way to the left, go to the end of
>the previous line and press delete to bring back. Note there are some " "
>that need the space in between.
>
>;==============================================================
>;Program for printing large drawings on a laser printer
>;By Ilgiz R. Baitimetov, Bashkiriya, Sterlitamak
>;Fido: 2:5011/206.0 E-mail mtezil@str.bashnet.ru
>;minor changes Dec 28 2000 to break large drawings into saved views
>;in order to print from IntelliCAD 2000 by kayaker37
>;==============================================================
>(defun c:tile( / f)
>(command "setvar" "cmdecho" 0)
>(command "setvar" "cmddia" 0)
>(terpri)
>(princ "Tile window:")
>(terpri)
>(setq $pt01 (getpoint "\nFirst point :")) ;first point
>(setq $pt02 (getcorner $pt01 "\nSecond point :")) ;second point
>(setq nomer 0)
>(initget 7)
>(setq dlinax (getint "\nEnter tile width: "))
>;(setq dlinax 10)
>(setq dlinay (getint "\nEnter tile height: "))
>;(setq dlinay 7)
>(initget 6)
>;(setq Scale (getreal "\nScale <1>:"))
>(if (not scale) (setq scale 1))
>(IF (< (car $pt01) (car $pt02))
> (setq $bufxn (car $pt01) $bufxk (car $pt02))
> (setq $bufxn (car $pt02) $bufxk (car $pt01))
>)
>(IF (< (cadr $pt01) (cadr $pt02))
> (setq $bufyn (cadr $pt01) $bufyk (cadr $pt02))
> (setq $bufyn (cadr $pt02) $bufyk (cadr $pt01))
>)
>(setq $bufy2 (- $bufyk 2) $bufx2 (- $bufxk 2))
>(setq f (open "tile.scr" "w"))
>
>;=================================
>(while (/= $bufy2 $bufyk)
> (setq $bufxn0 $bufxn $bufx2 (+ $bufxn0 dlinax))
> (setq $bufy1 $bufyn $bufy2 (setq $bufyn (+ $bufyn dlinay)))
> (if (> $bufyn $bufyk) (setq $bufy2 $bufyk))
> (while (/= $bufx2 $bufxk)
> (setq $bufx1 $bufxn0 $bufx2 (setq $bufxn0 (+ $bufxn0 dlinax)))
> (setq nomer (+ 1 nomer))
> (if (> $bufxn0 $bufxk) (setq $bufx2 $bufxk))
> (setq ssss (strcat "view w " (itoa nomer) " " (rtos $bufx1 2)
","
>(rtos $bufy1 2) " " (rtos $bufx2 2) "," (rtos $bufy2 2) " "))
> (write-line ssss f)
> )
>)
>(close f)
>;====================================
>(princ)
>(command "script" "tile")
>)
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com
>
>-
>Baidarka Mailing List - All postings copyright the author and not to be
>reproduced outside Baidarka or Baidarka archives without author's
permission
>Submissions: baidarka@lists.intelenet.net
>Subscriptions: baidarka-request@lists.intelenet.net
>Searchable archive: http://rtpnet.org/robroy/baidarka
>
>
-
Baidarka Mailing List - All postings copyright the author and not to be
reproduced outside Baidarka or Baidarka archives without author's permission
Submissions: baidarka@lists.intelenet.net
Subscriptions: baidarka-request@lists.intelenet.net
Searchable archive: http://rtpnet.org/robroy/baidarka
This archive was generated by hypermail 2b27 : Mon Jan 01 2001 - 01:00:03 EST