/
stmestlx r _ zm70c _ zm 71r _ dist _ zm44c _ dist _ zm45
)
(setvar "cmdecho" 0)
(setqstm(car(entsel 1 " \ n請選擇加密塊解鎖(無法爆炸):")。
(而stm
(setq e (entget stm))
(setq stlx (cdr (assoc 0 e)))
(如果(= stlx“插入”)
(程序
(setq r_zm70 (assoc 70 e))
(setq c _ zm 71(assoc 71 e))
(setq r_dist_zm44 (assoc 44 e))
(setq c_dist_zm45 (assoc 45 e))
(setq e(subst(cons 44 0)r _ dist _ zm44 e))
(setq e(subst(cons 45 0)c _ dist _ zm45 e))
(setq e (subst (cons 70 0) r_zm70 e))
(setq e(subst(cons 71 0)c _ zm 71 e))
(setq e(subst(list 100 " acdbblockreference ")(list 100 " acdbminsertblock ")e))
(entmake e)
(entdel stm)
(王子“\ n操作成功!”)
)
)
(setqstm(car(entsel 1 " \ n請選擇加密塊解鎖(無法爆炸):")。
)
(setvar "cmdecho" 1)
(prin1)
)
;;-
;;將“普通塊”轉換為“多重插入塊”
(defun c:sdk(
/
stme stlxr _ zm70c _ zm 71
)
(setvar "cmdecho" 0)
(setqstm(car(entsel 1 " \ n請選擇壹個普通塊進行鎖定(無法爆炸):")。
(而stm
(setq e (entget stm))
(setq stlx (cdr (assoc 0 e)))
(如果(= stlx“插入”)
(程序
(setq r_zm70 (assoc 70 e))
(setq c _ zm 71(assoc 71 e))
(setq e(subst(cons 70 1)r _ zm70 e))
(setq e(subst(cons 71 1)c _ zm 71 e))
(setq e(subst(list 100 " acdbminsertblock ")(list 100 " acdbblockreference ")e))
(entmake e)
(entdel stm)
(王子“\ n操作成功!”)
)
)
(setqstm(car(entsel 1 " \ n請選擇壹個普通塊進行鎖定(無法爆炸):")。
)
(setvar "cmdecho" 1)
(prin1)
)