AutoCAD关于“多重插入引用”(多重块)的分解

AutoCAD关于“多重插入引用”（多重块）的分解

今天上班遇到一个棘手的问题，由设计院发的CAD图打开后显示为一整个块，用“ｘ”命令分解不了，命令行显示“１为多重插入引用”。经过在网上搜寻，终于解决了问题。引用如下：

【图形被加密的解锁方法】

将下面的代码复制在记事本内，另存为unlk.lsp文件，打开这张不能修改的图纸，命令appload选择加载程序文件unlk.lsp，命令行键入unlk，选择不能修改的图形。。。

(defun c:unlk (/ en ent)

(setq en (entsel "\n请选择被加密的图形:"))

(if en

(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT"

)

(progn

(setq ent (entmakex

(list '(0 . "INSERT")

(assoc 2 ent)

(assoc 10 ent)

)

)

)

(command "_.explode" (entlast))

(entdel en)

)

)

)

(princ "\nOK，解密成功。")

(princ)

)

1.1.1 CAD多重插入引用炸开方法

2009-10-20 11:29:15| 分类：默认分类| 标签：|字号大中小订阅

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

(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)

)

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

;;转换“普通块”为“多重插入块”

(DEFUN C:lockb ()

(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 e (subst (cons 70 1) r_zm70 e))

(setq e (subst (cons 71 1) c_zm71 e))

(setq e (subst (list 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e)) (entmake e)

(entdel stm)

))

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

)

(setvar "cmdecho" 1)

)

2使用“exm.lsp”解密或加密为“多重插入块”目前很多CAD图件运用“插入多重插入块”的方法，

加密，

造成部分图件中的块，无法炸开，

网上游很多破解方法，现将自编lsp程序的方法罗列如下，希望对大家有帮助。

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

lsp源代码：

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

;;转换“多重插入块”为“普通块”。

(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)

)

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

;;转换“普通块”为“多重插入块”

(DEFUN C:lockb ()

(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 e (subst (cons 70 1) r_zm70 e))

(setq e (subst (cons 71 1) c_zm71 e))

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

(entmake e)

(entdel stm)

))

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

)

(setvar "cmdecho" 1)

)

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

如果不愿弄，下面有现成的，请大家试用。。。支持Win7，CAD2010。。。。

炸开“多重插入引用”的方法以及制作

1.“多重插入引用”的制作：

用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图名，然后到提示行数或列数时，输入2以上，但行距或列距输入0。这样一个多重插入引用制作完成，无法用explode炸开了。

多重块不是重复定义块，而是在矩形阵列中插入一个块的多重引用。多重块是由命令minsert插入一个块而形成，其在正常情况下不能被分解。但若是用普通的方法构建的多重块，可以删除掉，然后用insert再插入它原来引用的块即可。不过，若它原来引用的块是匿名块（即名称前带*的块，只能用程序构建），就不是那么简单的了。这是，你就需要程序（或者说插件）来还原。vlx程序就是一个插件。也就是我上面说的编程实现。若不会编程，也没有插件，下面的方法四（方法三也可以实现）。

2.炸开方法如下：

方法一：

点击这个多重引用，看它的名字，然后再用minsert命令，插入这个名字，只不过都按默认的行数（1行）列数一直回车。这样插入的这个块就可以炸开了。

方法二：

双击这个块，出现参照编辑对话框，点确定，出现参照编辑工具条；用explode炸开；然后点击参照编辑工具条从工作集删除对象，选中所有图形，回车；再点击参照编辑工具条上的放弃对参照的修改。此时再用explode就可以炸开了。

方法三:

1、打开原文件后，输出为*.wmf文件，

2、新建空*.DWG文件，插入*.wmf文件，

3、输入另外一个炸开命令：xplode回车

4、选图层（TA），大功告成。可惜的是文字都炸开了，填充也炸了，图层只有一个，而且文件比较大。附

件为wmf文件

方法四：1、在任何版本中打开图件（只要能打的开就行）

2、选中图，打开属性对话框，将行和列均改为1。

3、另存为R14以下（包括R14）版本格式。

4、打开R14，打开刚才另存的图，保存。（记住，这步尤其重要，必须是R14不能是cad2002及以上版本）

好了，你再用任何版本的cad打开看看。

另外一种方法就是编程，直接炸开即可。

红外图谱分析方法大全

红外光谱图解析 一、分析红外谱图 （1）首先依据谱图推出化合物碳架类型，根据分子式计算不饱和度。 公式：不饱和度＝F+1+(T-O)/2 其中： F：化合价为4价的原子个数（主要是C原子）； T：化合价为3价的原子个数（主要是N原子）； O：化合价为1价的原子个数（主要是H原子）。 F、T、O分别是英文4,3 1的首字母，这样记起来就不会忘了 举个例子：例如苯（C6H6），不饱和度＝6+1+（0-6）/2＝4，3个双键加一个环，正好为4个不饱和度。 （2）分析3300~2800cm^-1区域C-H伸缩振动吸收，以3000 cm^-1为界，高于3000cm^-1为不饱和碳C-H伸缩振动吸收，有可能为烯、炔、芳香化合物吗，而低于3000cm^-1一般为饱和C-H伸缩振动吸收。 （3）若在稍高于3000cm^-1有吸收，则应在2250~1450cm^-1频区，分析不饱和碳碳键的伸缩振动吸收特征峰，其中： 炔—2200~2100 cm^-1 烯—1680~1640 cm^-1 芳环—1600、1580、1500、1450 cm^-1 若已确定为烯或芳香化合物，则应进一步解析指纹区，即1000~650cm^-1的频区，以确定取代基个数和位置（顺反，邻、间、对）。 （4）碳骨架类型确定后，再依据其他官能团，如C=O，O-H，C-N 等特征吸收来判定化合物的官能团。 （5）解析时应注意把描述各官能团的相关峰联系起来，以准确判定官能团的存在，如2820、2720和1750~1700cm^-1的三个峰，说明醛基的存在。解析的过程基本就是这样吧，至于制样以及红外谱图软件的使用，一般的有机实验书上都有比较详细的介绍的。 二、记住常见常用的健值 1.烷烃 3000-2850 cm-1C-H伸缩振动 1465-1340 cm-1C-H弯曲振动 一般饱和烃C-H伸缩均在3000 cm-1以下，接近3000 cm-1的频率吸收。 2.烯烃 3100~3010 cm-1烯烃C-H伸缩 1675~1640 cm-1C=C伸缩 烯烃C-H面外弯曲振动（1000~675cm^1）。 3.炔烃 2250~2100 cm-1C≡C伸缩振动 3300 cm-1附近炔烃C-H伸缩振动 4.芳烃 3100~3000 cm-1芳环上C-H伸缩振动 1600~1450 cm-1C=C 骨架振动 880~680 cm-1C-H面外弯曲振动) 芳香化合物重要特征：一般在1600，1580，1500和1450 cm-1可能出现强度不等的4

