Align Blocks to selected line orientation

[CADZealot]

Really sorry for the delay,
Thank you so much dlanorh and Bigal .This awesome, working perpectly.you saved me. 
If I want to Align the Blocks as shon in image at the middle of the line (Either Above or Blow the Line), what i have to edit in your program.

Could you please tell me, so that i can learn something in lisp.

 

Thank you so much for your explanation and code.

[dlanorh]

6 hours ago, CADZealot said:

Really sorry for the delay,
Thank you so much dlanorh and Bigal .This awesome, working perpectly.you saved me. 
If I want to Align the Blocks as shon in image at the middle of the line (Either Above or Blow the Line), what i have to edit in your program.

Could you please tell me, so that i can learn something in lisp.

 

Thank you so much for your explanation and code.

 

It's not as simple as changing something, you have to add a lot more. Are you after something that does all three, Above Middle, Below Middle and Ends?

[BIGAL]

Please feel free to use this as choice. Note 4 choices covering other option.

 

(if (not AH:Butts)(load "Multi Radio buttons.lsp"))
(if (= but nil)(setq but 1))
(setq ans (ah:butts but "v"  '("Choose" "Above Middle" "Below Middle" "Above Ends" "Below Ends"))) ; ans holds the button picked value

Multi radio buttons.lsp

[CADZealot]

Quote

It's not as simple as changing something, you have to add a lot more. Are you after something that does all three, Above Middle, Below Middle and Ends?

Okay,Can we do with separate command/Lisp, actually if the line will be short i cant align the blocks to start and end of the line, in that case i need to align as per the image.

I know i'm asking too much things, but atleast i can learn something using your codes.

 

Thanks.

 

 

[CADZealot]

6 hours ago, BIGAL said:

Please feel free to use this as choice. Note 4 choices covering other option.

 

(if (not AH:Butts)(load "Multi Radio buttons.lsp"))
(if (= but nil)(setq but 1))
(setq ans (ah:butts but "v"  '("Choose" "Above Middle" "Below Middle" "Above Ends" "Below Ends"))) ; ans holds the button picked value

Multi radio buttons.lsp 2.47 kB · 10 downloads

Thanks Bigal, 

It seems like will work, but i can't find any command (c:***) inside the lisp. can you please tell me the command to run this lsp.

 

Thanks

[dlanorh]

4 hours ago, CADZealot said:

Okay,Can we do with separate command/Lisp, actually if the line will be short i cant align the blocks to start and end of the line, in that case i need to align as per the image.

I know i'm asking too much things, but atleast i can learn something using your codes.

 

Thanks.

 

 

 

It can all be in one lisp, it just needs a lot more code and a way of choosing the option. We can call the options "Above" "Below" Over" and "Ends"

[CADZealot]

Quote

It can all be in one lisp, it just needs a lot more code and a way of choosing the option. We can call the options "Above" "Below" Over" and "Ends"

Yes, that would be good 

[BIGAL]

To Cadzealot like Dlanorh we can call the options "Above" "Below" Over" and "Ends" the idea is that the dcl is a library function that can be used in any code. It loads the lisp file and creates a DCL on the fly for a more visual input. You just change the 3rd line list 1st item is heading, than as many as you want '("Yes or No" "Yes" "No")

 

If you want to run save "Multi radio buttons.lsp" to a location in your Autocad support paths. Or drag and drop onto Autocad 1st from explorer then paste the 3 lines to the command line.

you should see what you picked "Above" on command line or type  !ans on command line.

 

(setq ans (ah:butts but "v"  '("Choose" "Above Middle" "Below Middle" "Above Ends" "Below Ends" "Above-Below")))

Edited December 3, 2019 by BIGAL

[dlanorh]

On 03/12/2019 at 13:49, CADZealot said:

Yes, that would be good 

 

OK. Probably won't have anything before the end of the week as I'm away on site visits at the moment. I can code but not test.

[CADZealot]

14 hours ago, dlanorh said:

 

OK. Probably won't have anything before the end of the week as I'm away on site visits at the moment. I can code but not test.

Okay Dlanorh, if you give the code i can test that.

[dlanorh]

20 hours ago, CADZealot said:

Okay Dlanorh, if you give the code i can test that.

 

Attached is minimally tested Lisp. This makes use of the dynamic prompt to display the options "Above" "Below" "On" "Ends". I have substituted "On" for "Over" as Over could be construed as above. It will only work with your blocks and the block scale is 1. I will try to tweak this to work with different block scalings, but 1 was the first step.

AB2L-V3.lsp

[CADZealot]

This is Amazing... working perfectly...

Thank you so much