home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / 2PDF.LSP next >
Encoding:
Text File  |  1991-05-15  |  607 b   |  19 lines
  1. ;****** TY\2PDF.LSP ****** 5-22-90 BJ
  2. (defun C:2PDF (/ d k p1 p2 e)
  3.   (setq d (getdist "enter d 120,-240...<120>:"))
  4.     (if (null d) (setq d 120.0))
  5.   (if (< d 0.0) (setq d (abs d) k -0.1) (setq k 0.1))
  6.   (setq wcy 1)
  7.   (while wcy
  8.     (setq p1 (getpoint "enter p1:"))
  9.     (if (null p1) (setq wcy nil) (progn
  10.       (setq p2 (getcorner "enter p2:" p1))
  11.       (command "pline" p1 (list (car p2) (cadr p1)) p2
  12.          (list (car p1) (cadr p2)) "c")
  13.       (setq e (entlast))
  14.       (command "offset" d p1 
  15.          (polar p1 (angle p1 p2) (* k (distance p1 p2))) "")
  16.       (entdel e)))
  17.   )
  18. )
  19.