Portable | Raster Autocad

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

(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") raster autocad

;; --- 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)) (command "_