Count of Polygons crossed with Polyline

[Shablab]

I have a line that crosses through multiple polygons. Is there a LISP to give me a count of how many polygons this line goes through?

 

[ronjonp]

Here is a quick one .. all objects must be on screen.

(defun c:foo (/ e p s)
  (cond	((and (setq e (car (entsel "\nPick a polyline: ")))
	      (setq p (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x)))(entget e))))
	      (setq s (ssget "_F" p))
	 )
	 (print (1- (sslength s)))
	 (sssetfirst nil s)
	)
  )
  (princ)
)

 

[Shablab]

36 minutes ago, ronjonp said:

Here is a quick one .. all objects must be on screen.

(defun c:foo (/ e p s)
  (cond	((and (setq e (car (entsel "\nPick a polyline: ")))
	      (setq p (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x)))(entget e))))
	      (setq s (ssget "_F" p))
	 )
	 (print (1- (sslength s)))
	 (sssetfirst nil s)
	)
  )
  (princ)
)

 

That works great.  Is there a way to only select crossed lines only on a selected layer?

[ronjonp]

Sure .. change the ssget filter:

(setq s (ssget "_F" p '((0 . "line") (8 . "yourlayer"))))

 

Edited February 26, 2019 by ronjonp

[BIGAL]

A little bit more

(setq lay (cdr (assoc 8 (entget (car (entsel "pick object for layer"))))))
(setq s (ssget "_F" p (list (cons 0 "line") (cons 8 lay))))

[Shablab]

13 hours ago, BIGAL said:

A little bit more

 

(setq lay (cdr (assoc 8 (entget (car (entsel "pick object for layer"))))))
(setq s (ssget "_F" p (list (cons 0 "line") (cons 8 lay))))

This doesn't seem to be working properly.  It doesn't select any after "pick object for layer".

 

Edited February 27, 2019 by Shablab

[BIGAL]

There must be some hidden characters in the ssget line, I removed the "f" p and it did not work when I pasted into cad. Re-tested and Ok Retype the line in notepad.

 

Command: (setq s (ssget "x" (list (cons 0 "Line")(cons 8 lay))))
<Selection set: 55>

(sslength s)

6