红外谱图峰位分析方法

红外谱图分析（一） 基团频率和特征吸收峰 物质的红外光谱，是其分子结构的反映，谱图中的吸收峰，与分子中各基团的振动形式相对应。多原子分子的红外光谱与其结构的关系，一般是通过实验手段得到的。这就是通过比较大量已知化合物的红外光谱，从中总结出各种基团的吸收规律来。实验表明，组成分子的各种基团，如O—H、N—H、C—H、C═C、C≡C、C═O等，都有自己特定的红外吸收区域，分子其它部分对其吸收位置影响较小。通常把这种能代表基团存在、并有较高强度的吸收谱带称为基团频率，其所在的位置一般又称为特征吸收峰。 根据化学键的性质，结合波数与力常数、折合质量之间的关系，可将红外4 000～400 cm-1划分为四个区：4 000~2 500 cm-1 氢键区 2 500~2 000 cm-1 产生吸收基团有O—H、C—H、N—H； 叁键区 2 000~1 500 cm-1 C≡C、C≡N、C═C═C 双键区 1 500~1 000 cm-1 C═C、C═O等 单键区 按吸收的特征，又可划分为官能团区和指纹区。 一、官能团区和指纹区 红外光谱的整个围可分成4 000~1 300 cm-1与1 300~600 cm-1两个区域。 4 000~1 300 cm-1区域的峰是由伸缩振动产生的吸收带。由于基团的特征吸收峰一般位于高频围，并且在 该区域，吸收峰比较稀疏，因此，它是基团鉴定工作最有价值的区域，称为官能团区。 在1 300~600 cm-1区域中，除单键的伸缩振动外，还有因变形振动产生的复杂光谱。当分子结构稍有不同时，该区的吸收就有细微的差异。这种情况就像每个人都有不同的指纹一样，因而称为指纹区。指纹区 对于区别结构类似的化合物很有帮助。 指纹区可分为两个波段 （1）1 300~900 cm-1这一区域包括C—O，C—N，C—F，C—P，C—S，P—O，Si—O等键的伸缩振 动和C═S，S═O，P═O等双键的伸缩振动吸收。

CAD多重插入引用_炸开方法(加密解密)

CAD加密解密多重插入引用炸开方法 AutoCad 2009-09-12 13:08:21 阅读3093 评论8 字号：大中小订阅 CAD多重插入引用炸开方法～【亲测】 现在越来越多的人喜欢加密图了。 多重插入引用就是经常会使用的图纸加密技术，永远无法解开的死锁。 方法一： 有两个好工具，可以轻松炸开。一个是AutoCAD 快速加载AutoLISP 文件：wjjm；另一个cad加密插件，请大家使用。 具体方法： AutoCAD 快速加载AutoLISP 文件wjjm的使用：用cad打开需要炸开的文件，将wjjm直接拖入cad窗口，命令行输入wjmm，回车后按提示操作即可。 操作步骤：①于CAD中，选择：“工具”菜单→“加载应用程序”选项。 ②于对话框中选择文件“wjjm”，进行应用程序加载。 ③于CAD命令行中，输入“wjjm”命令，然后选择需要保护的图块，随便点击即可取消保护。 方法二： 输入“CYN-”，将多重插入块转换为普通快，然后可以炸开编辑 方法三： 把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块” ;;------------------------------------------------------------- ;;转换“多重插入块”为“普通块”。 (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)

AutoCAD关于“多重插入引用”(多重块)的分解[1]

AutoCAD关于“多重插入引用”（多重块）的分解 今天上班遇到一个棘手的问题，由设计院发的CAD图打开后显示为一整个块，用“ｘ”命令分解不了，命令行显示“１为多重插入引用”。经过在网上搜寻，终于解决了问题。引用如下： 【图形被加密的解锁方法】 将下面的代码复制在记事本内，另存为unlk.lsp文件，打开这张不能修改的图纸，命令appload选择加载程序文件unlk.lsp，命令行键入unlk，选择不能修改的图形。。。 (defun c:unlk (/ en ent) (setq en (entsel "\n请选择被加密的图形:")) (if en (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT" ) (progn (setq ent (entmakex (list '(0 . "INSERT") (assoc 2 ent) (assoc 10 ent) )

) ) (command "_.explode" (entlast)) (entdel en) ) ) ) (princ "\nOK，解密成功。") (princ) )

