home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / mar94cad.zip / TIP961.LSP < prev    next >
Text File  |  1994-02-15  |  745b  |  28 lines
  1. ; TIP961.LSP: DCL.LSP   Dimensioning Adjoining Circles   
  2. ;                          (c)1994, Robert Trombley
  3.  
  4. (DEFUN C:DCL()
  5.    (SETQ L (* (GETVAR "DIMEXO") (GETVAR "DIMSCALE"))
  6.       L1 (ENTGET (CAR (ENTSEL "Select Line 1: ")))
  7.       L2 (ENTGET (CAR (ENTSEL "Select Line 2: ")))
  8.       S1 (CDR (ASSOC 10 L1))
  9.       E1 (CDR (ASSOC 11 L1))
  10.       S2 (CDR (ASSOC 10 L2))
  11.       E2 (CDR (ASSOC 11 L2))
  12.    )
  13.    (IF (< (DISTANCE S1 S2) (DISTANCE E1 S2))
  14.       (SETQ X1 S1)
  15.       (SETQ X1 E1)
  16.    )
  17.    (IF (< (DISTANCE S2 S1) (DISTANCE E2 S1))
  18.       (SETQ X2 S2)
  19.       (SETQ X2 E2)
  20.    )
  21.    (SETQ A (ANGLE X1 X2)
  22.       P1 (POLAR X1 A L)
  23.       P2 (POLAR X2 (- A PI) L)
  24.    )
  25.    (COMMAND "LINE" P1 P2 "")
  26.    (PRINC)
  27. ); end dcl.lsp
  28.