topic Re: Pick four lines and 2 come up duplicate in Visual LISP, AutoLISP and General Customization Forum

Pick four lines and 2 come up duplicate

cadking2k5 — Mon, 05 Nov 2018 22:07:45 GMT

I don't know who gave this mapcar to me but two of four lines are coming up as a duplicate here are the four lines I am picking

(setq lns (mapcar '(lambda (x) (cdr (reverse (vl-remove-if-not 'listp (mapcar 'cdr (entget x))))))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "line")))))))); give the endpoints of all the lines you select
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(command "undo" "BE")
(setq ln1 (nth 0 lns))
(setq ln1s (car ln1))
(setq ln1e (cadr ln1))
(setq ln2 (nth 1 lns))
(setq ln2s (car ln2))
(setq ln2e (cadr ln2))
(setq ln3 (nth 2 lns))
(setq ln3s (car ln3))
(setq ln3e (cadr ln3))
(setq ln4 (nth 3 lns))
(setq ln4s (car ln4))
(setq ln4e (cadr ln4))

Re: Pick four lines and 2 come up duplicate

john.uhden — Tue, 06 Nov 2018 00:19:06 GMT

Umm, what are you trying to do?

It seems as though you want to pick four lines. Then what?

Betreff: Pick four lines and 2 come up duplicate

cadffm — Tue, 06 Nov 2018 07:52:15 GMT

Your problem description is a bit difficult to understand, but let's try it:

I suppose you get mixed up because your selected lines are not all going in the direction you would like.
Please use the command _.RECTANG, apply _.EXPLODE and test again.
Do you like the result better?

Then please look at exactly where your lines (with the problem) start and end.

Betreff: Pick four lines and 2 come up duplicate

cadking2k5 — Tue, 06 Nov 2018 13:06:36 GMT

those are 4 different lines

Re: Pick four lines and 2 come up duplicate

cadking2k5 — Tue, 06 Nov 2018 13:09:51 GMT

pick for lines at once and that are in this shape get the endpoints of each line too

Re: Pick four lines and 2 come up duplicate

ВeekeeCZ — Tue, 06 Nov 2018 13:32:20 GMT

This code should do the same without a mapcar.

(defun c:4lines ( / ss)

  (if (and (setq ss (ssget '((0 . "LINE"))))
           (or (= 4 (sslength ss))
               (alert "Error: Wrong selection, 4 lines required!")))
    (setq ln1 (ssname ss 0)
          ln1s (cdr (assoc 10 (entget ln1)))
          ln1e (cdr (assoc 11 (entget ln1)))
          ln2 (ssname ss 1)
          ln2s (cdr (assoc 10 (entget ln2)))
          ln2e (cdr (assoc 11 (entget ln2)))
          ln3 (ssname ss 2)
          ln3s (cdr (assoc 10 (entget ln3)))
          ln3e (cdr (assoc 11 (entget ln3)))
          ln4 (ssname ss 3)
          ln4s (cdr (assoc 10 (entget ln4)))
          ln4e (cdr (assoc 11 (entget ln4)))))
  (princ)
)

Re: Pick four lines and 2 come up duplicate

ronjonp — Tue, 06 Nov 2018 14:18:33 GMT

Perhaps:

(cond
  ((and (setq s (ssget '((0 . "line")))) (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))))
   (setq lns (mapcar 'cdr
		     (vl-remove-if-not
		       '(lambda (x) (member (car x) '(10 11)))
		       (apply 'append (mapcar 'entget s))
		     )
	     )
   )
  )
)

Re: Pick four lines and 2 come up duplicate

Kent1Cooper — Tue, 06 Nov 2018 15:39:00 GMT

A possibility: You actually have five Lines, two of them coinciding, those two are among the first four in the selection, and since the extraction of endpoints only goes through the first four, it never gets to the remaining Line.

Check when selecting that it says it found four. If so, then I don't have any better ideas....

Re: Pick four lines and 2 come up duplicate

dbhunia — Tue, 06 Nov 2018 17:37:19 GMT

Hi,

I do not get anything wrong in your code.....

I am totally agree with @Kent1Cooper , but not possibly, actually there is more than 4 lines ........

First thing are you selecting lines by window selection, then if you check the point list (using "!lns"), you should get more than 8 set of "X,Y,Z" co-ordinates...... that's why you are getting duplicates.......

Either check the drawings or try to select the lines individually ...... I am sure you should not get any duplicates.....