“多重插入引用”的制作：用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图 名，然后到提示行数或列数时，输入2以上，但行距或列距输入0。这样一个多重插入引用制作完 成，无法用explode炸开了。多重块不是重复定义块，而是在矩形阵列中插入一个块的多重引用。 多重块是由命令minsert插入一个块而形成，其在正常情况下不能被分解。 像地图上的比例尺,建筑图一般较大,要想在一张小的图上显 示,就要用到缩小比例,1:20,是你图上的1个单位尺寸,等于实际中的2 0个单位尺寸,画图用1:1,但出图纸时要看你要将图纸缩小多少倍才能在你那张图中显示.

NMR常见溶剂峰和水峰

注：JHD为溶剂本身的其他1H对与之相对应的1H之间的耦合常数，JCD为溶剂本身1H对13C的耦合常数，H2O和交换了D的HOD上的1H产生的即水峰的化学位移 氯仿：小、中小、中等极性 DMSO：芳香系统（日光下自然显色、紫外荧光）。对于酚羟基能够出峰。芳香化合物还是芳香甙，都为首选。 吡啶：极性大的，特别是皂甙 对低、中极性的样品，最常采用氘代氯仿作溶剂，因其价格远低于其它氘代试剂。极性大的化合物可采用氘代丙酮、重水等。 针对一些特殊的样品，可采用相应的氘代试剂：如氘代苯（用于芳香化合物、芳香高聚物）、氘代二甲基亚砜（用于某些在一般溶剂中难溶的物质）、氘代吡啶（用于难溶的酸性或芳香化合物）等。 丙酮：中等极性 甲醇：极性大 氯仿—甲醇： 石：乙 5；1小极性 石：丙 2：1——1：1中等极性 氯仿：甲醇6：1极性以上含有一个糖 2：1 含有两个糖 含有糖的三萜皂甙：一般用吡啶

常见溶剂的化学位移 常见溶剂的1H在不同氘代溶剂中的化学位移值

常见溶剂的化学位移 常见溶剂的13C在不同氘代溶剂中的化学位移值

核磁知识(NMR) 一：样品量的选择 氢谱，氟谱，碳谱至少需要5mg. 1H-1H COSY, 1H-1H NOESY, 1H-13C HMBC, 1H-13C HSQC需要10-15mg. 碳谱需要30mg. 二：如何选择氘代溶剂 常用氘代溶剂: CDCl3, DMSO, D2O, CD3OD.特殊氘代溶剂: CD3COCD3, C6D6, CD3CN。 极性较大的化合物可以选择用D2O或CD3OD，如果想要观察活泼氢切记不能选择D2O和CD3OD。 CDCl3为人民币2-3元，D2O为人民币6元，DMSO为人民币10元，CD3OD为人民币30元。 Solvent 化学位移(ppm) 水峰位移(ppm) CDCl3 DMSO CD3OD D2O CD3COCD3

核磁谱图NMR常见溶剂峰杂质峰分析(中文版)

核磁谱图NMR常见溶剂峰杂质峰分析 常用氘代溶剂和杂质峰在1H谱中的化学位移单位：ppm 溶剂—CDCl3 (CD3)2CO (CD3)2SO C6D6 CD3CN CD3OH D2O 溶剂峰—7.26 2.05 2.49 7.16 1.94 3.31 4.80 水峰— 1.56 2.84 3.33 0.40 2.13 4.87 —乙酸— 2.10 1.96 1.91 1.55 1.96 1.99 2.08 丙酮— 2.17 2.09 2.09 1.55 2.08 2.15 2.22 乙腈— 2.10 2.05 2.07 1.55 1.96 2.03 2.06 苯—7.36 7.36 7.37 7.15 7.37 7.33 —叔丁醇 CH3 1.28 1.18 1.11 1.05 1.16 1.40 1.24 OH —— 4.19 1.55 2.18 ——叔丁基甲醚 CCH3 1.19 1.13 1.11 1.07 1.14 1.15 1.21 OCH3 3.22 3.13 3.08 3.04 3.13 3.20 3.22 氯仿—7.268.028.32 6.157.587.90—环己烷— 1.43 1.43 1.40 1.40 1.44 1.45 —1,2-二氯甲烷— 3.73 3.87 3.90 2.90 3.81 3.78 —二氯甲烷— 5.30 5.63 5.76 4.27 5.44 5.49 —乙醚 CH3(t) 1.21 1.11 1.09 1.11 1.12 1.18 1.17 CH2(q) 3.48 3.41 3.38 3.26 3.42 3.49 3.56 二甲基甲酰胺 CH 8.02 7.96 7.95 7.63 7.92 7.79 7.92 CH3 2.96 2.94 2.89 2.36 2.89 2.99 3.01 CH3 2.88 2.78 2.73 1.86 2.77 2.86 2.85 二甲基亚砜— 2.62 2.52 2.54 1.68 2.50 2.65 2.71 二氧杂环— 3.71 3.59 3.57 3.35 3.60 3.66 3.75

红外谱图解析基本知识

