home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / LP / PZX.LSP < prev   
Encoding:
Text File  |  1990-06-14  |  1.1 KB  |  30 lines
  1. ;****** LPM\PZX.LSP ******
  2. (if (null tb) (setq tb 1.0))
  3. ;----------
  4. (defun C:PZX ( )
  5.   (setq pt (getpoint "Start point:"))
  6.   (setq a (getpoint "enter point to FX:" pt))
  7.   (setq dl (abs (- (car a) (car pt))))
  8.   (setq dh (abs (- (cadr a) (cadr pt))))
  9.   (setq a (- dh dl))
  10.   (setq dl (getreal "enter dl <300>:"))
  11.     (if (null dl) (setq dl 300.0)) ;(setq dl (* tb dl))
  12.   (setq dh (getreal "enter dh <150>:"))
  13.     (if (null dh) (setq dh 150.0)) ;(setq dh (* tb dh))
  14.   (setq se (getvar "elevation")) (setvar "elevation" 0.0)
  15.   (setq st (getvar "thickness")) (setvar "thickness" 0.0)
  16.   (setq wcy 1 ss (ssadd))
  17.   (while wcy
  18.     (setq wcy (getstring "continurse? y/n <y>"))
  19.     (if (= wcy "n") (setq wcy nil) (progn
  20.       (if (> a 0.0) (command "pline" pt (setq pt 
  21.         (polar pt (* 0.5 pi) dh)) (setq pt (polar pt 0.0 dl)) "")
  22.         (command "pline" pt (polar pt 0.0 dl)
  23.         (setq pt (list (+ (car pt) dl) (+ (cadr pt) dh))) ""))
  24.       (setq ss (ssadd (entlast) ss))))
  25.   )
  26.   (command "pedit" "l" "j" ss "" "")
  27.   (setvar "elevation" se)
  28.   (setvar "thickness" st)
  29. )
  30.