Lisp to join vertical lines with horizontal lines
Hello abilash,
check out with this sample code.
Command is "JVL" & "JHL"
Salman M.
@SeeMSixty7 wrote:
.... I think the @Anonymous's issue is he may have selected something other than lines in his selection set.
@Anonymous Try the command and keep your selection set to just LINES.
If that's the problem, there could be two reasons for it:
1) They selected some appropriate Lines but also some other things [such as in a Window selection];
2) The "lines" are really single-segment Polylines.
If it's 1), you can restrict the selection to only Lines, no matter what else may be in the area, by changing both instances of
(ssget)
to
(ssget '((0 . "LINE")))
and it won't "see" any other kind of entity in the selection.
If it's 2), you can allow Polylines in addition to Lines [even a combination of both types], by changing the above to:
(ssget '((0 . "LINE,LWPOLYLINE")))
and changing these lines in both commands:
(setq ha6 (cdr (assoc 10 (entget (ssname ha1 ha2)))))
(setq ha7 (cdr (assoc 11 (entget (ssname ha1 ha2)))))
to these instead:
(setq ha6 (vlax-curve-getStartPoint (ssname ha1 ha2)))
(setq ha7 (vlax-curve-getEndPoint (ssname ha1 ha2)))
and if necessary, adding
(vl-load-com)
somewhere. In that case, it may be worth adding some other checks, such as whether any Polylines selected are made of one line segment only.
Kent Cooper, AIA 
@alanjt_ wrote:
....
.... (ssget '(.... (0 . "LWPOLYLINE") (90 . 2) ....
Just in case it should ever be necessary to make the distinction [perhaps not in the OP's circumstances], those criteria could sometimes find unwanted things. A single-arc-segment Polyline would fit them, as well as any closed Polyline of 2 segments, whether they are both arc segments [such as DONUT makes, or a tiny REVCLOUD], a line and an arc, or even two line segments on top of each other. In the last case, it would look like what you want, but its StartPoint and EndPoint would be at the same place, so the routine would be thrown off.
It's more complicated to filter for only open Polylines in (ssget), because the same (assoc 70) entry that has the 1 bit in it if it's closed also has the 128 bit if linetype generation is enabled. It takes entries like this:
(-4 . "<NOT")
(-4 . "&") (70 . 1); [1 bit included if closed]
(-4 . "NOT>")
I'm not sure you can filter out arc segments in (ssget) for certain [no (assoc 42) entry with other-than-zero value], since there will be more than one (assoc 42) entry even for a single-segment Polyline. [I haven't experimented.] But if not, and if you need to avoid those, it can certainly be done by stepping through the resulting selection and checking for that in each one.
Kent Cooper, AIA
@alanjt_ wrote:
... I didn't consider filtering out closed single segment lwpolylines. I didn't even realize one could do such a thing. Which leads me to a question of why in the world would you draw a closed single segment lwpolyline?
...
Really a closed two-vertex, rather than single-segment, Polyline [it can't be closed if it has only one segment], with two segments lying on top of each other. Accidentally would be the primary "why" for such a thing, I imagine -- somehow hitting C in ending the command.
Kent Cooper, AIA
