home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / HUNDC.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  545 b   |  17 lines
  1. ;******************************************
  2. (setq l (getreal "\nInput width of undercut=:"))
  3. (setq z (getreal "\nInput depth of undercut=:"))
  4. (setq dr (+ (* z s) dr) dl dr l1 l l (* l s))
  5. (setq dgl 0 dgr 0)
  6. (dbsa1 xb 1)
  7. (setq fpt (list xb yb) no (+ no 1))
  8. (attdef1 "l1" l1 fpt)
  9. (attdef1 "ll1" z fpt)
  10. (attdef1 "gpsz1" "K" fpt)
  11. (command "block" no fpt "w" (list xb (- yb dr)) (list (+ xb l) (+ yb dr)) "")
  12. (command "insert" no fpt "" "" "" "" "" "" "")
  13. (command "layer" "s" "" "l" "dash" "" "")
  14. (setq xb (+ xb l))
  15. (redraw)
  16. (quit)
  17.