用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)效果图。