LISP Code for Rectangle With Radiused Corners

[Bill Tillman]

I'm looking for a method using VLISP to draw a rectangle with radiused corners, all for of them. I can do a standard rectangle no problem but we have a need to have the corners radiused. Picking the location with GETPOINT is also no trouble. If I recall there is a way to do this using VLISP. The code will contain a few variables for the height and width and the location. But how does one get the corners to radius. Or would drawings a polyline be a better method?

 

Okay, a little testing and I think I have it. Will report back once I'm at a computer where one can do LISP coding without interference.

 

 

Edited January 19, 2023 by Bill Tillman

[mhupp]

1. Rectangle p1 p2
2. ask for fillet radius
3. fillet command with polyline option
4. profit ??

[Tharwat]

The RECTANG command is already have fillet option within so you need to specify it only once then draw the rectangle required.

[devitg]

Command: RECTANG

Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]: f
Specify fillet radius for rectangles <10.0000>:
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
Specify other corner point or [Area/Dimensions/Rotation]:

[BIGAL]

(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter values " "Length " 5 4 "20" "Height " 5 4 "5" "Radius " 5 4 "2" )))
(setq len (atof (car ans)) ht (atof (cadr ans)) rad (atof (caddr ans)))

Bill pretty sure you have a copy of multi getvals.lsp