红外谱图解析基本知识 基团频率区 中红外光谱区可分成4000 cm-1 ~1300（1800）cm-1和1800 （1300 ）cm-1 ~ 600 cm-1两个区域。最有分析价值的基团频率在4000 cm-1 ~ 1300 cm-1 之间，这一区域称为基团频率区、官能团区或特征区。区内的峰是由伸缩振动产生的吸收带，比较稀疏，容易辨认，常用于鉴定官能团。 在1800 cm-1 （1300 cm-1 ）~600 cm-1 区域内，除单键的伸缩振动外，还有因变形振动产生的谱带。这种振动基团频率和特征吸收峰与整个分子的结构有关。当分子结构稍有不同时，该区的吸收就有细微的差异，并显示出分子特征。这种情况就像人的指纹一样，因此称为指纹区。指纹区对于指认结构类似的化合物很有帮助，而且可以作为化合物存在某种基团的旁证。 基团频率区可分为三个区域 (1) 4000 ~2500 cm-1 X-H伸缩振动区，X可以是O、N、C或S等原子。 O-H基的伸缩振动出现在3650 ~3200 cm-1 范围内，它可以作为判断有无醇类、酚类和有机酸类的重要依据。 当醇和酚溶于非极性溶剂（如CCl4），浓度于0.01mol. dm-3时，在3650 ~3580 cm-1 处出现游离O-H基的伸缩振动吸收，峰形尖锐，且没有其它吸收峰干扰，易于识别。当试样浓度增加时，羟基化合物产生缔合现象，O-H基的伸缩振动吸收峰向低波数方向位移，在3400 ~3200 cm-1 出现一个宽而强的吸收峰。 胺和酰胺的N-H伸缩振动也出现在3500~3100 cm-1 ，因此，可能会对O-H伸缩振动有干扰。 C-H的伸缩振动可分为饱和和不饱和的两种： 饱和的C-H伸缩振动出现在3000 cm-1以下，约3000~2800 cm-1 ，取代基对它们影响很小。如-CH3 基的伸缩吸收出现在2960 cm-1和2876 cm-1附近；R2CH2基的吸收在2930 cm-1 和2850 cm-1附近；R3CH基的吸收基出现在2890 cm-1 附近，但强度很弱。 不饱和的C-H伸缩振动出现在3000 cm-1以上，以此来判别化合物中是否含有不饱和的C-H键。 苯环的C-H键伸缩振动出现在3030 cm-1附近，它的特征是强度比饱和的C-H浆键稍弱，但谱带比较尖锐。 不饱和的双键=C-H的吸收出现在3010~3040 cm-1范围内，末端= CH2的吸收出现在3085 cm-1附近。 叁键oCH上的C-H伸缩振动出现在更高的区域（3300 cm-1 ）附近。 (2) 2500~1900 cm-1为叁键和累积双键区，主要包括-CoC、-CoN等叁键的伸缩振动，以及-C =C=C、-C=C=O等累积双键的不对称性伸缩振动。 对于炔烃类化合物，可以分成R-CoCH和R￠-C oC-R两种类型： R-CoCH的伸缩振动出现在2100~2140 cm-1附近； R￠-C oC-R出现在2190~2260 cm-1附近； R-C oC-R分子是对称，则为非红外活性。 -C oN 基的伸缩振动在非共轭的情况下出现2240~2260 cm-1附近。当与不饱和键或芳香核共轭时，该峰位移到2220~2230 cm-1附近。若分子中含有C、H、N原子，-C oN基吸收比较强而尖锐。若分子中含有O原子，且O原子离-C oN基越近，-C oN基的吸收越弱，甚至观察不到。

CAD分解多重引用块分解

1把以下内容用记事本保存为lsp文件（如exm.lsp）2用cad打开图 3输入命令“appload”，加载exm 4输入命令“exm”既可把“多重插入块”转换为“普通块”5然后既可用“explode”分解。 ;;转换“多重插入块”为“普通块”。 (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) )

最新核磁谱图NMR常见溶剂峰杂质峰分析_(中文版)知识讲解

测试核磁的样品一般要求比较纯，并且能够溶解在氘代试剂中，这样才能测得高分辨率的图谱。 为不干扰谱图，所用溶剂分子中的氢都应被氘取代，但难免有氢的残余（1%左右），这样就会产生溶剂峰；除了残存的质子峰外，溶剂中有时会有微量的H2O而产生水峰，而且这个H2O峰的位置也会因溶剂的不同而不同；另外，在样品（或制备过程）中，也难免会残留一些杂质，在图谱上就会有杂质峰，应注意识别。 常用氘代溶剂和杂质峰在1H谱中的化学位移单位：ppm 溶剂—CDCl3 (CD3)2CO (CD3)2SO C6D6 CD3CN CD3OH D2O 溶剂峰—7.26 2.05 2.49 7.16 1.94 3.31 4.80 水峰— 1.56 2.84 3.33 0.40 2.13 4.87 — 乙酸— 2.10 1.96 1.91 1.55 1.96 1.99 2.08 丙酮— 2.17 2.09 2.09 1.55 2.08 2.15 2.22 乙腈— 2.10 2.05 2.07 1.55 1.96 2.03 2.06 苯—7.36 7.36 7.37 7.15 7.37 7.33 — 叔丁醇CH3 1.28 1.18 1.11 1.05 1.16 1.40 1.24 OH —— 4.19 1.55 2.18 —— 叔丁基甲醚 CCH3 1.19 1.13 1.11 1.07 1.14 1.15 1.21 OCH3 3.22 3.13 3.08 3.04 3.13 3.20 3.22 氯仿—7.26 8.02 8.32 6.15 7.58 7.90 — 环己烷— 1.43 1.43 1.40 1.40 1.44 1.45 — 1,2-二氯甲烷 3.73 3.87 3.90 2.90 3.81 3.78 — 二氯甲烷— 5.30 5.63 5.76 4.27 5.44 5.49 — 乙醚 CH3(t) 1.21 1.11 1.09 1.11 1.12 1.18 1.17 CH2(q) 3.48 3.41 3.38 3.26 3.42 3.49 3.56 二甲基甲酰胺 CH 8.02 7.96 7.95 7.63 7.92 7.79 7.92 CH3 2.96 2.94 2.89 2.36 2.89 2.99 3.01 CH3 2.88 2.78 2.73 1.86 2.77 2.86 2.85 二甲基亚砜— 2.62 2.52 2.54 1.68 2.50 2.65 2.71 二氧杂环— 3.71 3.59 3.57 3.35 3.60 3.66 3.75

cad知识

