I Need Help Making Lisp

[Anonymous]

Hi Again Family! 🙂

I need Help please. Can someone make a lisp for me? I tried research but i just don't understand the language which causes me to fail over and over trying to make one. I attached a word document showing what i need the lisp to do If anyone is interested in helping this old man. Please see attached and i thank you kindly in advance 🙂

i also attached the lisp that helps do some of what i need but need help to add more and cleanup. thanks again fam 

[dlanorh]

Do the layers you are changing TO exist in the drawing? If you need to create them you need to provide more information (color linetype etc), unless you want to just rename the layer.

Do the new Blocks already exist in the drawing? Do the new blocks have the same or similar insertion point?

You are using "effectivename", are any of the blocks dynamic or contain attributes?

[Anonymous]

OMG!! Hi @dlanorh, 🙂 super excited you answered! 🙂

Do the layers you are changing TO exist in the drawing? If you need to create them you need to provide more information (color linetype etc), unless you want to just rename the layer.

(big yes, all layers exist in the drawing)

Do the new Blocks already exist in the drawing? Do the new blocks have the same or similar insertion point?

You are using "effectivename", are any of the blocks dynamic or contain attributes?

(Yep!  all blocks exist in the drawing, have the same insertion points and... no, the blocks are NOT dynamic)

Thanks @dlanorh , let me know what you think and thanks again for the response 🙂 

[dlanorh]

Sorry about the delay in replying, I was a bit bogged down in another lisp. I know this is a lot to ask, but could you provide your docx file as an excel file. I've got the bits about changing all text to

"Standard", height 4.8 and text width 0.85

and the block delete list and text delete on layer

but alot of the rest came across corrupted (I don't have "Word" but use "LibreOffice" on Linux)

For example for :   Text Items - three columns  "Old layer" "New layer" "settings"

and do the same for *Lines and Arcs and Blocks to replace

I shall try to get something out over the weekend

[Anonymous]

No Trouble at all! 🙂

please see attached.

let me know if that work and thanks again @dlanorh!!

[dlanorh]

Three questions

1. Are all the entities in Model Space?

2. are the "TEXT" entities only TEXT or  TEXT & MTEXT?

3. What is the current TEXT justification or does it vary?

When changing the justification of TEXT entities the text invariably moves

[Anonymous]

Three questions

1. Are all the entities in Model Space? Yes

2. are the "TEXT" entities only TEXT or  TEXT & MTEXT? Mostly Text but some random MText

3. What is the current TEXT justification or does it vary? Justification varies

Thanks again!!

[dlanorh]

---

@Anonymous wrote:

Three questions

1. Are all the entities in Model Space? Yes

2. are the "TEXT" entities only TEXT or  TEXT & MTEXT? Mostly Text but some random MText

3. What is the current TEXT justification or does it vary? Justification varies

Thanks again!!

---

As the answer to 2 included MTEXT how do you want these justified (if at all) and I'm not certain I can set the text width with MTEXT as I can with TEXT. This is normally controlled by the textstyle. MTEXT can also have the text style overridden in the text string.

[Anonymous]

Ok lets leave Mtext out. its very unusual to find Mtext in the file i receive 

[dlanorh]

Lisp attached. This has not been tested as I have no exaple drawing to test on.

Any problems let me know.

[Anonymous]

OMG so close!!

first off, ... amazing and much appreciated

just 2 things that didn't work 

-block replace

-block deletion

i attached the dwg for your review 🙂 and thanks again

[dlanorh]

I was being over ambitious, will try to sort tomorrow. I know where the problem is so should be relatively easy.

[Anonymous]

Hi again! 🙂

I found that the 4KV text has stayed the same. im not sure if it was included in the lisp 🙂

revised excel attached for whats left 🙂

and again i cannot thank you enough, your GREAT!

[Anonymous]

i was able to add the 4kv to the lisp. attached below 🙂

[dlanorh]

You are replacing Blocks "JWP" "WP" and "E". Should these be added to the purge?

[Anonymous]

yes please

thanks!

[dlanorh · Accepted solution]

Attached is update Lisp. It now works for blocks. It was a simple error (I forgot a "setq") in the block replace code. This caused the lisp to error and exit through the error sub routine on the first block (a "replace"). I have upgraded the lisp to remove (command "-purge"). The routine now checks if the block definition is present in the drawing and whether it is referenced somewhere. If it is present in the drawing and not referenced, the block definition is deleted.

Running through 2000+ block references (mostly replaces) took some time (10 secs on my machine), so be patient.

[Anonymous]

Thanks! Works well. Haven't been able to test it fully so I'll definitely check back in with you. 

Best 

[Anonymous]

tested for over a month now, added new blocks and layers with no issues at all.

thank you soooooo much for all the help with this lisp.