LISP to find a duplicate attribute value
Accepted solution
@ssuoiresos wrote:
Hi all,
Can somebody please help me with a LISP that highlights the blocks with duplicate attribute values?
.. . So even though there will be other duplicates in the blocks, I will need just this specific attribute value (FUEL_CONSUMPTION) to be different each time
(defun c:FCtag (/ _ipt ssdup ss i ev attval a b FC_Coll)
(defun _ipt (e) (cdr (assoc 10 (entget e))))
(if (setq ssdup (ssadd)
ss (ssget
"_X"
(list '(0 . "INSERT") '(66 . 1) (cons 410 (getvar 'Ctab)))
)
)
(progn
(repeat (setq i (sslength ss))
(setq ev (ssname ss (Setq i (1- i))))
(setq attval (mapcar '(lambda (at)
(list (vla-get-tagstring at)
(vla-get-textstring at)
)
)
(vlax-invoke
(vlax-ename->vla-object ev)
'GetAttributes
)
)
)
(if (setq f (assoc "FUEL_CONSUMPTION" attval))
(setq FC_Coll (cons (list f ev) FC_Coll))
)
)
(while (or b (setq a (Car FC_Coll)))
(if
(setq b (vl-some '(lambda (c)
(if (equal (Car a) (Car c))
c
)
)
(cdr FC_Coll)
)
)
(progn
(entmakex (list (cons 0 "LINE")
(cons 10 (_ipt (Cadr a)))
(cons 11 (_ipt (Cadr b)))
)
)
(ssadd (Cadr a) ssdup)
(ssadd (Cadr b) ssdup)
(setq FC_Coll (Vl-remove b FC_Coll)
b a
)
)
(setq FC_Coll (cdr FC_Coll))
)
)
(sssetfirst nil ssdup)
)
)
(princ)
)Command: FCtag
HTH
@adminXYZ5K wrote:
@pbejse hello, didn't want to open a new thread as it is related. Are you able to help me out with amending this code, so that it looks for duplicates in both FUEL_CONSUMPTION and REF1? If both values are the same, then it returns and highlights the blocks. If only one value is different, it no longer highlights? I've tried looking online for assistance and couldn't find what I'm looking for.
Is that ALSO same value FUEL_CONSUMPTION AND REF1 then highlight?
@adminXYZ5K wrote:
FUEL_CONSUMPTION AND REF1 would be different values.
Please see the examples attached.
In the first example, the duplicates should not highlight, as REF1 differs between blocks.
In the second example, the duplicates should highlight, as REF1 & FUEL_CONSUMPTION is the same in both.
Thank you for helping
(defun c:FCtag (/ _ipt ssdup ss i ev attval a b FC_Coll)
(defun _ipt (e) (cdr (assoc 10 (entget e))))
(setq theseTags '("FUEL_CONSUMPTION" "REF1"))
(if (setq ssdup (ssadd)
ss (ssget
"_X"
(list '(0 . "INSERT") '(66 . 1) (cons 410 (getvar 'Ctab)))
)
)
(progn
(repeat (setq i (sslength ss))
(setq ev (ssname ss (Setq i (1- i))))
(setq attval (mapcar '(lambda (at)
(list (vla-get-tagstring at)
(vla-get-textstring at)
)
)
(vlax-invoke
(vlax-ename->vla-object ev)
'GetAttributes
)
)
)
(if (vl-every '(lambda (at / ft )
(and (setq ft (assoc at attval))
(setq f (cons ft f)))) theseTags)
(setq FC_Coll (cons (append f (list ev)) FC_Coll) f nil)
)
)
(while (or b (setq a (Car FC_Coll)))
(if
(setq b (vl-some '(lambda (c)
(if (and
(equal (Car a) (Car c))(equal (Cadr a) (Cadr c)))
c
)
)
(cdr FC_Coll)
)
)
(progn
(entmakex (list (cons 0 "LINE")
(cons 10 (_ipt (last a)))
(cons 11 (_ipt (last b)))
)
)
(ssadd (last a) ssdup)
(ssadd (last b) ssdup)
(setq FC_Coll (Vl-remove b FC_Coll)
b a
)
)
(setq FC_Coll (cdr FC_Coll))
)
)
(sssetfirst nil ssdup)
)
)
(princ)
)
