;; Calculate spacing (setq x-spacing (/ width (1- cols))) (setq y-spacing (/ height (1- rows)))
(princ (strcat "\nDone. " (itoa total-points) " points created."))
includes an optional Z-axis sine wave pattern – replace the math with your own elevation data (e.g., from a CSV file or formula). raster autocad
;; Get number of rows and columns (initget 7) ; Non-zero, non-negative, no enter (setq cols (getint "\nNumber of columns (horizontal divisions): ")) (initget 7) (setq rows (getint "\nNumber of rows (vertical divisions): "))
(command "_.UNDO" "_END") (setvar "cmdecho" 1) (princ) ) ;; Calculate spacing (setq x-spacing (/ width (1-
;; Loop through rows (Y direction) and columns (X direction) (setq i 0) ; row index (while (< i rows) (setq y-pos (+ (cadr p1) (* i y-spacing))) (setq j 0) ; col index (while (< j cols) (setq x-pos (+ (car p1) (* j x-spacing))) ;; Create point at (x-pos, y-pos, elevation z from p1) (setq point-obj (command "_.POINT" (list x-pos y-pos (caddr p1)))) (setq j (1+ j)) ) (setq i (1+ i)) )
(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") from a CSV file or formula).
;; --- Generate Raster Points --- (setq pt-list '()) (setq total-points (* rows cols)) (princ (strcat "\nGenerating " (itoa total-points) " points..."))
