Community
@andresep82 wrote:....
how i can select the lines one to one after (setq Conj (ssget "_c" .....
....
I am trying to obtain theintersection points Between one line tha i draw and all the line That stay inside rectangle selection.
....
See the attached file with some comments and questions about the code. I also have a couple of other questions:
When you say you want to "obtain" intersection points, does that mean you want them in a list or something, or is drawing Point entities at them [as the code is apparently supposed to do] enough?
You talk about intersections of the Line you draw with all intersecting Lines, but the code would find intersections with many different kinds of entity types. It doesn't filter for Lines only in (ssget), nor does it check for what entity type things are that it finds. If you want only Lines, you could have it filter for them, and I think it could be done a little more simply with (inters) using their endpoints, rather than by the IntersectWith approach that requires VLA objects, converting from a variant value, etc. If you don't want to limit it to Lines only, you might still want to filter for viable entity types, because some of your functions will fail if they try to work with, for example, Text, or at the very least you probably don't want to have a Point drawn in relation to certain entity types. Also, the Line you drew could intersect a variety of entities in more than one place, and I assume you would want to account for that possibility if you're not just looking for Lines.
Kent Cooper, AIA 
@andresep82 wrote:....
filter yes,i need only line at one layer and use (inters)....if If there are inside polylines?
.... (command "_line" pause pause "") (setq line1 (entlast) linec1 (vlax-ename->vla-object line1 ) pt1 (cdr (assoc 10 (entget line1))) pt2 (cdr (assoc 11 (entget line1))) pt3 (polar pt1 (+ (angle pt2 pt1) (/ pi 2)) (distance pt1 pt2)) ); setq (setq line2 (entsel "\ line? ") ; THIS LINE.....I WANT THAT IT SELECTED AUTOMATIC AND ALL THOSE WHO ARE INSIDE of (setq Conj (ssget "_c" pt2 pt3)) ); setq ........
Is the Line you want selected automatically the same one you just drew? If so, its entity name is already in the line1 variable, and its VLA object version is already in the linec1 variable. If not, what or where is it, that is, by what characteristics is the routine supposed to find it automatically?
To find only Line entities for checking intersections, you can use an entity-type filter in (ssget):
(ssget "_c" pt2 pt3 '((0 . "LINE")))
Kent Cooper, AIA
@andresep82 wrote:.... i need the intersection point of the first one line tha i draw
(command "_line" pause pause "")
....wich the existing lines
(setq sele (ssget "_c" pt1 pt2 (list '( 0 . "LINE") ( cons 8 "layer1"))))
[Should that be using pt2 & pt3 as before, rather than pt1 & pt2? If you really mean the endpoints of the Line just drawn, I would suggest using Fence rather than Crossing mode, because Fence will find only those Lines in the selection that actually intersect that Line, whereas Crossing mode may find additional Lines that do not.]
Since two Lines can intersect in only one place, I would suggest not bothering with VLA object conversions and IntersectWith methods and variant values and so on. You already have the two endpoints of the Line just drawn saved, which is half of what you need for each intersection. For instance [there are other ways, too]:
(repeat (sslength sele)
(setq ldata (entget (ssname sele 0))); first [remaining] Line's entity data list
(if (setq pt (inters pt1 pt2 (cdr (assoc 10 ldata)) (cdr (assoc 11 ldata)) T)); there's an intersection
(progn ; then
(...draw Point entity there....)
(...do something involving a Block...)
(...whatever...)
); progn
); if
(ssdel (ssname sele 0)); take that one out of the selection, go back and look at the next one
); repeat
If you use Fence mode in (ssget), then you don't need to test whether there's an intersection, because it will only find Lines that do intersect, so you can collapse it somewhat, eliminating the (if) and (progn):
(repeat (sslength sele)
(setq
ldata (entget (ssname sele 0)); first [remaining] Line's entity data list
pt (inters pt1 pt2 (cdr (assoc 10 ldata)) (cdr (assoc 11 ldata)) T); the intersection
); setq
(...draw Point entity there....)
(...do something involving a Block...)
(...whatever...)
(ssdel (ssname sele 0)); take that one out of the selection, go back and look at the next one
); repeat
Kent Cooper, AIA
ohhhh...... my........ good......... 
faster¡¡¡¡¡
thanks¡¡¡¡¡¡
I am learning......
and the question of the million..... To put a a lineardim between all intersections point?
@alanjt_ wrote:
It would return a series of points, whcih you'd have to group into pairs of 3. From there, you'd have intersection points. The biggest issue is, vla-intersectwith does not account for two lines being at different elevations. So, since they technically don't intersect, vla-intersectwith won't return a point.
Indeed, "Z" issuchaPITAisn'tit ?
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
