用LSP程序炸開cad圖紙裏的多重插入塊。
操作方法
(01)將以下程序複製到TXT文件中,然後另存爲文件。保存如下圖
(02)程序如下:;;-------------------------------------------------------------;;轉換“多重插入塊”爲“普通塊”。(DEFUN C:exm ()(setvar "cmdecho" 0)(SETQ STM (car (ENTSEL "n點取多重塊")))(while stm(setq e (entget stm))(setq stlx (cdr (assoc 0 e)))(if (= stlx "INSERT")(PROGN(setq r_zm70 (assoc 70 e))(setq c_zm71 (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_zm71 e))(setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e))(entmake e)(entdel stm)))(SETQ STM (car (ENTSEL "n點取下一多重塊"))))(setvar "cmdecho" 1))
(03)如圖是“多重插入塊”
(04)第一步:加載剛保存的文件。
(05)提示加載完成後,關閉。
(06)輸入“exm"命令
(07)按提示操作,選擇多重塊。
(08)然後,按空格,終止命令。
(09)輸入"x"打散,就OK了。
(10)效果圖。