超强CAD炸碎解密.lsp

bigwolf99

可解密贱人工具箱、钢构CAD、Smartlock、Lockup、CAD加密工具0.2等加锁的CAD图纸

源码如下，拷贝到写字板，存为 jiemi.lsp，拖到AutoCAD中。 也可直接下载附件。

(defun C:JM1()
   (setq e(car(entsel)))
   (setq el(entget e))
   (setq el2(list(cons 0 "INSERT")(assoc 10 el)(assoc 2 el)))
   (command "erase" e "")
   (setq enew(entmake el2))
   (command "explode" "all")
   (princ"\n你看是否解密了。再炸炸看，若不能，请重复执行此命令")
)
(defun C:JM2()
   ;下面查找匿名多重插入块，若有，反复炸碎
   (command"_.undo""BE")
   (while(setq ss1(ssget "X" (list(cons 0 "INSERT")(cons 67 0))))
      (setq tot(sslength ss1))
      (setq id 0)
      (while (< id tot)
          (setq en(ssname ss1 id))   ;获取图块块名
   (setq id(+ 1 id))
          (setq el(entget en))       ;图块DXF表
   (setq el2(list(cons 0 "INSERT")(assoc 10 el)(assoc 2 el)))  ; 创造一个和“多重插入块”相同的普通图块dxf表
          (command "erase" en "")    ;删除“多重插入块”
          (entmake el2)              ;插入一个和“多重插入块”相同的普通图块，就可以砸碎了
      )
      (setq n 0)
      ;下面看匿名多重插入块内部是否还有块，若有，反复炸碎
      (while(and(setq ss2(ssget "X" (list(cons 0 "INSERT")(cons 67 0)(cons -4 "<NOT")(cons -4  ">=") (cons 70 1)(cons -4 "NOT>"))))(< n 10))
    (command "explode" ss2)   ;彻底炸碎
    (setq n(+ 1 n)) ;防止死循环
      )
   )
   (command"_.undo""end")
)
(alert "解密！可解密贱人工具箱、钢构CAD、Smartlock、Lockup、CAD加密工具0.2等加锁的CAD图纸！\n\n命令：JM1 -- 简单解密,若一遍不行，就重复几次！ \n      JM2 -- 超强炸碎！")

song_yc

我先下下来，试下看看能用不。

shajianlin

好东西。。下个试试

xxllss

好，能用，谢谢！

jtlx

还没有试过，待会就去试下效果

1609960955

这么神奇，不知道效果怎么样？

xylcs1

收藏一个，看看能否用上。

lingpeng654123

先试试。呵呵。

wlss

以下载，如果好使推荐给大家