; PLOT-INI.LSP   [Article Figure 1]   (c)1990, Michael Risch

;PLOT-INI.LSP by George Nejmantowicz
;places block C:\ACAD\LIB1\REV.DWG
;which has one visible attribute.
(defun c:plot-ini (/ DWG CD REV SF INT)
  (setvar "CMDECHO" 0)
  (setvar "ATTDIA" 0)
  (setvar "ATTMODE" 1)
  (setvar "ATTREQ" 1)
  (setq SF (getvar "DIMSCALE"))
  (setq DIR (getvar "DWGPREFIX"))
  (setq DWG (getvar "DWGNAME"))
  (setq CD (rtos (getvar "CDATE") 2 4)
        CD (strcat
                  (substr CD 5 2) "/"
                  (substr CD 7 2) "/"
                  (substr CD 3 2)
           )  ;create date string
  )
  (menucmd "S=X")  ;blank menu
  (setq INT (getstring
        "\nEnter operator initials: "))
  (setq REV (strcat DIR DWG " - "
    CD " - " INT))
  (setq BLK (ssget "X" (list (cons 0
    "INSERT")(cons 2 "REV"))))
  (if BLK
    (command "ERASE" BLK "")
  )  ;erase existing block
  (grtext)
  (command "LAYER" "M" "RV" "OF" "0" "")
  (command "INSERT" "C:/ACAD/LIB1/REV"
    "0,0" SF "" "0" REV)
  (prompt "\nSaving... ")
  (command "SAVE" "")
  (terpri)
  (menucmd "S=DWGSIZE")
  (setq SEL1 (getstring
    "\nSelect sheet size from menu: "))
  (terpri)
  (menucmd SEL1)
  (setq SEL2 (getstring
    "\nSelect plot scale from menu: "))
  (setq STR (substr SEL2 3 4))
  (if (= STR "PLOT")
    (progn  ;display another submenu
      (while (= STR "PLOT")
        (menucmd SEL2)
        (setq SEL2 (getstring
          "\nSelect plot scale."))
        (setq STR (substr SEL2 3 4))
        (if (/= STR "PLOT")
          (command "script" SEL2)
        )
      )
    )  ;else call plotting script file
    (command "script" SEL2)
  )
)
[FIGURE 2]