Making a polyline box with lisp

[lesliematt]

disregard this, posted in wrong section

[rkmcswain]

How about just scripting the ._Rectang command. It has optional prompts for length and width, and width of the polyline itself...



(vl-cmdf "._rectang"
"_W"
"2.0"
(setq tmp (getpoint "\n Select start point: "))
"_D"
(getdist "\nEnter length: ")
(getdist "\nEnter width: ")
(getcorner tmp "\n Select other point: ")
)