1、将下面的程序复制到TXT文件中，并保存为exm.lsp文件。保存下图

2、该过程如下：

(资料图)

3、;-------------------------------------------------------------

4、；将“多重插入块”转换为“普通块”。

5、(DEFUN C:exm ()

6、(setvar "cmdecho" 0)

7、(SETQ STM(车辆(ENTSEL " \ n)neh men Sie mehrere bl cke"()

8、(while stm

9、(setq e (entget stm))

10、(setq stlx (cdr (assoc 0 e)))

11、(if (=stlx "INSERT")

12、(PROGN

13、(setq r_zm70 (assoc 70 e))

14、(setq c_zm71 (assoc 71 e))

15、(setq r_dist_zm44 (assoc 44 e))

16、(setq c_dist_zm45 (assoc 45 e))

17、(setq e (subst (cons 44 0) r_dist_zm44 e))

18、(setq e (subst (cons 45 0) c_dist_zm45 e))

19、(setq e (subst (cons 70 0) r_zm70 e))

20、(setq e (subst (cons 71 0) c_zm71 e))

21、(setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e))

22、(entmake e)

23、(entdel stm)

24、))

25、(setqstm(car(entsel " \ n单击获取下一个多块"))

26、)

27、(setvar "cmdecho" 1)

28、)

29、如图所示，它是一个“多插入块”

30、步骤1:加载刚刚保存的exm.lsp文件。

31、当提示加载完成时关闭。

32、输入“exm”命令。

33、按照提示选择多个块。

34、然后，按空格键终止命令。

35、输入‘x’分手，就OK了。

36、效果图。

以上就是cad炸开这篇文章的一些介绍，希望对大家有所帮助。

关键词