Creat rectangel and insert with defrent insertion point
That looked like a potentially useful function [I have had a command for a while to draw a Rectangle about a specified mid-point, but the other justification options seemed worthwhile], so I came up with the attached RectJust.lsp with its eponymous command name. See the comments at the top.
Note that it does one thing a little differently than in your description. It doesn't ask for an "insertion point" in isolation, but it draws a rectangle in mid-screen based on the specified dimensions and justification, and then you MOVE it with the "insertion point" as the base point, so you see it drawn as you drag it into position.
I tried your code a couple of suggestions, add a osnap off (setvar 'osmode 0) if osnap is set and your at a zoomed out scale it will draw what appears to be a line as the ends will snap together. It also failed to run a second time after I turned off osnap. so something not resetting correctly. I think its your use of def repeatedly you need to set the def to say def1 def2 def3 etc you are mixing strings and reals in your code.
: (LOAD "C:/Users/seaha/Downloads/crec-extra.lsp")C:CREC
: CREC
Rectangle length: <20>:
Rectangle width: <10>:
; ----- LISP : Call Stack -----
; [0]...C:CREC
; [1].....ASKJUSTIFY <<--
;
; ----- Error around expression -----
; (STRCAT "
Justify options [TL/TC/TL/ML/MC/MR/BL/BC/BR] <" DEF ">: ")
;
; error : bad argument type <0.0> ; expected <STRING> at [strcat]
Re input I would look at a dcl, you can have edit boxes for values and say radio buttons for the justification. A good task to learn about custom dcl's. I have something for the 9 radio buttons to find which one has been ticked on.
@abdulellah.alattab wrote:
.... The problem with Mr. Kent's version is that it is mentally annoying to have a rubber line in the middle of the screen ....
For that aspect of it, attached is RectJust2.lsp, which does not have the annoying rubber-band line or source location showing, but still lets you see the rectangle drawn at the specified size and justification as you go to place its "insertion point" where you want it.
If you like that part of it, I can add the post-insertion Move option and the fill option.
[DRAGMODE must be set to AUTO. If you don't always have it that way, it can be built into the command.]
@abdulellah.alattab wrote:
... I was comfortable with the idea of rotating with the mouse movement, .... add the possibility of adding displacement values .....
For that part, should the displacement values be asked for before or after the rotation? I expect if the rotation is anything other than orthogonal, subsequent raw X and Y displacement values will be meaningless, but they should be relative to the angle of the rotation, not to the X and Y axes. But maybe you only ever do things orthogonally.
