Call-out bubble thingie
Call-out bubble thingie
(OP)
Okay, I want an arrow pointing to an object. I want a circle on the tail end of this arrow, with varying text (like "A12", to match a bill of materials) inside the circle. The arrow/ circle will be at various random angles. The circle will always be in line with the arrow (IE, not a bent leader line). The text needs to be always upright. There is a bunch of them. Is there a quick, semi-automatic way to accomplish this?
Current method: Define the arrow and circle as block, insert with orientation specified on screen; copy text into each circle; edit text for each callout.
I can define the circle as a block, and insert it on the tail of the arrow, but it seems much slower that way. I can define the text as an attribute, but seems like that would always rotate it to match the block, which is not correct.
Any ideas? Or chug along like I'm doing?
Current method: Define the arrow and circle as block, insert with orientation specified on screen; copy text into each circle; edit text for each callout.
I can define the circle as a block, and insert it on the tail of the arrow, but it seems much slower that way. I can define the text as an attribute, but seems like that would always rotate it to match the block, which is not correct.
Any ideas? Or chug along like I'm doing?





RE: Call-out bubble thingie
Create a second block that has the arrowhead, and insert "bubble" into that block at the end of the arrow, calling it something like "tag"
Insert "tag" into the part drawing, explode it, rotate the arrow and stretch as required, and edit the attribute in "bubble". Bunch of steps, but have seen people quite speedy at it once they get used to it.
There could something to automate that with lisp, or vb, but that's beyond me at this point.
RE: Call-out bubble thingie
(DEFUN C:LE (/ P1 P2 TX DX DA DG CE C)
(setq P1 (getpoint "First point: ")
P2 (getpoint "Second point: ")
TX (getstring t "Text: ")
SE (getvar "sortents")
DX (getvar "dimtix")
DA (getvar "dimassoc")
DG (getvar "dimgap")
CE (getvar "cmdecho")
)
(setvar "sortents" 0)
(setvar "dimtix" 0)
(setvar "dimassoc" 2)
(setvar "dimgap" (- 0.0 (abs DG)))
(setvar "cmdecho" 0)
(command "circle" "2p" p1 p2)
(setq C (ssget "L"))
(command "dim1" "rad" p1 TX p2)
(command "erase" "p" "")
(setvar "sortents" SE)
(setvar "dimtix" DX)
(setvar "dimassoc" DA)
(setvar "dimgap" DG)
(setvar "cmdecho" CE)
(princ)
)
RE: Call-out bubble thingie
--------------------
Bring back the HP-15
www.hp15c.org
--------------------