1、用cad2008复制粘贴某个图，特别是当图特别大的时候就会很慢，有时程序直接死掉，只有强行结束。解决 办法是在autocad 2008 安装目录的support目录下用notepad打开acad2008.lsp，并在文件的最末端粘贴上如下代码： (command "-scalelistedit""reset""y""e") 注意带括号一起复制 然后再复制粘贴就好了。 2、PURGE 清洗命令 问题： 在AutoCAD 中使用WBLOCK 命令时，显示以下错误： 代理对象不允许复制，因此写块操作被拒绝。 原因： 图形中的对象由第三方应用程序或使用自定义对象的AutoCAD 单一专业产品创建。如果不安装本机程序或用于该产品的Object Enabler，则无法复制这些对象。 解决方案： 删除代理对象或安装第三方程序的Object Enabler。 作为备选方案，可以测试以下工作流： 启动新的干净图形，如acadiso.dwt 。 使用插入将受影响的文件插入干净的图形中。 测试COPYCLIP 命令。 注意：某些情况下不会显示代理警告，此时使用备选工作流可帮助解决WBLOCK 问题，因为它在将内容插入新文件时会删除代理元素。 块如何解除 有两个可能，一个是别人在创建块定义时，在“块定义”对话框中，将“允许分解”前的勾去掉了。如果你用的CAD是2006版以上的话，可以在块编辑器中打开，然后将组成块的所有图元复制出来，关闭块编辑器，再将组成块的元素粘贴到图形中，或者重定义块，用相同的名称替代，并记得将“允许分解”勾上。另一个可能是该块是作为多重块插入的，需要用到一些工具才能解除了。我想从一个CAD复制一些图形，到另外一个CAD中，复制时出现…此块含有代理对象不能再块编辑器中进行编辑?，请问各位大侠，怎么能够解决这个问题呢~~~ 这个块是外部参照块，不能编辑，除非找到参照原来图纸，从原来的图上拷出来编辑你在源文件中把这个图形打散然后在复制到你所用的文件里 通常外部参照复制了却不显示会有个地址根据地址找到源文件，在那里修改。或者同样用外部参照把这个应用到要修改的图里，但是如果源文件不跟着这个新图在一起，到其他机器上是不显示这些东西的。 选择出现“此块含有代理对象不能再块编辑器中进行编辑”的图层，，再CTRL+1看属性中的名字。。再到你电脑中找到。。选复制上面的。再把找到的那个图。外部参照进去就可以了你先看看图块名，如果图块名字前面是*号，这类匿名块就没有办法炸开了。如果不是的话，你选中图块，打开属性框（CTRL+1），在属性框中将行列数改为1，就是把他变为普通图块，然后再炸开试试，如果不行，检查一下X\Y\Z轴向比例是否一致。也可以直接输入i命令插入图块，再插入一个同名图块，再炸开试试。 多重插入引用的分解(cad块的分解) 多重插入引用的分解 炸开“多重插入引用”的方法以及制作

如何分析红外谱图

如何分析红外谱图 （1）首先依据谱图推出化合物碳架类型：根据分子式计算不饱和度，公式：不饱和度(Ω)= 1+F+(T-O)/2 其中，F：化合价为4价的原子个数（主要是C原子）；T：化合价为3价的原子个数（主要是N原子）；O：化合价为1价的原子个数（主要是H原子）。例如：比如苯：C6H6，不饱和度＝6+1+（0-6）/2＝4，3个双键加一个环，正好为4个不饱和度； （2）分析3300~2800 cm-1区域C-H伸缩振动吸收；以3000 cm-1为界：高于3000 cm-1为不饱和碳C-H伸缩振动吸收，有可能为烯，炔，芳香化合物，而低于3000 cm-1一般为饱和C-H伸缩振动吸收； 3）若在稍高于3000 cm-1有吸收，则应在2250~1450 cm-1频区，分析不饱和碳碳键的伸缩振动吸收特征峰，其中： 炔2200~2100 cm-1；烯1680~1640 cm-1；芳环1600, 1580, 1500, 1450 cm-1 若已确定为烯或芳香化合物，则应进一步解析指纹区，即1000~650 cm-1的频区，以确定 取代基个数和位置（顺反，邻、间、对）； （4）碳骨架类型确定后,再依据其他官能团，如C=O, O-H, C-N 等特征吸收来判定化合物的官能团； （5）解析时应注意把描述各官能团的相关峰联系起来，以准确判定官能团的存在,如2820，2720和1750~1700 cm-1的三个峰，说明醛基的存在。 常用健值： a. 烷烃：C-H伸缩振动（3000-2850 cm-1）；C-H弯曲振动（1465-1340 cm-1）；一般饱和烃C-H伸缩均在3000 cm-1以下，接近3000 cm-1的频率吸收； b. 烯烃：烯烃C-H伸缩（3100~3010 cm-1）；C=C伸缩(1675~1640 cm-1)；烯烃C-H面外弯曲振动（1000~675 cm-1）； c. 炔烃：伸缩振动（2250~2100 cm-1）；炔烃C-H伸缩振动（3300 cm-1附近）； d.芳烃：3100~3000 cm-1 芳环上C-H伸缩振动；1600~1450 cm-1 C=C 骨架振动。 2. 推测C4H8O2的结构 解：1）Ω=1-8/2+4=1 2）峰归属 3）可能的结构H C O2CH2CH3 O H3C C O2CH3 O H3CH2C C O CH3 O 1180 1240 1160

CAD多重引用插入分解及制作

