[分享]：AutoHook系列补充及破解

cdjtsf

AutoHook系列补充及破解
for R14  
注册码：
Name: everybody s/n: 607435577

如果嫌上面输入注册码麻烦，我已经破解
for R14 免注册破解补丁，下载后覆盖同名文件即可。

cdjtsf

for R14 免注册破解补丁，覆盖同名文件即可。

cdjtsf

for R16 免注册破解补丁，覆盖同名文件即可。


原文件下载xdCAD里有http://www.hanzify.org/download.asp?SOFT_ID=7171&SITE=1

cdjtsf

for R15文件下载xdCAD里有 http://www.mjtd.com/mcdown/down/yfc-ahook2002.exe
但没有破解或注册码
本人在此提供供参考
注册码为：
AutoHook2K 1.0
Name: Licensed User s/n: 513302127
or
Name: wujun s/n:665107048
或for R15 破解补丁

cdjtsf

我在此提供一些绿色的小软件，希望能给大家的工作带来一些方便，所谓绿色即
免安装(下载后即可使用，不会给你的本地计算机添加垃圾文件，注册表里也尽量不添加东西)
免注册(尽自己的能力提供自己制作或破解的软件，不要任何注册码，如软件还要注册，则注册码任意填)
免积分和银量，不附加任何条件供大家下载
所有软件版权归原作者，在此如有人提出异议，请斑竹删除。

天地间

最初由 cdjtsf 发布
[B]我在此提供一些绿色的小软件，希望能给大家的工作带来一些方便，所谓绿色即
免安装(下载后即可使用，不会给你的本地计算机添加垃圾文件，注册表里也尽量不添加东西)
免注册(尽自己的能力提供自己制作或破解的软件?.. [/B]

十分感谢提供绿色软件。

liuyj

太好了，我一直在找autohook2004的注册方法，太感谢了！

keeper

ahook2004的破解没用。

tmqgx

用这个软件,会影响原来键盘的设置,一般人很不习惯.我就是因为不习惯,而弃用它的.

cdjtsf

很方便的编辑DTEXT, MTEXT objects和 dimension text的工具MtmdEdit。
                                     推荐下载等级  ★★★★☆
简单的教学如下，详情请下载后自己去研究一下。
下载地址：F:\下载文件\CDJ\MTMDEDIT\MtmdEdit.swf

cdjtsf

很方便的编辑DTEXT, MTEXT objects和 dimension text的工具
命令是TE
MtmdEdit for R15(适合于ACAD2000,2002)汉化下载
无需安装和注册，已彻底汉化，没发现bug.

cdjtsf

很方便的编辑DTEXT, MTEXT objects和 dimension text的工具
MtmdEdit for R16(适合于ACAD2004)汉化下载
无需安装和注册，已彻底汉化，没发现bug.
命令是TE

请大家多多关注和支持，以后会不定期更新，当然这些东东在XDCAD和MJTD里没有或是相应更新。

halibt

挺好的文字编辑工具。建议楼主做SWF时分辨率设置成800×600的，在论坛上显示效果好。

cdjtsf

如想很清楚的看SWF格式的教学，请下载SWF教学文件以及这个文件，展开放在同一个目录，点超文本Mtmdedit.htm文件即可以非常清楚的看了。

cdjtsf

下面的lisp程序可以更改块里任意实体的颜色，包括块中块(即嵌套块)、标注等。
要注意：1.输入颜色时只能输入1~255、bylayer、byblock;
        2.其实是块重定义，即当你修改了一个块中的实体后，同样名称的块都相应改了。

(defun c:blc (/ s11 c21 c1 s1 ed chk chk1 chk2)
(setq s11 (nentsel "\n请选择块里的任意实体:"))
  (if
   (/= s11 nil)
   (progn
   (setq c21 (getstring "\n新颜色号(1~255、bylayer、byblock): "))
   (setq c1 (atoi c21))  
     (if
       (/= c21 "")
       (progn
       (setq s1 (car s11))
       (setq ed (entget s1))
            (setq ch (cdr (assoc 0 ed)))
            (if (= ch "VERTEX")
            (alert "被选定的实体是R14以前的PLINE线...\n现转换成LWPLINE")
            )
        (setq chk (assoc 62 ed))
        (if (= chk nil)
            (progn
            (setq chk1 (cons 62 c1))
            (setq chk2 (list chk1))
            (setq ed (append ed chk2))
            )
        )
       (setq ed
              (subst (cons 62 c1)
                     (assoc 62 ed)
                     ed
               )
       )
       (entmod ed)
       (command "regen")
       (princ)
       )
     )
   )
  )
)