It doesn't change the OSMODE setting, so what is the purpose of saving that first and resetting it later? Should it be changing it before the Insert?
I think, since Osnapping to some of your Osnap choices could be at a location with more than one object, that the solution would probably involve selecting the object on which to place it, even though the Inserting would actually land at the Osnap location. That way, a simple MATCHPROP after Inserting can take care of the Layer, etc.
@VoDich2014 wrote:
....
I'm not too worry about having more than one object. So MATCHPROP after the block insert? I'm trying to minimize the number of mouse clicks if possible. MATCHPROP looks for "source" and "destination" from the user. When the user selects an insertion point for the block on a CAD object (for simplicity, there's only 1 CAD object), is it possible to set that CAD object as a "source" for MATCHPROP?
....
EDIT: If there won't be anything else, or if it might be at an Endpoint that meets another object on the same Layer [e.g. a corner between two Lines], then a crossing-window selection using the point just used for the insertion would find the new Block IF it has a drawn element through its insertion point, and also the object(s) Osnapped to. The new Block can be removed from the selection set if it's there [it won't matter if it isn't], and the [an?] object Osnapped to would then be the first item in it. This should work [untested]:
(defun c:V_flowarrow (/ ss)
(command "-insert" "V_flowarrow.dwg" "_scale" (getvar "dimscale") pause pause)
(setq ss (ssget "_C" (getvar 'lastpoint) (getvar 'lastpoint)))
(ssdel (entlast) ss); if Block has drawn element at insertion point and is in selection
(command "_.matchprop" (ssname ss 0) (entlast) "")
(princ)
)
Further EDIT: This assumes that the Osnapped location is one that is actually on the drawn part of the object [END, MID, INT, etc.], not one that is elsewhere [CEN, GCEN, INS or PER in some cases, etc.].
Thank you Kent !! The routine works great.
Edit: After the routine, the command window shows:
Command: V_FLOWARROW
Current active settings: Color Layer Ltype Ltscale Lineweight Transparency Thickness PlotStyle Dim Text Hatch Polyline Viewport Table Material Multileader Center object
Anyway to not display current active settings?
Could you please clarify your first edit?
@Kent1Cooper wrote:EDIT: ... then a crossing-window selection using the point just used for the insertion would find the new Block IF it has a drawn element through its insertion point, and also the object(s) Osnapped to. The new Block can be removed from the selection set if it's there [it won't matter if it isn't], and the [an?] object Osnapped to would then be the first item in it.
For instances where I have multiple objects at the insertion point like the image below, the user can just manually match properties.
@VoDich2014 wrote:
.... After the routine, the command window shows:
... Current active settings: Color Layer ....
Anyway to not display current active settings?
Could you please clarify your first edit?
....
For instances where I have multiple objects at the insertion point like the image below, the user can just manually match properties.
That message is a part of the MATCHPROP prompts, and apparently cannot be suppressed [I tried both CMDECHO and NOMUTT settings]. If you want some limited set of properties matched to the Osnapped-to object [item 2) in Message 1 suggests only the Layer, but maybe you would want Layer and color, for instance], that could be done without the use of a MATCHPROP command, eliminating that message.
The situation in your image is what this from Message 6:
I'm not too worry about having more than one object.
suggested is not likely. If it's more likely than you thought, the routine could be made to check how many objects remain in the selection set after the Block has been removed, and if more than one, ask the User to pick which one they want the Block to be matched to.
EDIT: For Layer-only match, incorporating both thoughts:
(defun c:V_flowarrow (/ ss source)
(command "_.insert" "V_flowarrow" "_scale" (getvar "dimscale") pause pause)
(setq ss (ssget "_C" (getvar 'lastpoint) (getvar 'lastpoint))); select everything there
(ssdel (entlast) ss); if Block has drawn element at insertion point and is selected
(setq source (if (= (sslength ss) 1) (ssname ss 0) (car (entsel "\nSelect object to match Layer of: "))))
(setpropertyvalue (entlast) "LayerID" (getpropertyvalue source "LayerID"))
(princ)
)[I also eliminated the unnecessary ".dwg" filetype ending on the Block name. If the Block name is already in the drawing, that is ignored -- it doesn't go looking for an external drawing file -- and if not, it doesn't need it -- it won't look for any other file type.]
@VoDich2014 wrote:
Amazing....I like it!! Thanks for the clarification and the ".dwg" tip. That makes sense now. I like this routine with the option to pick which object to match to better.
Thank you master Kent!
You're welcome [Accepted Solution, perhaps?]. A further possible enhancement that I could steal from another routine I have, if you like: check whether there is either a Block with that name already in the drawing, or a drawing with that name in some location where AutoCAD knows to look for it, and if neither, alert the User and quit the routine. And one can often think of other possible refinements, such as: to set a specific set of Osnap modes for you, and restore the previous setting afterwards; and if it does something like that, *error* handling to ensure that gets set back if something goes wrong; and to ensure the current Layer is not locked [which would prevent the Layer change of the Block]; etc.
Thank you so much for this routine. It has saved me so much time. A request if I may, instead of inserting a block, can I just start drawing lines or plines and have the drawn line/plines from that one line/pline command be on the same layer as the already drawn line on the drawing?
Please see the sample picture above and the 3 different scenarios below.
The green and cyan lines are already on the drawing. Current layer could be anything.
Scenario 1: Line or pline command started. Starting at point 1 and ending with point 4. Once line or pline command is completed, the 3 lines drawn will match properties of the green line.
Scenario 2: Similar to scenario 1, except that the last point is on the green line. I can see that this scenario might be a bit complicated or messy.
Scenario 3: Similar to scenario 1, except that point 1 is at an intersection where there are 2 or more objects, so the user will have to choose which object to match to, similar to Kent's routine with the inserted block.
I really like what Kent's routine is doing to the inserted block. I'm not sure how or what to modify to make it work on the lines drawn. I'm sorry if this is not the correct place to make this request.
Type a product name
