; TIP543.LSP   Bubbled Leaders   (c)1990, Steve Richardson

(defun c:IB ()
  (setq
    item (getstring
      "\nItem letter or number: ")
    SCALE (getvar "DIMSCALE")
    PT1 (getpoint "\nStarting point: ")
    PT2 (getpoint "\nEnding point: ")
    CL (getvar "CLAYER")
    M (car PT1) N (car PT2)
  )
  (command
    "LAYER" "M" "DIM" ""
    "DIM" "LEADER" PT1 PT2 "" " " "EXIT"
  )
  (setq
    X (entlast) Y (entget X)
    Z  (assoc 11 Y) Z1 (cdr Z)
    Z2 (car Z1) Z3 (cadr Z1)
    Z4 (list Z2 Z3)
    MARKER (if (< M N) (* 0.375 SCALE)
      (* -0.375 SCALE))
    Z5 (list (+ MARKER(car Z4))(cadr Z4))
  )
  (command "CIRCLE" "2P" Z1 Z5)
  (setq
    X1 (entlast) Y1 (entget X1)
    ZA (assoc 10 Y1) ZA1 (cdr ZA)
  )
  (if (< M N) t (setq MARKER
    (* 0.375 SCALE)))
  (setq TH (/ MARKER 3))
  (command
    "LAYER" "M" "TEX" ""
    "TEXT" "M" ZA1 TH "" ITEM
    "LAYER" "S" CL ""
  ) (princ)
)