select result lisp modification

[chad.beussink]

I have a select result lisp file that I found here in the post. The command works great, but I need help in modifying it just a little. Whenever I use a command that does not need to create a result, such as DISTANCE, I get a message on the command line that says "0 entities created and stored in Result." I really don't want to see this in my command line. I tried removing (princ " entities created and stored in Result.") from the lisp, but that didn't work. I am not very good at editing or writing lisp routines. Can someone modify this lisp routine for me so that this message does not appear on the command line? Any help is greatly appreciated.

Thanks,
Chad

[Lions60]

Remove both of these lines and that should do it.
(princ (sslength $selResult))
(princ " entities created and stored in Result.")

[chad.beussink]

That did it. Thanks a lot Lions60. You da man!

[Lions60]

No problem, just glad i could help since most of the time it's me needing the help.

[irneb]

That's the 1st version of my routine. Here's the updated one - some requests were incorporated such as the ability to have results from several instructions before and splitting a multiple copy command into its separate instructions.

And to make life easier for the user I'd suggest adding the following to your Custom.CUI:

• Create 2 new commands
  • 1st called Select Result with 'Result as the macro
  • 2nd called Select Result 0 with 'Result;0 as the macro
• Then drag these two into the Keyboard Shortcuts / Shortcut Keys
• Select Select Result under the Shortcut Keys branch, click inside the Key(s) field in the right, click the button to the right, press Ctrl+Alt+R to assign this to the command.
• Do the same for Select Result 0, but change the key sequence to Ctrl+Shift_R.
• OK out of CUI editor.
• You can now press Ctrl+Shift+R to select the very last created / copied set of entities. Or press Ctrl+Alt+R to be asked for one of the last 5 sets of entities.
• You could use other shortcuts if you'd prefer - these just don't clash with any other standard shortcuts.

If you want to have more than 5 "history" selections, modify the $Result-Length 5 (on the 19th line in the LSP) to whatever number you prefer.

[Tom Beauford]

Very nice! Since it need to be loaded before the objects are created I'm adding it to my Acaddoc.lsp now.
Thanks,

[irneb]

Glad you liked it ... and yes, thanks for mentioning: You need to have this code loaded for each DWG otherwise it won't do anything. I also think the acaddoc.lsp is the best place to load this, you could add it to StartupSuite / into the MNL of your Custom MNU/CUI/CUIx, or add it as a Lisp file into your CUI, or various other ways: http://lee-mac.com/autoloading.html

[Tom Beauford]

Still use this routine, but I've modified the getkword to allow picking selection option with the mouse.

[ahmedcivil14806366]

Hello everyone ,

why i am having this Message while trying to use this lisp with Dynamic blocks ?


Which one of these do you want to select? [0-MOVE/1-COPY/2-COPY/3-MOVE/4-COPY/]<0>: 4
; error: bad argument type: lselsetp nil


Thanks

[Tom Beauford]

Hello everyone ,

why i am having this Message while trying to use this lisp with Dynamic blocks ?


Which one of these do you want to select? [0-MOVE/1-COPY/2-COPY/3-MOVE/4-COPY/]<0>: 4
; error: bad argument type: lselsetp nil


Thanks

Keep in mind when irneb wrote this code years before Dynamic blocks were introduced and may need modification to work with Effective Names.
Here's example code by Lee Mac that may help: http://www.lee-mac.com/effectivename.html