Bill Tillman Posted May 22, 2010 Share Posted May 22, 2010 I did a search and didn't seem to find anything on this. I draw architectual floor plans and create column lines with a circle on the end of the line. I then insert text in the circle. usually a single digit or alpha character. The trouble is I often spend too much time trying to get the text to fit nicely in the center of the circle. Can anyone help me with this? Quote Link to comment Share on other sites More sharing options...
lpseifert Posted May 22, 2010 Share Posted May 22, 2010 Middle (Middle center) justify the text and use the center osnap of the circle as the insert point for the text. Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 22, 2010 Share Posted May 22, 2010 How about a Dynamic Attributed block with a scale parameter? BUBBLE.dwg Quote Link to comment Share on other sites More sharing options...
Tankman Posted May 22, 2010 Share Posted May 22, 2010 Or, try this lisp? :wink: Callout.lsp Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 22, 2010 Share Posted May 22, 2010 One more, just for fun... (defun c:TIC (/ label pt dist) ;; MText label witin circle ;; Alan J. Thompson, 05.22.10 (vl-load-com) (if (and (/= "" (setq label (getstring t "\nSpecify label: "))) (setq pt (getpoint "\nSpecify center point: ")) (setq dist (getdist pt "\nSpecify radius of circle: ")) ) ((lambda (p) (entmakex (list '(0 . "CIRCLE") (cons 10 p) (cons 40 dist))) ((lambda (text) (vla-put-AttachmentPoint text 5) (vla-put-InsertionPoint text (vlax-3d-point p)) ) (vla-addMText (if (or (eq acmodelspace (vla-get-activespace (cond (*AcadDoc*) ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) ) ) ) (eq :vlax-true (vla-get-mspace *AcadDoc*)) ) (vla-get-modelspace *AcadDoc*) (vla-get-paperspace *AcadDoc*) ) (vlax-3d-point p) 0. label ) ) ) (trans pt 0 1) ) ) (princ) ) Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 22, 2010 Share Posted May 22, 2010 (defun c:TCL (/ obj label) ;; Label selected circle with MText ;; Alan J. Thompson, 05.22.10 (vl-load-com) (if (and (setq obj (car (entsel "\nSelect circle: "))) (or (eq "AcDbCircle" (vla-get-objectname (setq obj (vlax-ename->vla-object obj)))) (alert "Invalid object!") ) (/= "" (setq label (getstring t "\nSpecify label: "))) ) ((lambda (p) ((lambda (text) (vla-put-AttachmentPoint text 5) (vla-put-InsertionPoint text p) ) (vla-addMText (if (or (eq acmodelspace (vla-get-activespace (cond (*AcadDoc*) ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) ) ) ) (eq :vlax-true (vla-get-mspace *AcadDoc*)) ) (vla-get-modelspace *AcadDoc*) (vla-get-paperspace *AcadDoc*) ) p 0. label ) ) ) (vla-get-center obj) ) ) (princ) ) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted May 24, 2010 Share Posted May 24, 2010 May help. Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 24, 2010 Share Posted May 24, 2010 Bill: It was right there under your nose the entire time. You just had to look on your Tool Palettes on the Annotation tab. The very first entry at the top called Tag - Imperial is a number within a circle. The number is an attribute. Seek and ye shall find. I'm running 2010 too. Quote Link to comment Share on other sites More sharing options...
gsksun4 Posted May 25, 2010 Share Posted May 25, 2010 Bill: It was right there under your nose the entire time. You just had to look on your Tool Palettes on the Annotation tab. The very first entry at the top called Tag - Imperial is a number within a circle. The number is an attribute. Seek and ye shall find. I'm running 2010 too. ReMark, another good find. Would like to know why the text in the circle doesn't take on the font set in the drawing? Or how can I set it to? It doesn't list out a font, and I don't want to explode it, but just to see what font lists out I did. No font listed, but style lists out as Tohoma. Glenn 2009LT Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 25, 2010 Share Posted May 25, 2010 It's an attribute. The font can be reset. Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 25, 2010 Share Posted May 25, 2010 Bill: It was right there under your nose the entire time. You just had to look on your Tool Palettes on the Annotation tab. The very first entry at the top called Tag - Imperial is a number within a circle. The number is an attribute. Seek and ye shall find. I'm running 2010 too. Actually, the Dynamic one I created above (with scale parameter on the circle) was taken from that block and modified. Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 25, 2010 Share Posted May 25, 2010 OK...if you really, really don't want to reset the text style option every time you insert one of these symbols this is a kludge-type workaround. The font used is called Tahoma. Open the Text Style dialog window and change the font style to something else. Finish by clicking Set Current then OK. The font style change should be reflected in any symbol you have already inserted and in any new ones you insert in the future. Quote Link to comment Share on other sites More sharing options...
gsksun4 Posted May 25, 2010 Share Posted May 25, 2010 It's an attribute. The font can be reset. Can you please explain? I tried in properties mgr, but no luck. Quote Link to comment Share on other sites More sharing options...
alanjt Posted May 25, 2010 Share Posted May 25, 2010 OK...if you really, really don't want to reset the text style option every time you insert one of these symbols this is a kludge-type workaround. The font used is called Tahoma. Open the Text Style dialog window and change the font style to something else. Finish by clicking Set Current then OK. The font style change should not be reflected in any symbol you have already inserted and in any new ones you insert in the future. Why not just edit, rename and put back in Toolpalettes? Quote Link to comment Share on other sites More sharing options...
gsksun4 Posted May 25, 2010 Share Posted May 25, 2010 Why not just edit, rename and put back in Toolpalettes? I'm trying to change the attribute in the block editor, but no luck with the font. I also changed the font in the text style mgr, then inserted another tag, but got same results. Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 25, 2010 Share Posted May 25, 2010 The Text Options tab. Text style. Apply. Done. Quote Link to comment Share on other sites More sharing options...
gsksun4 Posted May 25, 2010 Share Posted May 25, 2010 No text options tab to be found in block editor or style mgr. LT has let me down again. Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 25, 2010 Share Posted May 25, 2010 Semantics. You're right. The word "not" was inadvertantly included. Good catch. Quote Link to comment Share on other sites More sharing options...
gsksun4 Posted May 25, 2010 Share Posted May 25, 2010 Semantics. You're right. The word "not" was inadvertantly included. Good catch. Well ReMark, I appreciate your input. I can change the font and style in the manager, but that block still comes up Tahoma after doing so. Other new text has the font change. That's Mtext and Dtext. I won't waste any more of your time over this. I'm just cursed. Heh. Thank you again friend. Glenn Quote Link to comment Share on other sites More sharing options...
ReMark Posted May 25, 2010 Share Posted May 25, 2010 I've tested it twice now and got it to work. You only need to change the font name you want AutoCAD to substitute for the style Tahoma. You do not change the style. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.