how to check if object exists? the get entity name
@Anonymous wrote:
is there possible to do that with "tblsearch" function ?
(defun c:function ()
(while
(if (tblsearch "block" "block_name")
;get the entity name
....
No. That is about the definition of the Block, which can exist in the drawing even if there are no insertions of it. An entity name is associated with an insertion of it.
Kent Cooper, AIA 
@Anonymous wrote:
then what need to change in this code (below) that it automaticaly get count of specific block (in my case pickets) and entity name? When just pressing function name in command line and all data saving to database with "vlax-ldata-put" ? I searched all forums and didnt find out what more need
I haven't used (vlax-ldata-put) and am minimally aware of the (...catch...) functions, so someone else may be better able to help with those parts. But a question: What do you mean by getting an entity name when the count of a specific Block can be more than one? Do you want all the entity names [plural] of insertions of that Block? Do you want any one entity name of an insertion of the Block? Do you want a particular individual insertion, such as the first one, or the last one? If you're looking for a single entity name, it is also possible to get the Block definition as an entity name with (tblobjname), but that is unrelated to a count of Block insertions, since it may be present with no insertions, so I don't think that can be what you want.
Kent Cooper, AIA
@Anonymous wrote:
Yes, all the entity names of insertions of that Block, (for example it should be block named "picket" in my situation) i hope you understood me.
Not the entity names, but the handles, if you need the enames, should be easy for you to modify
(vl-load-com)
(defun blk-p (DictName BlkName / ent i lst ss)
(if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 BlkName))))
(progn
(setq lst "")
(repeat (setq i (sslength ss))
(setq ent (entget (ssname ss (setq i (1- i))))
lst (strcat lst (cdr (assoc 5 ent)) " ")
)
)
(vlax-ldata-put DictName BlkName (vl-string-right-trim " " lst))
(prompt (strcat "\n " (itoa (sslength ss)) " " BlkName " were added to " DictName " dictionary..."))
)
(prompt (strcat "\nNo " BlkName " was found in the dwg..."))
)
(princ)
)
Usage
(blk-p "MyDict" "picket")
"MyDict" = your dictionary name
"picket" = your block name
To get the data
(vlax-ldata-get "MyDict" "piked")
I hope this helps
Henrique
@Anonymous wrote:
... how to use this code ? (: just type in command line (blk-p "MyDict" "picket") ? or what ? And why need dictionary name ?
As I had previously said, load the code, enter at command line
(blk-p "MyDict" "picket")
if there are blocks named "picket" at your dwg, the blocks handles will be stored in a 'dictionary' named MyDict (or whatever name you prefer), in a 'key' named 'picket', only to make it easier to retrive the ldata with
(vlax-ldata-get "MyDict" "piked")
If you prefer to add ldata to an object, instead of a dictionary, it is also possible.
Read about vlax-data-put and vlax-ldata-get and should be easy for you to make necessary modifications.
I hope this helps
Henrique
@Anonymous wrote:
Thank you very much it works (:
Some question about code
(vl-load-com) (defun blk-p (DictName BlkName / ent i lst ss) (if (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 BlkName)))) ;in this line it gets x coordinate? and block name?
In that line, it filters the selection set to select only the specified block name
@Anonymous wrote:
(setq ent (entget (ssname ss (setq i (1- i)))) ;what happens here ? lst (strcat lst (cdr (assoc 5 ent)) " ") ) )
What happens there is, the function entget retrieves the entity data in a form of a list
((-1 . <Entity name: 7fffec243f0>)
(0 . "INSERT");<---- where this data are store, Entity type
(330 . <Entity name: 7ffff732a80>) (5 . "ECFFF") (100 . "AcDbEntity") (67 . 1) (410 . "C-111E")
(8 . "G-ANNO-SYMB");<-- Layer Name
(48 . 1.0) (100 . "AcDbBlockReference")
(2 . "narrow")<-- Block name
(10 213.877 475.369 0.0);<-- insertion point
and so on
HTH
@Anonymous wrote:
Thank you very much it works (:
You're welcome, 2r33222
Glad I could help.
2r33222 wrote:Some question about code
2r33222,
(setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 BlkName)))) ;in this line it gets x coordinate? and block name?
ssget = function to create a selection set
"_X" = the selection set method, X is entire database
list = to create a list with to filter the desired object
(0 . "INSERT") = associated with the dxf 0 is the object type, an insert
(cons 2 BlkName) = dxf 2 is the insert name...
It will create a selectin set with all blocks inseted in the dwg, with the name we provided.
(setq ent (entget (ssname ss (setq i (1- i)))) ;what happens here ?
In each loop it will set the variable i (index) with current value subtracted one (te initial value is the returned from 'sslength ss') , and get the entity name from the selection set using the index and the ssname function, then sets the variable ent with the entity's definition data returned from the entget function...
EDIT: tooooo sloooowwww... 
pBe already explained.
Cheers pBe
I hope this helps
Henrique
@Anonymous wrote:
So as i understood i can select which data i need ?
by this line : lst (strcat lst (cdr (assoc 5 ent)) " ") i get ECFF, an entity name i will get with -1 number ?
That is correct.
The correct syntax would be.
(cdr (assoc 5 ent)) ;<--- it will give you "ECFF" a string value. or are you after somethng else with the strcat function?
Good for you 2r33222
Okay, i read thru the the whole thread and still dont understand exactly want you want to.
If we are to base our answers on your OP, IMO dbroad sums it all for you at post #3.
You did ask for vlax-ldata-put, Hmsilva gave you a snippet for that to.
We're not really sure if you meant Block Name or Handle. What is the purpose of the routine you are wanting to write 2r33222? Give us a good description and sample drawings if you may, that way we can give you better suggestions than what we have now.
I'm thinking want you need is a fairly simple code. only thing is, there's a disconnect between every other post you replied to.
Help us help you. 🙂
@pbejse wrote:
...
What is the purpose of the routine you are wanting to write 2r33222? Give us a good description and sample drawings if you may, that way we can give you better suggestions than what we have now.
I'm thinking want you need is a fairly simple code. only thing is, there's a disconnect between every other post you replied to.
Help us help you. 🙂
1+
Henrique