home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p065 / 4.img / LT4.LSP < prev    next >
Encoding:
Text File  |  1991-12-24  |  768 b   |  23 lines
  1. (defun lt4 (/ ang file ef in0 in1)
  2.     (if (eq px "L") (setq ang 0))
  3.     (if (eq px "R") (setq ang 180))
  4.     (if (eq px "D") (setq ang 90))
  5.     (if (eq px "U") (setq ang (- 90)))
  6.     (setq in1 (list (+ (car jd) (abs (- pt1 ymin))) (cadr jd) (caddr jd)))
  7.     (command "dview" "" "CA" 0 ang "")
  8.     (command "UCS" "View")
  9.     (setq file (strcat ltlx "1") ef 1)
  10.     (while (/= (tblsearch "BLOCK" file) nil)
  11.         (setq ef (1+ ef) file (strcat ltlx (itoa ef)))
  12.     )
  13.     (command "layer" "m" "sstair" "")
  14.     (setq in0 (trans in 0 1))
  15.     (command "block" file in0 sn "")
  16.     (command "OOPS")
  17.     (command "UCS" "P")
  18.     (command "PLAN" "World")
  19.     (command "INSERT" file in1 "" "" 0)
  20. ;    (setq se (entlast)) (ssadd se ss)
  21. )
  22.  
  23.