多重插入引用的分解 1.“多重插入引用”的制作： 用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图名，然后到提示行数或列数时，输入2以上，但行距或列距输入0。这样一个多重插入引用制作完成，无法用explode炸开了。多重块不是重复定义块，而是在矩形阵列中插入一个块的多重引用。多重块是由命令minsert插入一个块而形成，其在正常情况下不能被分解。但若是用普通的方法构建的多重块，可以删除掉，然后用insert再插入它原来引用的块即可。不过，若它原来引用的块是匿名块（即名称前带*的块，只能用程序构建），就不是那么简单的了。这是，你就需要程序（或者说插件）来还原。vlx程序就是一个插件。也就是我上面说的编程实现。若不会编程，也没有插件，下面的方法四（方法三也可以实现）。 2.炸开方法如下： 方法一：点击这个多重引用，看它的名字，然后再用minsert命令，插入这个名字，只不过都按默认的行数（1行）列数一直回车。这样插入的这个块就可以炸开了。 方法二：双击这个块，出现参照编辑对话框，点确定，出现参照编辑工具条；用explode炸开；然后点击参照编辑工具条从工作集删除对象，选中所有图形，回车；再点击参照编辑工具条上的放弃对参照的 修改。此时再用explode就可以炸开了。 方法三: 1、打开原文件后，输出为*.wmf文件，2、新建空*.DWG文件，插入*.wmf文件，3、输入另外一个炸开命令：xplode回车4、选图层（TA），大功告成。可惜的是文字都炸开了，填充也炸了，图 层只有一个，而且文件比较大。附件为wmf文件 方法四：1、在任何版本中打开图件（只要能打的开就行）2、选中图，打开属性对话框，将行和列均改为1。3、另存为R14以下（包括R14）版本格式。4、打开R14，打开刚才另存的图，保存。（记住，这步尤其重要，必须是R14不能是cad2002及以上版本）好了，你再用任何版本的cad打开看看。 另外一种方法就是编程，直接炸开即可。 有的CAD图形由于加了密，整张图纸无法分解，这时候我们就不能对里面的构件进行转化，如果你用分解命令命令行会提示找到1个，1 个是多重插入引用，此时是无法分解的。这时候可能是由于CAD加密造成的，我们可以用CAD的UNLOCKDWG命令对图纸进行解密，解密后的图纸就能用分解等相关命令进行操作了。注:该命令需要加载插件lockdwg.VLX支持，可以从网上下载。

红外谱图分析方法总结

红外谱图分析方法总结 （1）首先依据谱图推出化合物碳架类型：根据分子式计算不饱和度，公式：不饱和度＝F+1+(T-O)/2其中： F：化合价为4价的原子个数（主要是C原子），T：化合价为3价的原子个数（主要是N原子），O：化合价为1价的原子个数（主要是H原子），例如：比如苯：C6H6，不饱和度＝6+1+（0-6）/2＝4，3个双键加一个环，正好为4个不饱和度；（2）分析3300-2800cm-1区域C-H伸缩振动吸收；以3000cm-1为界:高于3000cm-1为不饱和碳C-H伸缩振动吸收，有可能为烯、炔、芳香化合物,而低于3000cm-1一般为饱和C-H伸缩振动吸收； （3）若在稍高于3000cm-1有吸收,则应在2250-1450cm-1频区，分析不饱和碳碳键的伸缩振动吸收特征峰，其中：炔2200-2100cm-1、烯1680-1640cm-1、芳环1600,1580,1500,1450cm-1。若已确定为烯或芳香化合物，则应进一步解析指纹区，即1000-650cm-1的频区,以确定取代基个数和位置（顺反，邻、间、对）；（4）碳骨架类型确定后,再依据其他官能团,如C=O,O-H,C-N等特征吸收来判定化合物的官能团； （5）解析时应注意把描述各官能团的相关峰联系起来，以准确判定官能团的存在,如2820，2720和1750-1700cm-1的三个峰，说明醛基的存在。 至此，分析基本搞定，剩下的就是背一些常见常用的健值了！ 1.烷烃：C-H伸缩振动（3000-2850cm-1）C-H弯曲振动（1465-1340cm-1）一般饱和烃C-H伸缩均在3000cm-1以下，接近3000cm-1的频率吸收。 2.烯烃：烯烃C-H伸缩（3100-3010cm-1）C=C伸缩(1675-1640cm-1)烯烃C-H面外弯曲振动（1000-675cm1）。 3.炔烃：伸缩振动（2250-2100cm-1）炔烃C-H伸缩振动（3300cm-1附近）。 4.芳烃：3100-3000cm-1芳环上C-H伸缩振动、1600-1450cm-1C=C骨架振动、880-680cm-1C-H面外弯曲振动、芳香化合物重要特征:一般在1600、1580、1500和1450cm-1可能出现强度不等的4个峰。 880-680cm-1,C-H面外弯曲振动吸收,依苯环上取代基个数和位置不同而发生变化,在芳香化合物红外谱图分析中,常常用此频区的吸收判别异构体。 5.醇和酚：主要特征吸收是O-H和C-O的伸缩振动吸收，O-H自由羟基O-H的伸缩振动：3650-3600cm-1,为尖锐的吸收峰，分子间氢键O-H伸缩振动：3500-3200cm-1,为宽的吸收峰；C-O伸缩振动:1300-1000cm-1O-H面外弯曲:769-659cm-1 6.醚:特征吸收:1300-1000cm-1的伸缩振动,脂肪醚:1150-1060cm-1一个强的吸收峰；芳香醚：两个C-O伸缩振动吸收：1270-1230cm-1（为Ar-O伸缩） 1050-1000cm-1（为R-O伸缩） 7.醛和酮:醛的主要特征吸收:1750-1700cm-1（C=O伸缩）2820，2720cm-1（醛基C-H伸缩）；脂肪酮:1715cm-1,强的C=O伸缩振动吸收,如果羰基与烯键或芳环共轭会使吸收频率降低 8.羧酸:羧酸二聚体:3300-2500cm-1宽,强的O-H伸缩吸收1720-1706cm-1，C=O 吸收1320-1210cm-1C-O伸缩，920cm-1成键的O-H键的面外弯曲振动。 9.酯:饱和脂肪族酯(除甲酸酯外)的C=O吸收谱带:1750-1735cm-1区域饱和酯C-C(=O)-O谱带:1210-1163cm-1区域,为强吸收 10.胺：3500-3100cm-1,N-H伸缩振动吸收，1350-1000cm-1,C-N伸缩振动吸收。

