;TIP581.LSP   Bill of Materials Entry   (c)1990, Terry Priest
(defun bom1st ()
  (setq SC (getvar "DIMSCALE"))
  (command "INSERT" "C:/ACAD/09/BOM"
    pause SC "" "" pause pause pause
    pause)
  (setq LPOINT (getvar "LASTPOINT"))
  (BOMCON)
)
(defun BOMCON ()
  (while  T
    (setq PT (polar LPOINT (* pi 1.5)
      (* 0.19 SC)))
    (command "INSERT" "BOM" PT SC "" ""
      pause pause pause pause)
    (setq LPOINT (getvar "LASTPOINT"))
  )
)
(defun C:BOM ()
  (setvar "TEXTEVAL" 1)
  (if (not LPOINT)(BOM1ST)(BOMCON))
)