;;; 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.
;; 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.") ) ) raster autocad
;; Calculate spacing (setq x-spacing (/ width (1- cols))) (setq y-spacing (/ height (1- rows))) ;;; RASTER
(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") [Yes/No] <No>: ") "Yes") (progn (command "_