Topic: how to know if its duplicate?

[rainier]

how to know if the line or arc has a duplicate?? in lisp routine??

[Adesu]

use ssget for first collect data, then describe that data every entity, find start point and compare to other start point.

how to know if the line or arc has a duplicate?? in lisp routine??

[rainier]

thanks Ade, maybe its up to me to find it out...

[CAB]

how to know if the line or arc has a duplicate?? in lisp routine??

YOU must define what is a duplicate.
Which of the DXF codes must be the same before you consider the object a duplicate.
Please tell us specifically which ones.

[gile]

Hi,

Here's a way, it returns the number of times the selected object has been exactely duplicated.
If you don't want to match some properties (layer, color and so on...), had their DXF code to the list in the (vl-remove-if ...) expression.

Code: [Select]

(defun c:duplicated? (/ ent ss)
  (and
    (setq ent (car (entsel)))
    (setq ss (ssget "_X"
    (vl-remove-if
      '(lambda (x) (member (car x) '(-1 5)))
      (entget ent)
    )
     )
    )
    (alert (strcat "\nObject duplicated "
   (itoa (1- (sslength ss)))
   " times."
   )
    )
  )
  (princ)
)

[V-Man]

Can this work by instead of selecting a single object but but selecting multiple objects?

[ronjonp]

Can this work by instead of selecting a single object but but selecting multiple objects?

Try this:

Code: [Select]

(defun c:duplicated? (/ ss1 ent ss)
  (setq ss1 (ssget))
  (if ss1
    (progn
      (setq ss1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))))
      (mapcar
'(lambda (e)
   (setq ss (ssget "_X"
   (vl-remove-if
     '(lambda (x) (member (car x) '(-1 5)))
     (entget e)
   )
    )
   )
   (alert (strcat "\nObject duplicated "
  (itoa (1- (sslength ss)))
  " times."
  )
   )
)
ss1
      )
    )
  )
  (princ)
)