創(chuàng)建無法炸開的AutoCAD圖紙的原理也很簡單。
    AutoCAD的minsert命令的作用是將“塊”以矩形陣列的方式多重插入圖紙，舉個例子，畫一個簡單圖形，比如邊長為50的矩形，用block命令將其轉換成名為“abc”的塊。
    輸入命令minsert并回車，出現提示“輸入塊名或 [?]”的時候輸入“abc”并回車。
    AutoCAD提示“指定插入點或 [基點(B)/比例(S)/X/Y/Z/旋轉(R)]”時，在模型空間任意位置點擊一下。
    接著提示“輸入 X 比例因子，指定對角點，或 [角點(C)/XYZ(XYZ)]”，輸入“1”并回車。
    接著提示“輸入 Y 比例因子或 <使用 X 比例因子>”，直接回車。
    接著提示“指定旋轉角度”，輸入“0”并回車。
    接著提示“輸入行數 (---)”，輸入“2”并回車。
    接著提示“輸入列數 (|||)”，輸入“2”并回車。
    接著提示“輸入行間距或指定單位單元 (---)”，輸入“100”并回車。
    接著提示“指定列間距 (|||)”，輸入“100”并回車。
    看到插入進來的四個矩形了嗎？點擊其中的一個，你會發(fā)現四個同時都被選中，說明用minsert命令插入進來的是個整體的“塊”。
    操作菜單“修改”——“分解”，或者直接輸入命令explode并回車，當提示“選擇對象”的時候點擊一下矩形，AutoCAD提示“1 個是多重插入引用”。你會發(fā)現這四個矩形是無法炸開的。

    如果將畫好的圖紙作為塊，用minsert命令插入到一個新建的文件里，并將行間距和列間距都設為0，不是就可以創(chuàng)建無法炸開的圖紙了嗎？趕快試試吧。
    在空白文件里輸入命令minsert并回車，出現提示“輸入塊名或 [?]”的時候輸入“～”并回車，彈出“打開圖形文件”對話框，在對話框里隨便選擇一個畫好的AutoCAD圖紙文件，點擊“打開”，關閉對話框。
    AutoCAD提示“指定插入點或 [基點(B)/比例(S)/X/Y/Z/旋轉(R)]”時，在模型空間任意位置點擊一下。
    接著提示“輸入 X 比例因子，指定對角點，或 [角點(C)/XYZ(XYZ)]”，輸入“1”并回車。
    接著提示“輸入 Y 比例因子或 <使用 X 比例因子>”，直接回車。
    接著提示“指定旋轉角度”，輸入“0”并回車。
    接著提示“輸入行數 (---)”，輸入“2”或2以上的任何數并回車。
    接著提示“輸入列數 (|||)”，輸入“2”或2以上的任何數并回車。
    接著提示“輸入行間距或指定單位單元 (---)”，輸入“0”并回車。
    接著提示“指定列間距 (|||)”，輸入“0”并回車。
    至此你選擇的那個畫好的圖紙文件里的圖形被多重插入到現在的文件里了，如果沒有看見，操作一下菜單“視圖”——“縮放”——“范圍”，就可以看見了。
    試試用explode命令炸開它，AutoCAD會提示“1 個是多重插入引用”。哈哈，無法炸開的圖紙創(chuàng)建成了。

    別高興得太早了。輸入refedit命令并回車，當出現提示“選擇參照”時點擊一下圖形，打開“參照編輯”對話框，對話框里明明白白顯示著插入進來的塊圖形的名字。點擊“確定”，關閉對話框并彈出“參照編輯”工具條。點擊工具條上有“-”號圖形的“從工具集刪除”按鈕，AutoCAD提示“選擇對象”，用鼠標拖一個框將整個圖形選中并按回車鍵，AutoCAD提示“已從工具集刪除”。
    再點擊工具條上的“保存參照編輯”按鈕，點擊“確定”。
    試著點擊一下圖形，天哪！圖形竟然用參照編輯的方法炸開了。

    進一步設想一下，如果插入進來的塊圖形是匿名的，“參照編輯”對話框里不顯示塊圖形的名字，就不能夠進行參照編輯，當然也就不會被炸開了。

    總結以上思路，創(chuàng)建無法炸開的圖紙需要三個步驟，第一步將畫好的圖紙轉換成塊并刪除，第二步用minsert命令將這個塊插回圖紙，第三步將塊的名字隱匿起來。   

    遺憾的是手工操作不可能將塊圖形匿名，而只能用編程的方法。
    將下面的代碼復制粘貼在文本文件里，保存后將文本文件名改成“jm.lsp”。在畫好的圖紙里操作菜單“工具”——“加載應用程序”，打開“加載、卸載應用程序”對話框，在對話框里找到并點選那個名為“jm.lsp”的文件，依次點擊“加載”、“關閉”按鈕，關閉對話框。在命令行里輸入“jm”并回車，當提示“選擇對象”的時候，用鼠標拖一個框將整個圖形選中，按一下回車鍵，程序自動依次完成圖形轉換成“塊”、用minsert命令多重插入、塊圖形匿名三個步驟，創(chuàng)建成無法炸開的圖紙。

    要說明的是，這代碼是從網上學來的。

    (defun c:JM(/ BLOCKNAME SELECTIONSET)
    (vl-load-com)
    (if (setq Selectionset (ssget))
    (progn
    (setq BlockName (getvar "CDATE"))
    (command "block" BlockName '(0 0 0) Selectionset "" "minsert"
    BlockName '(0 0 0) 1 1 0 2 2 0 0)
    (vla-put-name (vla-item (vla-get-blocks
    (vla-get-activedocument (vlax-get-acad-object)))
    (vla-get-name (vlax-ename->vla-object (entlast)))) "*U")
    (princ "n加密完成")
    )
    (princ "n沒有選中圖元")
    )
    (princ)
    )