is it possible to draw point in an intersection between lines of 2 designated layers?

[aridzv]

Hi.

I have found this lisp INTLINES that draw a point in every intersection of a selected objects.

 

lets say I have 3 layers - L1,L2,L3.

I'm looking for help to add to this lisp the possibilty to choose to draw the points only in intersection between objects that belong to layers L1 and L3

(see attached screenshot that illustrate the problem and a sample drawing).

 

thanks,

Ari.

 

new block.dwg

cdnc5-02.lsp

Edited May 14, 2022 by aridzv

[lido]

;;  (setq SS1 (ssget);(ssget "_X");(get_all_lines_as_SS)
	(setq SS1 (ssget '((-4 . "<OR") (8 . "L1") (8 . "L2")(-4 . "OR>")))
	PTS (get_all_inters_in_ss SS1)
        )

On line 118 of the program, with the function "ssget", use the logical operator "OR" to restrict the selection to layers "L1" or "L2".

 

[Tharwat]

@lido FYI in this case you can just concatenate the layer names with comma, like: (8 . "L1,L2") without the use of 'OR" logic operator. 

[lido]

11 minutes ago, Tharwat said:

@lido FYI in this case you can just concatenate the layer names with comma, like: (8 . "L1,L2") without the use of 'OR" logic operator. 

@Tharwat Of course, your solution is simpler and more direct.

[aridzv]

@lido

@Tharwat

 

Thanks!!

Ari.

[aridzv]

Hi.

here is the final updated lisp.

There are 2 changes from the original lisp:

1. the 2 layers are not hard-codded in the lisp,but the lisp prompt the user to select them.

2. the points are drawn on the second layer (submain layer) regardles of the drawing current layer.

 

thanks again for all the help,

Ari.

 

INTLINES_UPDATE.lsp

Edited May 21, 2022 by aridzv