CAD多重插入引用分解方法-工程

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《CAD多重插入引用分解方法-工程》，欢迎阅读！

CAD多重插入引用分解方法-工程



把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解，



(DEFUNC:exm() (setvar"cmdecho"0)

(SETQSTM(car(ENTSEL"\n点取多重块"))) (whilestm

(setqe(entgetstm)) (setqstlx(cdr(assoc0e))) (if(=stlx"INSERT") (PROGN

(setqr_zm70(assoc70e)) (setqc_zm71(assoc71e)) (setqr_dist_zm44(assoc44e)) (setqc_dist_zm45(assoc45e))

(setqe(subst(cons440)r_dist_zm44e)) (setqe(subst(cons450)c_dist_zm45e)) (setqe(subst(cons700)r_zm70e)) (setqe(subst(cons710)c_zm71e))


(setqe(subst(list100"AcDbBlockReference")(list100"AcDbMInsertBlock")e))

(entmakee) (entdelstm) ))

(SETQSTM(car(ENTSEL"\n点取下一多重块"))) )

(setvar"cmdecho"1) )

;;--------------------------------------------------------------------

;;转换“普通块”为“多重插入块” (DEFUNC:lockb() (setvar"cmdecho"0)

(SETQSTM(car(ENTSEL"\n点取块"))) (whilestm

(setqe(entgetstm)) (setqstlx(cdr(assoc0e))) (if(=stlx"INSERT") (PROGN

(setqr_zm70(assoc70e)) (setqc_zm71(assoc71e))

(setqe(subst(cons701)r_zm70e))


(setqe(subst(cons711)c_zm71e))

(setqe(subst(list100"AcDbMInsertBlock")(list100"AcDbBlockReference")e))

(entmakee) (entdelstm) ))

(SETQSTM(car(ENTSEL"\n点取下一块"))) )

(setvar"cmdecho"1) )

本文来源：https://www.dy1993.cn/TVp.html