[编程交流] d之间的天花板扩散器

(defun c:X2X (/ blk rows cols pt1 pt2 rmhgt rmwdth x y offxy)
(setq rows (getint "\nEnter Number of ROWS: ")
     cols (getint "\nEnter Number of COLUMNS: ")
     pt1 (getpoint "\nPick Lower Left Point: ")
     pt2 (getpoint pt1 "\nPick Upper Right Point: ")
     rmhgt (- (cadr pt2)(cadr pt1))
     rmwdth (-(car pt2)(car pt1))
     x (/ rmwdth cols)
     y (/ rmhgt rows)
     offxy (list (+ (car pt1) (/ x 2)) (+ (cadr pt1) (/ y 2)))
     blk (getfiled "Select Block to Insert" [color=red]"c:\\Users\\CAD\"[color=black] "dwg"[/color][/color] 10)[color=red];; CHANGE AS NEEDED[/color]
)
(command "._insert" blk "_non" offxy "" "" "")
(command "._array" (entlast) "" "R" rows cols y x)
(princ)
)