图块插入 已解决英寸块的问题

cq4920

;;块插入
(defun Mc:IBLOCK(NAME / BL)
        (COMMAND "ATTREQ" "0")
        (COMMAND "INSERT" NAME '(0 0) "1" "1" "0")
        (setq bl (/ 1 (cdr (assoc 41 (entget (entlast))))))
        (COMMAND "SCALE" (entlast) "" '(0 0)  bl)
        (COMMAND "copybase" "non" '(0 0) (entlast) "" "ERASE" (entlast) "" "PASTECLIP" pause)(princ))

每次插入块 多少有点卡顿，是不是得换 entmake 插入？

烟盒迷唇

如果块不带属性值，可以用entmake插入提高速度。