Hi
I come to your great help: oops: so I can Provide some lisp routine for the following:
* I want to place a block That multiply at the ends of Several polylines, perpendicular and Placing them to leave the color, and the layer of each polyline are Selecting.
I Explained in the best dwg I'm attached.
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@ВeekeeCZ You are a teacher,
the code works perfect, 
if not much trouble could it be that so do not ask me which side to place the lid when it is free, it could be placed on both sides?
I also attached a picture so you can see in some cases the block is inserted with reverse rotation. Could you please fix that?
Thanks for your great help 
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@john.uhden wrote:
When you say "side" I presume you really mean "end."
I don't have any experience using ssnamex, but I like learning.
So... if the selection is by fence or single selection, then insert at only
the closest end to the point of selection, right? If by window or
crossing, then insert at both ends, right? ....
This can actually be done with the (ssnamex) function, if you want that capability. If you want it to work as described above, as you appear to have confirmed in Post 20, the current accepted-solution code doesn't do that, but only checks whether the ends of Polylines are "free" of other nearby stuff within some tolerance, and adds Blocks to any "free" ends, regardless of how the Polylines were selected.
But it could be made to work that way, because (ssnamex) will return a list that can distinguish in what way a given object was selected. So it can know whether you picked on one, and find the nearer end, or whether it was selected with a fence, and find the nearer end to where the fence crossed it, or whether it was just part of a Window/Crossing selection, and find both ends. So it could put one on only the end selected by pick or fence on a Polyline selected in those ways, even if the other end is also "free".
That is doable, but before trying to work it out, do you really want that functionality in favor of what the current accepted solution does? Also, it could be made to add them at the ends of other objects than Polylines, if you can use that.
It conducting routine tests, I found that there are cases where places the block on the side of the polylines I do not wish since they are not always together, then, cases occur as show in the pictures.
If you can make what you say, I would like and I appreciate that you can solve it, and have the routine such as you describe.
I can mendiante "fence" or Window / Crossing the block selection only be placed on the side closer to the polyline / line.
It could also set the scale of the block before placing it?
would also accept your answer as a solution
thanks for your help
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@Kent1Cooper wrote:
This can actually be done with the (ssnamex) function, if you want that capability. If you want it to work as described above, as you appear to have confirmed in Post 20, the current accepted-solution code doesn't do that, ....
But it could be made to work that way, because (ssnamex) will return a list that can distinguish in what way a given object was selected. So it can know whether you picked on one, and find the nearer end, or whether it was selected with a fence, and find the nearer end to where the fence crossed it, or whether it was just part of a Window/Crossing selection, and find both ends. So it could put one on only the end selected by pick or fence on a Polyline selected in those ways, even if the other end is also "free".
....
Here's what I mean. Lightly tested, but this works for me in your sample drawing [subject to the Note below]. It uses (ssnamex) on the selection, and looks at each entry in the resulting list. It knows how you selected each Polyline, even if you mix different selection methods in the same running of the command. When it finds one that was selected by either individual pick or with a Fence, it realizes there's a "closer end" on the Polylines, figures out which end the pick point or the Fence crossing point is closer to, and Inserts a Block on only that end. If it finds one selected by W / C / WP / CP, for which there is no "closer end," it puts Blocks on both ends. [I haven't experimented with selecting the same Polyline more than once by different methods in the same running of the command.]
[There are additional kinds of entries in the (ssnamex) returned list, about things like the definitions of polygons used in W/C/WP/CP selections, but they start with different numbers than the ones that identify the two categories of types of selection, so it just ignores them.]
NOTE: I adjusted one thing in your sample drawing to get it to work right. The Block itself is defined as Unitless, but the drawing had its insertion scale ["Units to scale inserted content:" in the Insertion scale area of the UNITS dialog box] set to meters, which forced the A-tapa Blocks to be tiny, even with the code specifying a scale of 5 as in the example. I could select them and their scale was 0.127 in the Properties box, and I could change them collectively to 5 there, and they would be right. But I changed that setting in Units to also be Unitless, and it works as expected. I'll let you deal further with that issue, since it will vary depending on Units settings in individual drawings. You may want to change the units designation in the Block definition, rather than the setting in a given drawing. Or you might increase the specified scale in the code to compensate.
(defun C:ATapaEnds (/ ss ent pt start end dist inspt rotpt)
(if (setq ss (ssget '((0 . "LWPOLYLINE"))))
(foreach item (ssnamex ss)
(cond
( (member (car item) '(1 4)); selected by pick or Fence
(setq
ent (cadr item); the Polyline
pt (osnap (cadr (nth 3 item)) "_nea")
; pick point or Fence-crossing point [forced to precisely on ent]
start (vlax-curve-getStartPoint ent)
end (vlax-curve-getEndPoint ent)
dist (vlax-curve-getDistAtPoint ent pt); where along it
); setq
(if (> (- (vlax-curve-getDistAtPoint ent (vlax-curve-getEndPoint ent)) dist) dist)
; pick or Fence-crossing point closer to start than end
(setq ; then
inspt (vlax-curve-getStartPoint ent)
rotpt (vlax-curve-getPointAtParam ent 1)
); setq
(setq ; else [closer to end]
inspt (vlax-curve-getEndPoint ent)
rotpt (vlax-curve-getPointAtParam ent (1- (vlax-curve-getEndParam ent)))
); setq
); if
(command "_.insert" "A-tapa" "_scale" 5 "_none" inspt rotpt)
); pick / Fence selection condition
( (member (car item) '(2 3)); selected by W, C, WP, CP
(setq ent (cadr item)); the Polyline
(command
"_.insert" "A-tapa" "_scale" 5
"_none" (vlax-curve-getStartPoint ent)
"_none" (vlax-curve-getPointAtParam ent 1)
"_.insert" "A-tapa" "_scale" 5
"_none" (vlax-curve-getEndPoint ent)
"_none" (vlax-curve-getPointAtParam ent (1- (vlax-curve-getEndParam ent)))
); command
); W/C/WP/CP condition
); cond
); foreach
); if
); defun
(vl-load-com)
No error handling, or the usual other bells and whistles, yet.
Thanks for the help but I get this error
Command: ATAPAENDS
; error: too few arguments
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@Edwin.Saez.Jamanca wrote:
Thanks for the help but I get this error
Command: ATAPAENDS
; error: too few arguments
Sorry about that -- I wrote and tested it in a file without "wrapping" the operations in a Command-name definition, so just loading it ran it. Then before posting it I added the Command-name (defun) wrapping, and mistakenly didn't include the slash at the beginning of the localized variables list at the beginning. You got to me in time to be able to Edit the Post to correct that.
Do not place the lock on the polyline layer where it is placed.
Not always, the block is placed, there are cases where it remains empty.
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@Edwin.Saez.Jamanca wrote:
....
Do not place the lock on the polyline layer where it is placed.
Not always, the block is placed, there are cases where it remains empty.
The Layer part is easy enough to add, once we know it does what you want otherwise. On the missing Blocks, post a drawing in which it doesn't put Blocks on some ends. For example, are all object LWPolylines, or do you need it to include "heavy" Polylines, and/or possibly Lines?
I worked fine by changing those parameters.
Could you do something about the errors that I show in the images?
In the case of the polyline with continuous line type, it could be excluded to place the blocks?
Perhaps adding some restriction when you select the polylines of a predefined layer, do not consider it at the time of placing the blocks.
- Could one also configure the scale before placing the blocks?
thanks for your help
LinkedIn / AutoCAD Certified Professional
Si mi respuesta fue una solución para usted, por favor seleccione "Aceptar Solución", para que también sirva a otro usuarios.
@john.uhden wrote:
Heavy, or light, or 3D, or lines shouldn't make any difference when using vlax-curve functions. Even splines and trimmed ellipses, I think; just not circles.
Not for certain things, but the code [as with some others on this thread] filters for LWPolylines only, so it would need to be altered to accept other types, and its rotation angle element would need to use the first-derivative approach rather than find the next or previous vertex by parameter value.
