ohhh...yeah no code to show yet ( it's ugly)... just wanted to show my latest battle
Lookinto the following for some great ideas.
;;; *** Balloon [Version 1.52] 1999-11-03 ***
;;; Copyright 1995 - 1999 ManuSoft
;;;
;;; This program creates leaders and encloses the leader text in a
;;; 'Balloon'. If the text has fewer than 3 characters, the balloon is
;;; a DONUT;; if longer, the balloon is an ELLIPSE. Both text and balloon
;;; continue at the same angle as the last line in the leader. Editable
;;; parameters let you put the balloon on a specific layer, adjust the
;;; gap between text and balloon and the balloon's lineweight, and specify
;;; whether the leader is a block or individual entities.
;;;
Also:
;;; BUB-NOTE.LSP BUBBLE NOTE (c) 2003 Ray Burnstad $50 Bonus Winner
;;; Ray Burnstad
And the best one:
;;; =============================================================================
;;; Filename : MultiLead.lsp
;;; Datum : 06.08.04
;;; Author : jme
;;; Copyright : MENZI ENGINEERING GmbH, Switzerland
;;; Revision 1 : 06.08.04 jme - Support DimColors & DimTextStyle added
;;; Revision 2 : __.__.__ ___ -
;;; -----------------------------------------------------------------------------
;;; Description:
;;; Draws multiple leader with arrow or circle.
;;; -----------------------------------------------------------------------------
;;; Global variables:
;;; Me:Fst Me:Nxt
;;; -----------------------------------------------------------------------------
;;; Internal LISP-functions:
;;; MeGetCurSpace MeGetNextLeaderPoint MeDrawTempVecs MeDrawCross MeDrawCircle
;;; MeDrawPolyCircle MeAddMText MeGetTextStrings Me3dTo2dPoint
;;; -----------------------------------------------------------------------------
;;; External LISP-functions:
;;; None
;;; -----------------------------------------------------------------------------
;;; Version notes:
;;; AutoCAD: Version: Language: AddIns:
;;; 2k+ 1.01 English ...
;;; -----------------------------------------------------------------------------
;;;
;;; == Message on loading =======================================================
;;;
;;;(princ "\nMultiAlead/MultiClead v1.01")
;;;
;;; == Sub function library =====================================================
;;;
;;; -- Function MeGetCurSpace
;;; Returns the current space object.
;;; Arguments [Type]:
;;; Acd = Active document object [VLA-OBJECT]
;;; Return [Type]:
;;; > Mspace or Pspace object [VLA-OBJECT]
;;; Notes:
;;; None
;;;
Gary