home *** CD-ROM | disk | FTP | other *** search
/ AutoCAD Resource Guide / AutoCAD Resource Guide - ESX Interactive.ISO / argdemos / cadshell / cs-begin.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1994-06-30  |  4.3 KB  |  93 lines
  1. ;;;
  2. ;;;+-------------------------------------------------------------------------+
  3. ;;;| CS-BEGIN.LSP  (Update to Release 12 09/10/1992)                         |
  4. ;;;|             CADshell 3.0 updated release 06/30/94                       |
  5. ;;;|                                                                         |
  6. ;;;| This program will set the Units and Limits of a new drawing, and will   |
  7. ;;;| draw a border line around the drawing then insert title block.          |
  8. ;;;+-------------------------------------------------------------------------+
  9. ;;;
  10. ;;;
  11. ;;;         Read ".AID" file for information to setup drawing
  12. (defun C:CS-BEGIN ()
  13. (setq file (strcat (getvar "dwgname")".aid"))
  14. (setq fb (open FILE "r"))
  15.     (setq bull (read-line fb))
  16.     (setq bull (read-line fb))
  17.     (setq bull (read-line fb))
  18.     (setq loc_no (read-line fb))
  19.     (setq job_no (read-line fb))
  20.     (setq cust_nm (read-line fb))
  21.     (setq proj_loc (read-line fb))
  22.     (setq descrip1 (read-line fb))
  23.     (setq descrip2 (read-line fb))
  24.     (setq descrip3 (read-line fb))
  25.     (setq dr_by (read-line fb))
  26.     (setq date_dr (read-line fb))
  27.     (setq rev_levl (read-line fb))
  28.     (setq plot_dat (read-line fb))
  29.     (setq scale (read-line fb))
  30.     (setq dwg_no (read-line fb))
  31.     (setq disk_no (read-line fb))
  32.     (setq chk_by (read-line fb))
  33.     (setq date_chk (read-line fb))
  34.     (setq app_by (read-line fb))
  35.     (setq date_app (read-line fb))
  36.     (setq bull (read-line fb))
  37.     (setq bull (read-line fb))
  38.     (setq bull (read-line fb))
  39.     (setq bull (read-line fb))
  40.     (setq bull (read-line fb))
  41.     (setq ltscale (read-line fb))
  42.     (setq cx (read-line fb))
  43.     (setq cy (read-line fb))
  44. (close fb)
  45.  
  46.  
  47. ;;;          Now setup basic drawing using ".AID" parameters
  48.  (setq cx (atof cx))
  49.  (setq cy (atof cy))
  50.  (setq ltscale (atof ltscale))
  51.  
  52.  (setq xl (* ltscale cx) yl (* ltscale cy))
  53.  (setvar "dimscale" ltscale)
  54.  (setvar "ltscale" ltscale)
  55.  (setq FILE_NM (getvar "DWGNAME"))
  56.  (command
  57.     "limits" "0,0" (list xl yl)
  58.     "insert" "border" "0,0" xl yl "0"
  59.     "grid" ltscale
  60.     "snap" "0.0625" 
  61.     "grid" "off"
  62.     "style" "standard" "romans" (* 0.1094 ltscale) ".90" "10" "n" "n" "n"
  63.     ".zoom" "a"
  64.     "insert" "tbc_att" "0,0" dimscale dimscale "0"
  65.     "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
  66.     "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
  67.  )
  68.  
  69. ;;;          Now update title block according to ".AID" file
  70.  
  71.  (command "setvar" "texteval" "1")
  72.  (command "attedit" "y" "" "loc_no" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" loc_no "")
  73.  (command "attedit" "y" "" "job_no" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" job_no "")
  74.  (command "attedit" "y" "" "cust_nm" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" cust_nm "")
  75.  (command "attedit" "y" "" "proj_loc" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" proj_loc "")
  76.  (command "attedit" "y" "" "descrip1" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" descrip1 "")
  77.  (command "attedit" "y" "" "descrip2" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" descrip2 "")
  78.  (command "attedit" "y" "" "descrip3" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" descrip3 "")
  79.  (command "attedit" "y" "" "dr_by" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" dr_by "")
  80.  (command "attedit" "y" "" "date_dr" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" date_dr"")
  81.  (command "attedit" "y" "" "rev_levl" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" rev_levl "")
  82.  (command "attedit" "y" "" "scale" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" scale "")
  83.  (command "attedit" "y" "" "dwg_no" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" dwg_no "")
  84.  (command "attedit" "y" "" "disk_no" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" disk_no "")
  85.  (command "attedit" "y" "" "chk_by" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" chk_by "")
  86.  (command "attedit" "y" "" "date_chk" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" date_chk "")
  87.  (command "attedit" "y" "" "app_by" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" app_by "")
  88.  (command "attedit" "y" "" "date_app" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" date_app "")
  89.   (command "attedit" "y" "" "FILE_NM" "" "w" (getvar "limmin") (getvar "limmax") "v" "r" FILE_NM "")
  90.  (command "setvar" "texteval" "0")
  91.  (menucmd "S=S")
  92. )
  93.