Topic: some help for repeat loop

[TAIKI]

Hello
Just i want help to create a repeat loop, i want to remove vertex of all polyline in a selection set.

Can you help me because i want to understand repeat loop.

Thanks

Code - Auto/Visual Lisp: [Select]

1.  (defun c:test (/sel)
2. (setq ent (entsel))
3. (setq entlist (entget (car ent)))
4. (setq layername (cdr (assoc 8 entlist)))
5. (setq sel (ssget "x" (list (cons 8 layername) '(0 . "POLYLINE,LINE,LWPOLYLINE"))))
6. (progn
7.    (repeat (setq n (sslength sel))
8.    (acet-lwpline-remove-duplicate-pnts (ssname sel (setq n (1- n)))))
9.      ))
10.   (princ)
11. )
12. ;Takes an entity list of lwpolylines and modifies the object
13. ;removing neighboring duplicate points. If no duplicated points
14. ;are found then the object will not be passed to (entmod ).
15. ;Returns the new elist when done.
16. (defun acet-lwpline-remove-duplicate-pnts (e1 / a n lst e2)
17.   (setq n 0)
18.   (repeat (length e1)
19.     (setq a (nth n e1)) ;setq
20.     (cond
21.       ((not (equal 10 (car a)))
22.        (setq e2 (cons a e2))
23.       ) ;cond #1
24.       ((not (equal (car lst) a))
25.        (setq lst (cons a lst)
26.              e2  (cons a e2)
27.        ) ;setq
28.       ) ;cond #2
29.     ) ;cond close
30.     (setq n (+ n 1)) ;setq
31.   ) ;repeat
32.   (setq e2 (reverse e2))
33.   (if (and e2
34.            (not (equal e1 e2))
35.            lst
36.       ) ;and
37.     (progn
38.       (if (equal 1 (length lst))
39.         (progn
40.           (entdel (cdr (assoc -1 e1)))
41.           (setq e2 nil)
42.         ) ;progn then single vertex polyline so delete it.
43.         (progn
44.           (setq e2 (subst (cons 90 (length lst)) (assoc 90 e2) e2)
45.           ) ;setq
46.           (entmod e2)
47.         ) ;progn else
48.       ) ;if
49.     ) ;progn then
50.   ) ;if
51.   e2
52. )

[ribarm]

Nothing special, repeat loop repeats lines inside loop as many times as specified after repeat statement... Note that number specified for repeat function must be an integer, not floating number, or list, or string...

As for your posted code, I have one small remark...

change

Code: [Select]

(acet-lwpline-remove-duplicate-pnts (ssname sel (setq n (1- n)))))

to this

Code: [Select]

(acet-lwpline-remove-duplicate-pnts (entget (ssname sel (setq n (1- n))))))

M.R.

[TAIKI]

Thanks for your explanation now i've understand.