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