你可以尝试这样的东西来开始。您需要将目录更改为指向块所在的位置，并在setq中输入“blk”。
(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" "c:\\Users\\CAD\\" "dwg" 10);; CHANGE AS NEEDED
)
(command "._insert" blk "_non" offxy "" "" "")
(command "._array" (entlast) "" "R" rows cols y x)
(princ)
)
页:
1
[2]