;; Calculate dimensions (setq width (abs (- (car p2) (car p1))) height (abs (- (cadr p2) (cadr p1))) )
;; Check if spacing is too small (if (or (< x-spacing 0.001) (< y-spacing 0.001)) (progn (princ "\nError: Spacing too small. Increase grid size or reduce rows/columns.") (exit) ) ) raster autocad
(defun c:RASTERGRID (/ p1 p2 width height rows cols x-spacing y-spacing i j x-pos y-pos pt-list point-obj total-points) (setvar "cmdecho" 0) (command "_.UNDO" "_BEGIN") ;; Calculate dimensions (setq width (abs (- (car