Leaderboard

Change the c:Test function to: (defun c:Test ( / doc ss) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-endundomark doc) (vla-startundomark doc) (if (setq ss (ssget '((0 . "MTEXT")))) (foreach obj (KGA_Conv_Pickset_To_ObjectList ss) (UpdateMtext obj) (vla-put-width obj 40.0) ) ) (vla-endundomark doc) (princ) )

How about this one? -it is not a real one, just a pillow...

Obviously we do not need the last three circles we drew to be full circles. We'll need to trim away what isn't required in this exercise. Let's start by drawing a line 225 units long at an angle of 60 degrees. The starting point for this line will be the centerpoint of our three circles which is also the midpoint of our line that is 130 units. Start the line command, pick the centerpoint of the three circles, let go of your mouse and at the command line type in @225<60. Offset this line 25 units to the right. Use the lines designated in the image below as A and B to trim away the parts of the circles we don't need. Refer to Step 3 below. Time now to fillet some lines. Refer to Step 4 below. Fillet the intersecting lines where the letters 'a' and 'b' appear using a radius of 12. Fillet the intersecting lines where the letter 'c' appears using a radius of 38. Refer to Step 5 below. BTW...I think the 38 radius should have been 37 but we will follow the diagram provided. If you have any questions up to this point please ask. We'll stop here for now. BTW...AutoCAD gives us many different ways to achieve a task. Another member may suggest a different method to follow. Pick the method that you find the easiest to follow. My way is not necessarily the best way is all I am saying.

Really, then I am done here.

I like great comments. I happen to enjoy learning and I enjoy this website. If I didn't enjoy it, I wouldn't do it. Sorry...