Old Bonus tools

[themanthatlives]

Does anyone else remember a tool called balloon that created balloon references for things? I have been hunting for it for ages, with no success :( Any help in finding it would be much appreciated. Thanks.

[arcadia_x27]

Theres a tool called REVCLOUD that draws a revision cloud around objects thats comes as part of the Express tools. is that what youre looking for?

[Ed Jobe]

Those versions were copyrighted and only available to MVP's and therefore aren't freely distributable. However, it shouldn't be too hard to write a lisp/macro to do that. I don't recall seeing any on the Exchange, but you could double check there. Also, check out http://www.caddepot.com/. And you might consider an upgrade. That functionality is built into ADT and MDT and is tied into scheduling and sheet sets.

[jaberwok]

Here is a Balloon routine. I've seen many others around on the net and in user groups.
John B

++++++++++++++++++++++

; Yet Another Balloon Routine. YABR.
; This one by John A Bogie of FactorEdge Ltd.. January 2000
; Creates Text on a specified layer in current textstyle, everything else on current layer.
; ESCape or null input at either point promp terminates routine.
;=========================================
; Error handler
(defun yabrerror (s) ; If an error (such as CTRL-C) occurs
; while this command is active...

(setvar "cmdecho" ocmd) ; Restore saved modes
(setvar "blipmode" oblp)
(setvar "osmode" osmd)
(setq *error* olderr) ; Restore old *error* handler
(redraw)(princ)
)
;=========================================
; Programme
(DEFUN C:YABR ()
(setq olderr *error*)
(setq *error* yabrerror)
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setq osmd (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq lay (getvar "clayer"))
(command "undo" "group")
(graphscr)
(setq marker 0)
(if(= rad nil) (setq rad(/ (getreal "\nenter balloon diameter : ") 2)))
(if(= txtl nil) (progn
(setq txtl lay)
(setq txtl (getstring (strcat "\nenter layer for text<" lay ">: ")))
(command "layer" "n" txtl "")
)
)
(if(= ts nil) (setq ts (getreal "\nenter text height : ")))
(initget 5 "I R")
(setq kwd (getkword "\nIncrement or Repeat numbers I/R: "))
(setq marker 1)
(setq txt (getint "\nenter first number: "))
(while marker
(setvar "blipmode" 1)
(setq p1 (getpoint "\nshow start point: "))
(if (not p1)(exit))
(setq p2 (getpoint "\nshow balloon centre: "))
(if (not p2)(exit))
(setq dist (distance p1 p2)
ang (angle p1 p2)
p3 (polar p1 ang (- dist rad))
)
(setvar "blipmode" 0)
(command ".line" p1 p3 "")
(command ".circle" p2 rad)
(command ".donut" 0 2 p1 "")
(command ".layer" "s" txtl "")
(command ".text" "m" p2 ts "")
(command TXT)
(redraw)
(if (= kwd "I")(setq txt (+ 1 txt))
)
(command ".layer" "s" lay "")
)
(command "undo" "e") ;complete undo group
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setvar "osmode" osmd)
(setq *error* olderr) ;restore old *error* handler
(redraw)
(princ)
)
++++++++++++++++++++++

[Mike.Perry]

Hi

Check out the following -

BALLOON.ZIP (http://www.cadresource.com/library/lispbc.html)

BALLOON.LSP (http://www.manusoft.com/Software/Freebies/Main.stm)

B14.Zip (http://www.spaug.org/LISP_Index99.Html)

Balloon.Lsp (http://www.spaug.org/LISP_Index99.Html)

CADalyst Get the Code April 1999 Ultimate Balloon (http://new.cadalyst.com/code/browseyear.cfm?fullyear=1999#4)

ddbaloon.zip (http://www.caddepot.com/dcd1/Autodesk/AutoLiSP/index-12.html)

ID: TP00115 - Balloon and Leader Toolbar Macro (http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=3268095&linkID=2475176)

+

To go with Ed's post, if you Search the AUGI Exchange (http://www.augi.com/exchange/search.asp?page=415) for "Balloon" you should get 3 results -

Have a good one, Mike

[paulmcz]

check out this one