cad炸开图块_cad炸开
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炸开这篇文章的一些介绍，希望对大家有所帮助。
标签：
为您推荐
-
人民网杭州9月17日电 （记者孙博洋）9月16日至17日，中国质量（杭州）大会在浙江杭州举行。在16日举行...
2021-09-18