SBCAD2007安装于CAD2004+PCCAD2004方法

设备CAD只能安装在CAD2007+PCCAD2007上，因为网上的CAD2007没有一个版本是真正破解，所以工作中经常崩溃。
今天，在经过1小时努力下，终于将他完整运行在CAD2004+PCCAD2004下。
步骤：
1、安装CAD2004
2、安装PCCAD2004，并将其破解补丁打上
3、拷贝PCCAD2004的内容至其他处
4、安装SBCAD2007
注意：将安装路径改为你的pccad2004安装路径，例如C:\THSOFT\PCCAD2004
5、拷贝出acad.pgp和acadlsp
6、将复制出去的PCCAD2004覆盖回来，所有文件均替换
7、修改替换后的PCCAD2004中的acad.pgp和acadlsp文件，可参考复制出去的文件
具体：acad.pgp中增加下列内容
*****************************
单位换算,  START 单位换算, 8,
螺栓重量计算,  START 螺栓重量计算,  8,
锥顶计算,  START 锥顶计算, 8,
焊接材料选择,  START 焊接材料选择, 8,
常用计算,  START excel c:\thsoft\pccad2004\常用计算.xls, 8,
矩形容器设计,  START excel c:\thsoft\pccad2004\矩形容器设计.xls, 8,
抹边锥形封头表面积计算,  START excel c:\thsoft\pccad2004\抹边锥形封头表面积计算.xls, 8,
支座计算,  START excel c:\thsoft\pccad2004\支座计算.xls, 8,
管法兰配用螺栓长度和重量,  START excel c:\thsoft\pccad2004\管法兰配用螺栓长度和重量.xls, 8,
换热器容积重量计算,  START excel c:\thsoft\pccad2004\换热器容积重量计算.xls, 8,
毒性、爆炸分类,  START excel c:\thsoft\pccad2004\毒性、爆炸分类.xls, 8,
半圆管夹套容器设计,  START excel c:\thsoft\pccad2004\半圆管夹套容器设计.xls, 8,
吊耳计算,  START excel c:\thsoft\pccad2004\吊耳计算.xls, 8,
化工设备规格尺寸表,  START excel c:\thsoft\pccad2004\化工设备规格尺寸表.xls, 8,
盘梯计算,  START excel c:\thsoft\pccad2004\盘梯计算.xls, 8,
设备计重报价系统,  START excel c:\thsoft\pccad2004\设备计重报价系统.xls, 8,
equip2000,  START c:\thsoft\pccad2004\equip2000, 8,
*********************************
请注意路径将修改为你自己的

acad.lsp修改如下
*****************************
在  (defun c:pc_cen()    (command "dim1" "CEN")) ;中心标记  前
增加
(load "tcsz.lsp")
(vl-load-all "xtong")
(defun c:clean()
  (setq atomlist(member 'c:clean atomlist))
  'done)

在(command "_MENULOAD" "PCCAD")
     (menucmd "P9=+PCCAD.pop1")     后增加
      (command "_MENULOAD" "SBCAD.MNU")
     (menucmd "P10=+化工设备.pop1")

在(setvar "FILEDIA" filedia)
     (setvar "CMDECHO" cmdecho)
        )
    )
后增加
(if (not (menugroup "SBCAD"))
   (progn
     ;;  quietly load menu
      (setq filedia (getvar "FILEDIA"))
       (setq cmdecho (getvar "CMDECHO"))
      (setvar "FILEDIA" 0)
      (setvar "CMDECHO" 0)
     (setvar "CMDECHO" 0)
     (command "_.MENULOAD" "SBCAD.MNU")
     (setvar "FILEDIA" filedia)
     (setvar "CMDECHO" cmdecho)
     (princ)
   )
)

(if (menugroup "化工设备")
   (apply
     '(lambda (/ n)
       (setq n 1)
       (while (and (< n 24)
              (menucmd (strcat "P" (itoa n) ".1=?")) )
         (setq n (1+ n))
       )
       (if (> 0 (setq n (- n 2)))(setq n 3) )
       (menucmd (strcat "P" (itoa n) "=+化工设备.pop1"))
     )
     nil
   )
)
(princ)

8、打开pccad2004选项中路径支持添加路径，如C:\THSOFT\PCCAD2004\SB；系统中每次加载acad.lsp；选择中取消编组

真有达人，谢谢！