解决多重插入块无法分解的问题(完整资料).doc

【最新整理，下载后即可编辑】 解决多重插入块无法分解的问题 2012-10-22 10:27:53| 分类：cad相关| 标签：cad多重插入块分解|举报|字号订阅 工作中遇到了无法分解的“多重插入块”的问题，正当准备纯手工绘制原图的时候，尝试百度，得到了以下的办法并解决了问题，幸哉。 将下面的代码复制在记事本内，将txt文件另存为unlk.lsp文件，打开这张不能修改的图纸，在命令行输入appload选择加载程序文件unlk.lsp，命令行键入unlk，再选择不能修改的图块。。。ps，有的打散一次后，依然有些小图加密的，就可以小部分的打散，步骤同上

什么是多重块? AUTOCAD为了省内存，省空间，提高效率，引进了块引用这一技术。你在当前图纸空间插入一个块，它并不是把这个块复制一遍，而是把这个块的一些属性描述引过来，跟C++里面的引用极像。我现在讨论的不是引用是怎么实现的，AUTOCAD最大的重头就是块，大家肯定是很了解的。 我想说的是今天我和老韩研究的一个东西，AcDbMInsertBlock -多重插入块。它其实就是对块引用派生过来的一个新的东西，比普通块引用多了几个属性。具体是多了列数，行数，列距，行距。它可以用在什么地方呢？比如你现在要插入四个一样的块，就是位置不一样，用普通的块引用的话，要引四次。这样还是很占资源的，效率不高。而如果用AcDbMInsertBlock ，你可以定义一个2列2行，多个插入点的AcDbMInsertBlock 。AUTOCAD内部并没有复制多份引用，我写程序进去把AcDbMInsertBlock 里面的每一个实体拷贝出来了，发现只有一份。当然你不能炸开AcDbMInsertBlock ，如果可以炸开你就可以发现我说的肯定是对的。

NMR常见溶剂峰和水峰

常数，H2O和交换了D的HOD上的1H产生的即水峰的化学位移 氯仿：小、中小、中等极性 DMSO：芳香系统（日光下自然显色、紫外荧光）。对于酚羟基能够出峰。芳香化合物还是芳香甙，都为首选。 吡啶：极性大的，特别是皂甙 对低、中极性的样品，最常采用氘代氯仿作溶剂，因其价格远低于其它氘代试剂。极性大的化合物可采用氘代丙酮、重水等。 针对一些特殊的样品，可采用相应的氘代试剂：如氘代苯（用于芳香化合物、芳香高聚物）、氘代二甲基亚砜（用于某些在一般溶剂中难溶的物质）、氘代吡啶（用于难溶的酸性或芳香化合物）等。丙酮：中等极性 甲醇：极性大 氯仿—甲醇： 石：乙 5；1小极性 石：丙 2：1——1：1中等极性 氯仿：甲醇6：1极性以上含有一个糖 2：1 含有两个糖 含有糖的三萜皂甙：一般用吡啶

常见溶剂的化学位移 常见溶剂的1H在不同氘代溶剂中的化学位移值 常见溶剂的化学位移 常见溶剂的13C在不同氘代溶剂中的化学位移值

核磁知识(NMR) 一：样品量的选择 氢谱，氟谱，碳谱至少需要5mg. 1H-1H COSY, 1H-1H NOESY, 1H-13C HMBC, 1H-13C HSQC需要10-15mg. 碳谱需要30mg. 二：如何选择氘代溶剂 常用氘代溶剂: CDCl3, DMSO, D2O, CD3OD.特殊氘代溶剂: CD3COCD3, C6D6, CD3CN。 极性较大的化合物可以选择用D2O或CD3OD，如果想要观察活泼氢切记不能选择D2O和CD3OD。CDCl3为人民币2-3元，D2O为人民币6元，DMSO为人民币10元，CD3OD为人民币30元。Solvent 化学位移(ppm) 水峰位移(ppm) CDCl3 ? ? ? ? DMSO? ? ? ? ? ? ? ? CD3OD? ? ? ? ? ? ? ? D2O? ? ? ? ? ? ? ? CD3COCD3? ? ? ? ? ? ? ?

解决多重插入块无法分解的问题名师优质资料

