Autocad | Raster

;; --- Generate Raster Points --- (setq pt-list '()) (setq total-points (* rows cols)) (princ (strcat "\nGenerating " (itoa total-points) " points..."))

(princ (strcat "\nDone. " (itoa total-points) " points created."))

;;; RASTER.LSP ;;; Generates a raster grid of points (or 3D faces) in AutoCAD. ;;; Command: RASTERGRID ;;; Author: AI Assistant ;;; Description: Creates a rectangular grid of points based on user inputs ;;; for origin, width, height, and row/column counts. 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): "))

;; 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) ) ) ;; --- Generate Raster Points --- (setq pt-list

(command "_.UNDO" "_END") (setvar "cmdecho" 1) (princ) )

;; --- User Input --- (princ "\nSpecify first corner of raster area: ") (setq p1 (getpoint "\nPick first corner: ")) (if (null p1) (exit)) (setq p2 (getcorner p1 "\nSpecify opposite corner: ")) (if (null p2) (exit)) ;; Get number of rows and columns (initget

;; Optional: Create a polyline border around the grid (initget "Yes No") (if (= (getkword "\nDraw border around grid? [Yes/No] <No>: ") "Yes") (progn (command "_.PLINE" (list (car p1) (cadr p1) (caddr p1)) (list (car p2) (cadr p1) (caddr p1)) (list (car p2) (cadr p2) (caddr p1)) (list (car p1) (cadr p2) (caddr p1)) "_C") (princ "\nBorder drawn.") ) )