Equal Divide without drawing a line
Much more of that could be automated, if you like. If your image is of one edge of a rectangle, a routine could ask for just the two opposite corners, or even just the two edge sizes, and could construct the whole thing, not just space the no-more-than-12"-apart Circles [it looks like that's what they are -- grommets? -- not Points], but draw the whole perimeter, the Chamfered corners, the hidden-line parts [hemmed edges?], the other Circles closer to the corners, even the Dimensions, and also the Layers involved. [It would require knowing a few more dimensions that aren't shown in the image, such as the positioning of the "other" Circles, the width of the hemmed edge, etc.]
But if you really only need the one string of Circles, and since your 12" maximum sounds like a standard [no need to ask for the maximum spacing], it can be simpler:
(defun C:DIVDC12 (/ cc1 cc2 range spcs spc)
; = DIVide Distance [not object] using Circles max. 12" apart
(setq
cc1 (getpoint "\nOne end of range: ")
cc2 (getpoint "\nOther end: ")
range (distance cc1 cc2)
spcs (+ (fix (/ range 12)) (if (equal (rem range 12) 0 1e-4) 0 1))
spc (/ range spcs)
); setq
(command "_.circle" "_none" cc1 0.125); assumption -- EDIT radius to your value
(repeat spcs
(command "_.circle" "_none" (polar (getvar 'lastpoint) (angle cc1 cc2) spc) 0.125)
); repeat
(princ)
); defun
@pallen9JA6T wrote:
... when you repeat the command, it remembers the previously entered "max. dist", but will allow you to change if needed (similar to how the offset and the circle command works)?
Here's how I'd do that. I stayed with the Circles in the original image, and you can do the same kind of prompt and default for the radius of those if you want. Or if you really want them to be Points, or Blocks if that's what those Circles are, that's an easy adjustment.
(defun C:DIVDCM (/ cc1 cc2 range spcs spc)
; = DIVide Distance [not object] using Circles, at user-specified Maximum spacing
(initget (if *DIVDCmax* 6 7)); no zero, no negative, no Enter on first use
(setq
*DIVDCmax* ; global variable with routine-specific name
(cond
( (getdist ; returns nil on Enter when permitted
(strcat
"\nMaximum Circle spacing"
(if *DIVDCmax* (strcat " <" (rtos *DIVDCmax*) ">") "")
": "
); strcat
); getdist
); User-input condition
(*DIVDCmax*); prior value if present, on Enter
); cond & *DIVDCmax*
cc1 (getpoint "\nOne end of range: ")
cc2 (getpoint "\nOther end: ")
range (distance cc1 cc2)
spcs (+ (fix (/ range *DIVDCmax*)) (if (equal (rem range *DIVDCmax*) 0 1e-4) 0 1))
spc (/ range spcs)
); setq
(command "_.circle" "_none" cc1 0.125); assumption -- EDIT radius to your value
(repeat spcs
(command "_.circle" "_none" (polar (getvar 'lastpoint) (angle cc1 cc2) spc) 0.125)
); repeat
(princ)
); defun
The use of (getdist) [as opposed to (getreal) in @serag.hassouna' routine] means that you can also enter the distance by picking two points on-screen, or by typing in a distance involving feet, and/or fractions, none of which options are available with (getreal), which allows only an integer or decimal number.
The routine-specific variable name for that maximum distance is so that it's not likely to be replaced by the operation of any other AutoLisp routine. If, for example, it was called simply 'max,' that name might also be used in something else, and if you then came back to this, the default would be wrong. [The * before and after the name is just a convention some people use to distinguish global variable names. Sometimes I use one only before, some people use _ instead, etc. -- completely arbitrary and expendable.]
@pallen9JA6T wrote:
This works, except for I need points instead of circle. .... Also, is it possible to change from 12" maximum to 16" maximum (if needed)?
I assume you're referring to my first routine, since in the second, you can specify whatever maximum spacing you want. But here's the Point version of the User-specificable-maximum version, remembering that as default:
(defun C:DIVDPM (/ cc1 cc2 range spcs spc)
; = DIVide Distance [not object] using Points, at user-specified Maximum spacing
(initget (if *DIVDPmax* 6 7)); no zero, no negative, no Enter on first use
(setq
*DIVDPmax* ; global variable with routine-specific name
(cond
( (getdist ; returns nil on Enter when permitted
(strcat
"\nMaximum Point spacing"
(if *DIVDPmax* (strcat " <" (rtos *DIVDPmax*) ">") "")
": "
); strcat
); getdist
); User-input condition
(*DIVDPmax*); prior value if present, on Enter
); cond & *DIVDPmax*
p1 (getpoint "\nOne end of range: ")
p2 (getpoint "\nOther end: ")
range (distance p1 p2)
spcs (+ (fix (/ range *DIVDPmax*)) (if (equal (rem range *DIVDPmax*) 0 1e-4) 0 1))
spc (/ range spcs)
); setq
(command "_.point" "_none" p1)
(repeat spcs
(command "_.point" "_none" (polar (getvar 'lastpoint) (angle p1 p2) spc))
); repeat
(princ)
); defun
@pallen9JA6T wrote:
.... revise it to omit the point on each of the "range"....
Try this revision:
(defun C:DIVDPM (/ cc1 cc2 range spcs spc)
; = DIVide Distance [not object] using Points, at user-specified Maximum spacing
(initget (if *DIVDPmax* 6 7)); no zero, no negative, no Enter on first use
(setq
*DIVDPmax* ; global variable with routine-specific name
(cond
( (getdist ; returns nil on Enter when permitted
(strcat
"\nMaximum Point spacing"
(if *DIVDPmax* (strcat " <" (rtos *DIVDPmax*) ">") "")
": "
); strcat
); getdist
); User-input condition
(*DIVDPmax*); prior value if present, on Enter
); cond & *DIVDPmax*
p1 (getpoint "\nOne end of range: ")
p2 (getpoint "\nOther end: ")
range (distance p1 p2)
spcs (+ (fix (/ range *DIVDPmax*)) (if (equal (rem range *DIVDPmax*) 0 1e-4) 0 1))
spc (/ range spcs)
); setq
(setvar 'lastpoint p1); kind of interesting that that's allowed...
(repeat (1- spcs)
(command "_.point" "_none" (polar (getvar 'lastpoint) (angle p1 p2) spc))
); repeat
(princ)
); defun