解决多重插入块无法分解的问题 2012-10-22 10:27:53| 分类：cad相关| 标签：cad多重插入块分解|举报|字号订阅 工作中遇到了无法分解的“多重插入块”的问题，正当准备纯手工绘制原图的时候，尝试百度，得到了以下的办法并解决了问题，幸哉。 将下面的代码复制在记事本内，将txt文件另存为unlk.lsp文件，打开这张不能修改的图纸，在命令行输入appload选择加载程序文件unlk.lsp，命令行键入unlk，再选择不能修改的图块。。。 ps，有的打散一次后，依然有些小图加密的，就可以小部分的打散，步骤同上 (defun c:unlk (/en ent) (setq en (entsel "n请选择被加密的图形:")) (if en (if(=(cdr (assoc 0(setq ent (cdr (entget (setq en (car en))))))) "INSERT"

) (progn (setq ent (entmakex (list '(0 . "INSERT") (assoc 2 ent) (assoc 10 ent) ) ) ) (command "_.explode" (entlast)) (entdel en) ) ) ) (princ "nOK，解密成功。") (princ) ) 什么是多重块? AUTOCAD为了省内存，省空间，提高效率，引进了块引用这一技术。

你在当前图纸空间插入一个块，它并不是把这个块复制一遍，而是把这个块的一些属性描述引过来，跟C++里面的引用极像。我现在讨论的不是引用是怎么实现的，AUTOCAD最大的重头就是块，大家肯定是很了解的。 我想说的是今天我和老韩研究的一个东西，AcDbMInsertBlock -多重插入块。它其实就是对块引用派生过来的一个新的东西，比普通块引用多了几个属性。具体是多了列数，行数，列距，行距。它可以用在什么地方呢？比如你现在要插入四个一样的块，就是位置不一样，用普通的块引用的话，要引四次。这样还是很占资源的，效率不高。而如果用AcDbMInsertBlock ，你可以定义一个2列2行，多个插入点的AcDbMInsertBlock 。AUTOCAD内部并没有复制多份引用，我写程序进去把AcDbMInsertBlock 里面的每一个实体拷贝出来了，发现只有一份。当然你不能炸开AcDbMInsertBlock ，如果可以炸开你就可以发现我说的肯定是对的。 多重插入块还有一个很有趣的是，它可以用来做加密，当然很容易破解掉的。大家都知道，无名块是不能够编辑的，所以可以用下面的步骤就可以生成一个只能看不能改的图。 1）、把整个图作成一个块。 2）、把当前图纸空间的实体删除了，用Minsert把刚才那个块插入。 3）、把刚才那个块的块名改成*U。 到现在，这个图不能分解，也不能编辑了，呵呵。当然破解非常简单的，一个最直接的是把这个多重插入块转成单插入块，然后炸开。还有一个就是把块表名字改了，这样就可以编辑块了。当然，你可以作得复杂一点，进入块表记录，把里面每个实体克隆一遍。“多重插入引用”的制作：用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图名，然后到提示行数或列数时，

氢谱谱图解析步骤修订稿

氢谱谱图解析步骤公司标准化编码 [QQX96QT-XQQB89Q8-NQQJ6Q8-MQM9N]

谱图的解析 NMR谱法一般经历如下的步骤进行谱图的解析： ★与IR法相同，首先尽可能了解清楚样品的一些自然情况，以便对样品有一些大概的认识；通过元素分析获得化合物的化学式，计算不饱和度Ω； ★根据化学位移值确认可能的基团，一般先辨认孤立的，未偶合裂分的基团，即单峰，即不同基团的1H之间距离大于三个单键的基团及一些活泼氢基团，如甲 基醚、甲基酮（）、甲基叔胺（）、甲基取代的苯等中的甲基质子及苯环上的质子，活泼氢为―O―H，，－SH等； 然后再确认偶合的基团。从有关图或表中的δ可以确认可能存在的基团，这时应注意考虑影响δ的各种因素如电负性原子或基团的诱导效应、共轭效应、磁的各向异性效应及形成氢键的影响等； ★根据偶合裂分峰的重数、偶合常数，判断基团的连接关系。先解析一级光谱，然后复杂光谱。进行复杂光谱解析时，应先进行简化； ★根据积分高度确定出各基团中质子数比，印证偶合裂分多重峰所判断的基团连接关系； ★通过以上几个程序，一般可以初步推断出可能的一种或几种结构式。然后，反过来，从可能的结构式按照一般规律预测可能产生的NMR谱，与实际谱图对照，看其是否符合，从而可以推断出某种最可能的结构式。 例某化合物的化学式为，IR谱表明有一很强的吸收 峰，NMR谱如下，试确定其结构。 解：

有三组峰，相对面积为2:1:3，若分别为2、1、3个，则总数为6，为分子式12个的一半，因此分子可能有对称性； IR显示～1750cm-1有一强峰，应有存在，且分子中有4个O，则可能 ，且受裂分，而 有2个；处有一组三重峰，可能为－CH 3 处有一组四重峰，与是典型的组分；而δ较大，可能为的组分； 处有一单峰，相对面积为1，则是一个与碳基相连的孤立（不偶合）的，可能为 所以可能有 的结合。而此结合的、O的数目为分子式的一半，而C原子数一半多半个原子。因此可以推测出整个分子的中间C原子为对称的结构，可能为 验证：以炔可能结构，推测其NMR谱，与实验谱图比较，结果相符合。是否可能为 （请思考） （二）定量分析 NMR图谱中积分曲线的高度与引起该共振峰的氢核数成正比，这不仅是结构分析的重要参数，而且是定量分析的依据。 用NMR 技术进行定量分析的最大优点是，不需要有被测物质的纯物质作标准，也不必绘制校准曲线或引入校准因子，而只要与适当的标准参照物（不必

CAD文件多重块制作和分解

新建一个空白文本文档，然后将下面“红色”代码复制到里面并保存，将文件名以及后缀名改成unlk.lsp (defun c:unlk (/ en ent) (setq en (entsel "\n请选择被加密的图形:")) (if en (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT" ) (progn (setq ent (entmakex (list '(0 . "INSERT") (assoc 2 ent) (assoc 10 ent) ) ) ) (command "_.explode" (entlast)) (entdel en) ) ) ) (princ "\nOK，解密成功。") (princ) ) 先打开无法分解的图纸，然后找到工具→加载应用程序，然后找到“unlk.lsp”那个文件点一下，然后点击“加载”按钮，对话框左下角提示”加载成功“，然后点击“关闭”按钮； 然后输入命令unlk 空格，然后点一下图形，就大功告成了！ 如果一次不成，就多用几次unlk，因为用了多次引用快……

2、把“普通块”转为“多重插入块”将文件名以及后缀名改成lockb.lsp (DEFUN C:lockb () (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 e (subst (cons 70 1) r_zm70 e)) (setq e (subst (cons 71 1) c_zm71 e)) (setq e (subst (list 100 "AcDbMInsertBlock") (list 100 "AcDbBlockReference") e)) (entmake e) (entdel stm) )) (SETQ STM (car (ENTSEL "\n 点取下一块"))) ) (setvar "cmdecho" 1) )