MakeCurrent
@john.uhden wrote:
In the spirit of Thanksgiving attached is a little lisp that makes various object properties current by just selecting a object.
Properties include layer, color, linetype, constantwidth, text style, and dimstyle. There may be other properties that I omitted or have come to exist in the last 8 years. Feel free to add them as you see fit.
Off the top of my head, maybe elevation, text height, ltscale, political affiliation, etc.
Why thank you
;* This routine shall not be modified by anyone, or used by * ;* anyone other than to whom it is licensed, under penalty * ;* of law. * ;* * ;* * * * * * * * * * * * Do not delete this heading! * * * * * * * * * * * * ;; v1.0 (04-08-05) John F. Uhden ;; v1.1 (02-14-06) added 'ConstantWidth ;; v1.2 (08-22-08) various fixes ;; v1.3 (09-30-08) added dimension styles ;; v1.31 (11-23-16) removed security to donate as a freebie. <-- now that's the spirit
Whew! For a moment there, you had me worried.
Happy thanksgiving to you too John
My take on similar settings is MakeMore.lsp with its MM command, available here. It sets most of those same properties [plus Lineweight and Thickness] current, and also calls up the command or offers optional commands to Make More of the same thing, which would typically be the reason you would want to make something's properties current [though its origins are back in Acad2004, so it doesn't, for example, know about Mleaders, Fields, Tables, and some other more-recent things]. I do sometimes use it like @john.uhden's just to set the properties of an object, even if what I want to draw is some other kind, by doing MM, picking something, and hitting Esc.
It's similar to [but predates] the ADDSELECTED command, with some notable differences. For instance, with Blocks, it doesn't just start an Insert of another of the same, but starts an INSERT command with the selected Block name pre-set, but you have all the dialog box choices, including specifying a different Block name. Like John's, if you pick a Polyline with global width, it sets that width current [Addselected doesn't, but simply calls up Pline with whatever setting is current]. And for object types that can be made by more than one command, it offers appropriate options -- mostly for Polylines, but also [for example] the LEADER/QLEADER choice, and in Text and Dimensions, whether to make a new one or use the selected one as the base for a continuation [in Dimensions, offering Continue or Baseline varieties of continuation.
AND, in the case of Polylines, it not only offers options for the different commands you might want, but it also recognizes certain characteristics and offers the appropriate command as a default. [Addselected will only call up the ordinary Pline command for any of them.] It can identify [within certain limitations] a RECTANGLE, or a DONUT, or a regular POLYGON, or a REVCLOUD, and if that's what you want, just hit Enter to accept that default command, but you still have the option to choose any of the other Polyline-making commands.
Also, if any of the selected object's properties are not the defaults [ByLayer color/linetype, Linetype scale 1, etc.], it warns you of that and recommends setting them back to defaults afterwards, and it includes a MMR [= MakeMore Reset] command to do that for you.
