Dynamic Block Attribute Value to string and insertion of new block at dynamic block insertion point

[CDeSoto_783Q5NH6S8XS]

Please help, I am wanting a lisp routine that can do the following through a separate script without user input. 

1) Check for name of Dynamic block in drawing (could be one of many names, all block names will have a state in the name)

2) Set a (setq) based on the state in the above block

3) Get the value of the attribute "Licensee" of the above dynamic block

4) Insert new block based on the state from (2) and the value of (3) at the insertion point of the dynamic block.

I have some lisp ability, so if you can give me a basic lisp or one with descriptions, I can fill in information as required. 

Thanks in advance for any help on this. 

[CDeSoto_783Q5NH6S8XS]

Should have put in here that I will work on the script separately. I am currently only seeking the lisp routine. 

[ВeekeeCZ]

Post some dwg sample and explain what you mean by "state in the name"

[CDeSoto_783Q5NH6S8XS]

I have attached the current routine that I created. This routine takes user input to select the seal block to be inserted. I want to remove the user input and use the information provided in the attributes of the dynamic block.

Name Examples:

Dynamic Block:

PE Block Stamp 2021 - Louisiana

PE Block Stamp 2021 - Texas

Insertion Blocks

[ВeekeeCZ]

OK, then you need no help.

Just a tip for you. If you learn to use (dumpallproperties (car (entsel))) and get/setpropertyvalue functions HERE you can simplify your code tremendously.

[CDeSoto_783Q5NH6S8XS]

I do need help. I am not sure how to query the dynamic block for attribute values to take the place of the user input variables. What I am trying to accomplish is for the dynamic block to change visibility, which is does with the routine, then insert the new block at the insertion point of the dynamic block (PE BLOCK STAMP *). I can input the values and variables as required in the routine. I just can't write the routine itself to accomplish those things. 

[ВeekeeCZ]

Told you, with (getpropertyvalue ename "Licensee") it's that simple. 

[CDeSoto_783Q5NH6S8XS]

Okay, I will make that change. Thanks for the help.

[CDeSoto_783Q5NH6S8XS]

I input the code as shown, but I am getting "error: ADS request error"

[ВeekeeCZ]

Just wondering whether you actually saved the entity name of your block in that ename variable.

Anyways, pretty sure that you'll figure it out.

Good luck.

[CDeSoto_783Q5NH6S8XS]

I thought I got an email asking if I haad figured this out. I have not, and not had much time to look at it honestly. I would greatly appreciate some more help on how to call this exactly. 

[Sea-Haven]

Get a copy of Lee-mac dynamic block properties lisp. It does not use get & set property, rather VL to get properties etc. Visibilty is one of the functions.