AtuoCAD 2024 running lisp routine and help popup comes up

[jerryhrncir4554]

As the title says, when I run a basic lisp routine the AutoDesk help window pops up.  in AutoCAD 2023 this didn't happen.  I was hoping to find a line I can add to the lisp to stop this popup.   I am not a expert in writing lisps maybe some here as had the same problem and found a fix.  thanks.

(defun CHANGEMAPFEATURECOLORS ()
(ssget "X" '((8 . "XXLPSchema_Tenant_Label")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "XXLPSchema_Tenant_Label_1")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "XXLPSchema_Tenant_Label_2")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "Tenant - SF")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "Space")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "Tenant Space_CalcProp1")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "XXLPSchema_Unit_Label")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "Unit")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "XXLPSchema_Tenant_Space")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "XXLPSchema_Tenant_Space_1")))
(command "chprop" "p" "" "c" "7" "")
(ssget "X" '((8 . "Space")))
(command "pedit" "m" "p" "" "w" "9" "")
(princ)
)

[Kent1Cooper]

Suppose one of those Layers has nothing on it, or nothing in the current space.  That would be trouble.  I haven't analyzed whether/how that might cause Help to come up, but if you ensure that all those Layer contain something, and in the current space where the CHPROP & PEDIT commands' selections will see them, does it still happen?

[pendean]

Can you share a sample DWG with those objects/layers in it?

[jerryhrncir4554]

Thanks everyone.  I can't attach the dwg file it's a copyright/work thing.  I didn't type the original post correctly.  This lisp routine has been working fine for like 10 years.  It still works in 2024 but the help pop up comes up and you have to hit the x to close the window but the list still works.  It's like hitting the F1 button, the layers are there this lisp is to change colors and I believe the pline goes to 0" thickness.

[pendean]

---

@jerryhrncir4554 wrote:

Thanks everyone.  I can't attach the dwg file it's a copyright/work thing. ....

---

Well, in a file I create with those layer names and with a bunch of PLINEs in each of those layer, your LISP does nothing at all except that last "PEDIT width set to 9" portion and no HELP entry comes up in AutoCAD2024.0.1 for me.

So... how would you like to proceed?

[jerryhrncir4554]

thanks for trying my lisp, it is suppose to change a bunch of those layers for blue to white, that is what this lisp routine does and it does that for me and it works but that stupid help pops up.  so strange it didn't do it for you.  I tried to put it in CUI I also disabled the F1 button and nothing works.  I put the lisp in C:/users.........suppport like I always did.  I don't know what it could be.

[pendean]

Here is an experiment to try: in your next DWG file to use the LISP, before you run it, draw a LINE from start to finish. End the command normally. Leave the line in place.

Run your LISP: does HELP come up again or does LINE command activate?

[jerryhrncir4554]

Any command you do makes this lisp say error: function canceled.  You have to run the lisp first before you do any other command.  It's been like that from day one.  Like I said it's been working until 2024.

[jerryhrncir4554]

Just an FYI, the original dwg file has codes that goes into a data base, with these layers that change color and change the pline to 9".  I have to save this coded dwg file in Task Pane to a standard dwg file and the codes does not follow the new dwg file.  I run this lisp so the colors are not blue when printing.  It's this stupid popup, that is the only problem.

[paullimapa]

what if you change the code to this and then at the command prompt enter: 

CHANGEMAPFEATURECOLORS

(defun c:CHANGEMAPFEATURECOLORS ()
(if(ssget "X" '((8 . "XXLPSchema_Tenant_Label")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "XXLPSchema_Tenant_Label_1")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "XXLPSchema_Tenant_Label_2")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "Tenant - SF")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "Space")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "Tenant Space_CalcProp1")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "XXLPSchema_Unit_Label")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "Unit")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "XXLPSchema_Tenant_Space")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "XXLPSchema_Tenant_Space_1")))
(command "_.chprop" "_p" "" "_c" "7" ""))
(if(ssget "X" '((8 . "Space")))
(command "_.pedit" "_m" "_p" "" "_w" "9" ""))
(princ)
)

[pendean]

---

@jerryhrncir4554 wrote:

... I run this lisp so the colors are not blue when printing.  It's this stupid popup, that is the only problem.

---

Why not just use a Plot Style Table designed to do just that? That's been how it is easiest done for decades now.

Your posted LISP has a lot missing, there must be other functions/pre-requisites needed to test it out way over here. Can't help you with it as it is. Sorry. We can change it however where to works for us, and therefore you too. How would you like to proceed?

[jerryhrncir4554]

Thanks everyone on your help,   The Lisp that Paul wrote doesn't work I just get an error:.  I guess it's my files with the code that gets removed might effect the dwg file.  Plot Style Table I will look into but the pline needs to change thickness.  I mean at this point I guess it can't be fixed.