土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 破解天正加密 无法分解 TCH_PROTECT_ENTITY的应用程序

破解天正加密 无法分解 TCH_PROTECT_ENTITY的应用程序

发布于:2010-06-19 15:20:19 来自:建筑设计/CAD下载及教程 [复制转发]
这个应用程序,通过“工具”加载应用程序,选取该文件就可以把TCH_PROTECT_ENTITY图块分解开来!

申明:内容来自用户上传,著作权归原作者所有,如涉及侵权问题,请点击此处联系,我们将及时处理!

全部回复(99 )

只看楼主 我来说两句
  • 小萝卜的头
    确实是有欺骗的效果:
    楼主附件中的东西:

    ;;-------------------------------------------------------------
    ;;转换“多重插入块”为“普通块”。
    (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)
    )
    2010-06-22 16:22:22

    回复 举报
    赞同2
  • isaiahwu
    isaiahwu 板凳

    这因该是一个不可以推广的忽悠人的小程序

    2019-11-18 13:58:18

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.07 万条内容 · 651 人订阅

猜你喜欢

阅读下一篇

去除CAD LISP病毒的小软件小工具方法

经本人使用,这个方法很好用,希望各位的电脑内没有LISP病毒!

回帖成功

经验值 +10