topic Re: Why won't this LISP routine run? in Visual LISP, AutoLISP and General Customization Forum

Why won't this LISP routine run?

acadadmin3KNUF — Wed, 11 Dec 2024 20:02:23 GMT

Can someone help save my sanity and tell me why I can't get this LISP routine to run? I've loaded it and the required support LISP's, but all I get when I try to run it is "Unknown Command." I've attached an image of the LISP code and my ACAD commandine output. I have no idea why, please help!

Re: Why won't this LISP routine run?

komondormrex — Wed, 11 Dec 2024 20:12:02 GMT

try to change the line

(defun insdynv (blkname / pt...

(defun c:insdyn (/ pt...

Re: Why won't this LISP routine run?

acadadmin3KNUF — Wed, 11 Dec 2024 20:18:12 GMT

thanks very much....NOW the code says "too few arguments" ARRRGH I saw this code in several responses in several places and no one mentioned these kinds of errors; but thanks and yes, I now totally recognize the fact that the function wasn't defined correctly in the first place

Re: Why won't this LISP routine run?

ВeekeeCZ — Wed, 11 Dec 2024 20:36:41 GMT

Use the original code and call it with parenthesis and block name. That way it was meant to use.

(insdynv "myblock")

Re: Why won't this LISP routine run?

acadadmin3KNUF — Wed, 11 Dec 2024 20:54:46 GMT

Thanks for that clarification. Still having problems farther down the line, but I've run out of time for this today.

Re: Why won't this LISP routine run?

ВeekeeCZ — Wed, 11 Dec 2024 21:29:18 GMT

It's pretty fragmented... The best option would be to put all the files and the block into a folder that is added between searchable paths (Support file search path) and then load the main lsp.

Re: Why won't this LISP routine run?

acadadmin3KNUF — Thu, 12 Dec 2024 02:43:34 GMT

unfortunatey, I am at the next immovable roadblock. I keep finding it reposted in even more places. Right now, every time I run it I get "Command: s Unknown command "S". Press F1 for help."

I've typed in (insdynv TR15525V), i get the prompt to pick the insertion point and that's it.

Re: Why won't this LISP routine run?

Sea-Haven — Thu, 12 Dec 2024 02:43:10 GMT

@acadadmin3KNUF (insdynv "TR15525V") or (insdynv blkname) where blkname has been set by the lisp.

Re: Why won't this LISP routine run?

acadadmin3KNUF — Thu, 12 Dec 2024 03:10:52 GMT

Ok, that worked for that step, thanks very much. Next point of failure is listed at the bottom of this code capture

Command: Command: (LOAD "C:/Users/matthew.neesley/Downloads/INSDYNV (1).LSP") INSDYNV Command: Command: (LOAD "C:/Users/matthew.neesley/Downloads/InsertblockWithVisibilityState.LSP") LM:SETVISIBILITYSTATE Command: Command: (LOAD "C:/Users/matthew.neesley/Downloads/Multi radio buttons.lsp") AH:BUTTS Command: (insdynv "TR15526V") Pick a pt for block -insert Enter block name or [?]: TR15526V Units: Inches Conversion: 1.0000 Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate/Explode/REpeat]: s Specify scale factor for XYZ axes <1>: 1 Specify insertion point or [Basepoint/Scale/X/Y/Z/Rotate/Explode/REpeat]: Specify rotation angle <0>: 0 Command: AHbutts : dialog { label ="Please choose" ; : row { : boxed_radio_column { width = 23 ; : radio_button { key = "Rb1"; label = "01 - 15 - ZPA - FULL"; } spacer_1 ; : radio_button { key = "Rb2"; label = "02 - 15 - ZPA - SPLIT"; } spacer_1 ; : radio_button { key = "Rb3"; label = "03 - 15 - Asi - FULL"; } spacer_1 ; : radio_button { key = "Rb4"; label = "04 - 15 - Asi - SPLIT"; } spacer_1 ; : radio_button { key = "Rb5"; label = "05 - 21 - ZPA - FULL"; } spacer_1 ; : radio_button { key = "Rb6"; label = "06 - 21 - ZPA - SPLIT"; } spacer_1 ; : radio_button { key = "Rb7"; label = "07 - 21 - Asi - FULL"; } spacer_1 ; : radio_button { key = "Rb8"; label = "08 - 21 - Asi - SPLIT"; } spacer_1 ; : radio_button { key = "Rb9"; label = "09 - 27 - ZPA - FULL"; } spacer_1 ; : radio_button { key = "Rb10"; label = "10 - 27 - ZPA - SPLIT"; } spacer_1 ; : radio_button { key = "Rb11"; label = "11 - 27 - Asi - FULL"; } spacer_1 ; : radio_button { key = "Rb12"; label = "12 - 27 - Asi - SPLIT"; } spacer_1 ; : radio_button { key = "Rb13"; label = "13 - 33 - ZPA - FULL"; } spacer_1 ; : radio_button { key = "Rb14"; label = "14 - 33 - ZPA - SPLIT"; } spacer_1 ; : radio_button { key = "Rb15"; label = "15 - 33 - Asi - FULL"; } spacer_1 ; : radio_button { key = "Rb16"; label = "16 - 33 - Asi - SPLIT"; } spacer_1 ; : radio_button { key = "Rb17"; label = "17 - 36 - ZPA - FULL"; } spacer_1 ; : radio_button { key = "Rb18"; label = "18 - 36 - ZPA - SPLIT"; } spacer_1 ; : radio_button { key = "Rb19"; label = "19 - 36 - Asi - FULL"; } spacer_1 ; : radio_button { key = "Rb20"; label = "20 - 36 - Asi - SPLIT"; } spacer_1 ; } } spacer_1 ; ok_only; } ; error: bad argument type: streamp nil

Re: Why won't this LISP routine run?

acadadmin3KNUF — Thu, 12 Dec 2024 03:19:42 GMT

After doing some short research...I suspect that last error message has something to do with this line of code in the radio buttons file:

(setq fo (open (setq fname "D:\\acadtemp\\test.dcl") "w"))

Am I right? Is there some sort of file/location trust issue going on here?

Re: Why won't this LISP routine run?

acadadmin3KNUF — Thu, 12 Dec 2024 03:30:30 GMT

OMG I DID IT!!

"C:\\TRUSTED_LOCATION\\test.dcl"

THANKS VERY MUCH to all who helped! 😁

Re: Why won't this LISP routine run?

Sea-Haven — Thu, 12 Dec 2024 22:21:32 GMT

Thats my code use this instead.

(setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w"))