Topic: Search for specific MLeader and Acad Table in a drawing

[Coder]

Hello guys .

How can I search for a specific Mleader style and Acad Table in a drawing ?

Many thanks 

[Lee Mac]

As predicate functions:

MLeader Style:

Code - Auto/Visual Lisp: [Select]

1. (defun mleaderstyle-p ( sty / dic )
2.     (and (setq dic (dictsearch (namedobjdict) "acad_mleaderstyle"))
3.          (dictsearch (cdr (assoc -1 dic)) sty)
4.     )
5. )

Code - Auto/Visual Lisp: [Select]

1. _$ (mleaderstyle-p "MyStyle")
2. nil
3. _$ (mleaderstyle-p "Standard")
4. T

Table Style:

Code - Auto/Visual Lisp: [Select]

1. (defun tablestyle-p ( sty / dic )
2.     (and (setq dic (dictsearch (namedobjdict) "acad_tablestyle"))
3.          (dictsearch (cdr (assoc -1 dic)) sty)
4.     )
5. )

Code - Auto/Visual Lisp: [Select]

1. _$ (tablestyle-p "MyStyle")
2. nil
3. _$ (tablestyle-p "Standard")
4. T

[Coder]

Fantastic 

I have seen the first post of yours in this thread and this updated one looks also greater

Many many thanks .

[Coder]

One more thing please 

I need to put them on ( current ) , is that possible sir ?

Many thanks

EDIT >>> I found the system variable for MLeader .

Code: [Select]

(setvar 'cmleaderstyle "Style name")

Just still in need of Acad Table to put it on .

[Lee Mac]

Code: [Select]

(setvar 'ctablestyle "Table Style")

[Coder]

That's what I am looking for .

Thanks for your time and nice replies .