home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / BRG.LSP < prev    next >
Text File  |  1989-01-28  |  2KB  |  49 lines
  1. (defun C:BRG ()
  2.  (GRAPHSCR)
  3.  (setvar "AUNITS" 4)
  4.  (setvar "CMDECHO" 0)
  5.  (setvar "OSMODE" 1)
  6.  (setq BLN (getreal "\nBearing Line Number: ")
  7.        DLN (getreal "\nDistance Line Number: ")
  8.        BLL (getreal "\nBearing % Line Length: ")
  9.        DLL (getreal "\nDistance % Line Number: ")
  10.         TH (getreal "\nText Height: ")
  11.        PT1 (getpoint "Enter First Point: ")
  12.        PT2 (getpoint "Enter Second Point: "))
  13.   (setq BP1 (polar PT1 (angle PT1 PT2)(*(distance PT1 PT2)BLL)))
  14.           (if(> BLN 0)
  15.   (setq VP4 (+(*(-(* BLN 1.5)0.5)TH)(* TH 0.25)))
  16.   (setq VP4 (-(*(+(* BLN 1.5)0.5)TH)(* TH 0.25))))
  17.   (setq PT4 (polar BP1 (+(angle PT1 PT2)(/ pi 2.0))VP4))
  18.   (setq DP1 (polar PT1 (angle PT1 PT2)(*(distance PT1 PT2)DLL)))
  19.           (if(> DLN 0)
  20.   (setq VP5 (+(*(-(* DLN 1.5)0.5)TH)(* TH 0.25)))
  21.   (setq VP5 (-(*(+(* DLN 1.5)0.5)TH)(* TH 0.25))))
  22.   (setq PT5 (polar DP1 (+(angle PT1 PT2)(/ pi 2.0))VP5))
  23.     (defun CONVERT (A2)
  24.         (setq NT "" TEST NIL)
  25.         (setq L (strlen A2))
  26.         (setq N 4)
  27.          (while (< = N L)
  28.           (setq DS (substr A2 N 1))
  29.           (if (= DS "d")
  30.               (progn
  31.                 (setq DS "%%d")
  32.                 (setq NT (strcat (substr A2 1 (1- N))
  33.                       DS (substr A2 (1+ N))))
  34.                       )
  35.                       )
  36.           (if (= T TEST)(setq N (1+ L))(setq N (1+ N)))
  37.           )
  38.           (setq A2 NT)
  39.           )
  40.   (setq A1 (*(/(angle PT1 PT2)pi)180.0))
  41.   (setq A2 (angtos (angle PT1 PT2)4 4))
  42.   (setq D (strcat (rtos (distance PT1 PT2)2 2)"'"))
  43.           (if (>(strlen A2)6)(setq A2(CONVERT A2)))
  44.   (command "TEXT" "M" PT4 TH A1 A2)
  45.   (command "TEXT" "M" PT5 TH A1 D)
  46.   (setvar "OSMODE" 0)
  47.   (setq a "DONE")
  48. )
  49.