;;draw hole  
(DEFUN C:HOLE(/ hp1 hp2 lyrname nlyr hscale)  
(COMMAND ".UNDO" "BE")  
(SETQ hp1 (GETPOINT "\nFirst Point :")  
         hp2 (GETCORNER hp1 "\nSecond Point :")  
)  
(setq lyrname "MAIN-LINE")  
(setq nlyr (tblsearch "layer" lyrname))  
(if (= (getvar "measurement") 1)  
     (setq hscale (RTOS (* 0.25 (GETVAR "DIMSCALE")) 2 2))  
     (setq hscale (RTOS (* 5 (GETVAR "DIMSCALE")) 2 2))  
  )  
  (if (= nlyr nil)  
      (command ".layer" "N" lyrname "c" "3" lyrname "")  
  );if nlyr  
(COMMAND ".RECTANGLE" hp1 hp2)  
(COMMAND ".CHANGE" "L" "" "P" "LA" lyrname "")  
(COMMAND ".CHANGE" "L" "" "P" "C" "RED" "")  
(command ".layer" "N" "HATCH" "c" "8" "HATCH" "LT" "CONTINUOUS" "HATCH" "")  
(COMMAND "-BHATCH" "P" "DASH" hscale "0" "S" "L" "" "")  
(COMMAND ".CHANGE" "L" "" "P" "LA" "HATCH" "C" "BYLAYER" "")  
(COMMAND ".UNDO" "END")  
(PRINC)  
)  

(DEFUN C:HH(/ sp1 svlr lyrname hscale)  
(COMMAND ".UNDO" "BE")  
  (setvar "osmode" 0)  
(SETQ sp1 (GETPOINT "\nPcik Hole Internal Point :")  
)  
(setq svlyr (getvar "clayer")  
       lyrname "MAIN-LINE"  
)  
(if (= (getvar "measurement") 1)  
     (setq hscale (RTOS (* 0.25 (GETVAR "DIMSCALE")) 2 2))  
     (setq hscale (RTOS (* 5 (GETVAR "DIMSCALE")) 2 2))  
)  
(setq nlyr (tblsearch "layer" lyrname))  
  (if (= nlyr nil)  
      (command ".layer" "N" lyrname "c" "1" lyrname "")  
  );if nlyr  
(setvar "cmdecho" 0)  
(COMMAND ".BPOLY" sp1 "" )  
(if (AND (= "BPOLY" (GETVAR "CMDNAMES"))(= 1 (GETVAR "CMDACTIVE")))  
     (COMMAND "Y")  
)  
(setq etype (CDR (ASSOC 0 (ENTGET (ENTLAST)))))  
(if (OR (= "LWPOLYLINE" etype)(= "REGION" etype))  
   (progn  
     (COMMAND ".CHANGE" "L" "" "P" "LA" lyrname "")  
     (COMMAND ".CHANGE" "L" "" "P" "C" "RED" "")  
     (command ".layer" "N" "HATCH" "c" "8" "HATCH" "LT" "CONTINUOUS" "HATCH" "")  
     (COMMAND "-BHATCH" "P" "DASH" hscale "0" "S" "L" "" "")  
     (COMMAND ".CHANGE" "L" "" "P" "LA" "HATCH" "C" "BYLAYER" "")  
   );progn  
   (princ (strcat"\rNo " lyrname " created.                "))  
)  
(setvar "clayer" svlyr)  
(COMMAND ".UNDO" "END")  
(setvar "osmode" 679)  
(PRINC)  
)  


(DEFUN C:NH(/ sp1 svlr lyrname hscale)  
(COMMAND ".UNDO" "BE")  
(setvar "osmode" 0)  
(SETQ sp1 (GETPOINT "\nPcik Notch Internal Point :")  
)  
(setq svlyr (getvar "clayer")  
       lyrname "MAIN-LINE"  
)  
(if (= (getvar "measurement") 1)  
     (setq hscale (RTOS (* 0.25 (GETVAR "DIMSCALE")) 2 2))  
     (setq hscale (RTOS (* 5 (GETVAR "DIMSCALE")) 2 2))  
)  
(setq nlyr (tblsearch "layer" lyrname))  
  (if (= nlyr nil)  
      (command ".layer" "N" lyrname "c" "1" lyrname "")  
  );if nlyr  
(setvar "cmdecho" 0)  
(COMMAND ".BPOLY" sp1 "" )  
(if (AND (= "BPOLY" (GETVAR "CMDNAMES"))(= 1 (GETVAR "CMDACTIVE")))  
     (COMMAND "Y")  
)  
(setq etype (CDR (ASSOC 0 (ENTGET (ENTLAST)))))  
(if (OR (= "LWPOLYLINE" etype)(= "REGION" etype))  
   (progn  
     (COMMAND ".CHANGE" "L" "" "P" "LA" lyrname "")  
     (COMMAND ".CHANGE" "L" "" "P" "C" "RED" "")  
     (command ".layer" "N" "HATCH" "c" "8" "HATCH" "LT" "CONTINUOUS" "HATCH" "")  
     (COMMAND "-BHATCH" "P" "ANSI31" hscale "0" "S" "L" "" "")  
     (COMMAND ".CHANGE" "L" "" "P" "LA" "HATCH" "C" "BYLAYER" "")  
   );progn  
   (princ (strcat"\rNo " lyrname " created.                "))  
)  
(setvar "clayer" svlyr)  
(COMMAND ".UNDO" "END")  
  (setvar "osmode" 679)  
(PRINC)  
)  

(DEFUN C:MH(/ sp1 svlr lyrname hscale)  
(COMMAND ".UNDO" "BE")  
   (setvar "osmode" 0)  
(SETQ sp1 (GETPOINT "\nPcik Notch Internal Point :")  
)  
(setq svlyr (getvar "clayer")  
       lyrname "MAIN-LINE"  
)  
(if (= (getvar "measurement") 1)  
     (setq hscale (RTOS (* 0.25 (GETVAR "DIMSCALE")) 2 2))  
     (setq hscale (RTOS (* 5 (GETVAR "DIMSCALE")) 2 2))  
)  
(setq nlyr (tblsearch "layer" lyrname))  
  (if (= nlyr nil)  
      (command ".layer" "N" lyrname "c" "1" lyrname "")  
  );if nlyr  
(COMMAND ".BPOLY" sp1 "" )  
  (setvar "osmode" 0)  
(if (AND (= "BPOLY" (GETVAR "CMDNAMES"))(= 1 (GETVAR "CMDACTIVE")))  
     (COMMAND "Y")  
)  
(setq etype (CDR (ASSOC 0 (ENTGET (ENTLAST)))))  
(if (OR (= "LWPOLYLINE" etype)(= "REGION" etype))  
   (progn  
     (COMMAND ".CHANGE" "L" "" "P" "LA" lyrname "")  
     (COMMAND ".CHANGE" "L" "" "P" "LA" "MAIN-LINE" "C" "8" "LT" "HIDDEN" "")  
     (command ".layer" "N" "HATCH" "c" "8" "HATCH" "LT" "CONTINUOUS" "HATCH" "")  
     (COMMAND "-BHATCH" "P" "ANSI31" hscale "0" "S" "L" "" "")  
     (COMMAND ".CHANGE" "L" "" "P" "LA" "HATCH" "C" "BYLAYER" "LT" "HIDDEN" "")  
     (command ".erase" del "")  
     (command ".redraw")  
   );progn  
   (princ (strcat"\rNo " lyrname " created.                "))  
)  
(setvar "clayer" svlyr)  
(COMMAND ".UNDO" "END")  
  (setvar "osmode" 679)  
(PRINC)  
)  

(defun C:slot (/ op di ip p1 p2 p3 p4 pt1 pt2 pt3 pt4 ent1 ent2 ent3 ent4 rot)  
   (setq slot nil)  
  (setvar "CMDECHO" 0)  
   (initget 1)  
   (setq ip (getpoint "\nSpecify base point:"))  
   (initget 1)  
   (setq op (getdist "\nSpecify slot hole diameter: "))  
   (initget 1)  
   (setq di (getdist "\nSpecify slot hole length: "))  
   (initget 128 "Vertical Horizontal")  
   (setq rot (getkword "\nSpecify the slot direction [Vertical/Horizontal] : "))  

  (if (= rot "Vertical")  
    (progn  
      (setq pt1 (list (- (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
            pt2 (list (- (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
            pt3 (list (+ (car ip)(/ op 2)) (- (cadr ip) (/ (- di op) 2)))  
            pt4 (list (+ (car ip)(/ op 2)) (+ (cadr ip) (/ (- di op) 2)))  
        p1 (polar ip 0 op)  
        p2 (polar ip (* pi 0.5) (+ (* 0.5 op) (* 0.5 di)))  
        p3 (polar ip pi op)  
        p4 (polar ip (* pi 1.5) (+ (* 0.5 op) (* 0.5 di))))  
         
    )  
)  
(if (= rot "Horizontal")  
    (progn  
      (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
            pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
            pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
            pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
        p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
        p2 (polar ip (* pi 0.5) op)  
        p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
        p4 (polar ip (* pi 1.5) op))  
    )  
)  
  (if (= rot nil)  
    (progn  
      (setq pt1 (list (- (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
            pt2 (list (+ (car ip)(/ (- di op) 2)) (- (cadr ip)(/ op 2)))  
            pt3 (list (- (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
            pt4 (list (+ (car ip)(/ (- di op) 2)) (+ (cadr ip)(/ op 2)))  
        p1 (polar ip 0 (+ (* 0.5 op) (* 0.5 di)))  
        p2 (polar ip (* pi 0.5) op)  
        p3 (polar ip pi (+ (* 0.5 op) (* 0.5 di)))  
        p4 (polar ip (* pi 1.5) op))  
    )  
)  
   
   (setvar "osmode" 0)  
   (setvar "cecolor" "bylayer")  
   (setvar "celtype" "bylayer")  
   (command ".line" pt1 pt2 "")  
   (setq ent1 (entlast))  
   (command ".line" pt3 pt4 "")  
   (setq ent2 (entlast))  
   (command ".fillet" pt1 pt3)  
   (setq ent3 (entlast))  
   (command ".fillet" pt2 pt4)  
   (setq ent4 (entlast))  
   (command ".pedit" ent1 "" "join" ent2 ent3 ent4 "" "")  
   (setvar "cecolor" "8")  
   (setvar "celtype" "CENTER2")  
   (command ".line" p1 p3 "")  
   (setq ent5 (entlast))  
   (command ".line" p2 p4 "")  
   (setvar "cecolor" "bylayer")  
   (setvar "celtype" "bylayer")  
   (setvar "osmode" 679)  
  (setvar "filletrad" 0)  

(prin1)  
  )

CAD=Computer Aided Design计算机辅助设计
常用CAD软件如下:3dsmax         Pro-E（用在工业模具设计方面）  SolidWorks   UG         Catia
AutoCAD目前已经成为机械加工、建筑工程图、服装设计的标准软件       

准备知识
在图形表达时，如果没有特殊说明，均以毫米为单位
光滑度确定:工具/选项/显示/圆弧和圆的平滑度 为20000。注：最大值
右键功能取消:工具/选项/用户系统配置/绘图区域中不显示快捷菜单
密码设:工具/选项/打开和保存/下面的安全选项
对象捕捉设置:工具/草图设置/对象捕捉——全部选择
UCS图标可见性:视图/显示/UCS图标/（开/关）
相对坐标：前面加上@
相对直角坐标格式：@x的变量，Y的变量
相对极坐标格式：@长度<角度
角度为与水平正方向所成的角度：
水平方向右为“0”度，逆时针为正，顺时针为负

尺寸分两种：定形尺才和定位尺才
绘制直线时，U为撤消一步  C为封闭，也可以按CTRL+Z等于撤消到上一次操作。

启用对象捕捉快捷键（F3）

正交模式快捷键（F8）

F2键为命令行窗口和绘图窗口相互之间进行切换

AutoCAD对色彩没有特殊要求

选择常用的三种方法：
1）从左向右拖动窗口选择，要框住才能选中
2）以右向左拖动窗口选择，只要接触到对象就能选中，包含在其内的也能选中
3）点选

在AutoCAD的操作中，一般情况下，鼠标右键等同于回车键
操作完成后，再按一次右键为重复上一次的操作

三键鼠标  中间键向外滚动为放大窗口，向里滚动为缩小窗口

平面部分一
[两列工具条,除文字、图块、多线]
工具栏的操作：绘图工具栏（等同于绘图菜单）

直线（L）：全称(line)
在屏幕上指定两点可画出一条直线。也可用相对坐标
或者在正交模式打开的情况下，直接给实际距离  鼠标拖动来控制方向

构造线（XL）：全称（xline）
H为水平 V为垂直         O为偏移  A为角度  B为等分一个角度。


多段线（PL）：全称（pline）
首先在屏幕上指定一点，然后有相应提示：
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]。可根据需要来设置。
其中“圆弧”指定宽度可画任意角度圆弧；“半宽”指多段线的一半宽度，即如要高线宽为10，则5；“长度”给相应的值，则画出相应长度的多段线；“放弃”指放弃一次操作；“宽度”指多段线的宽度

多边形（pol）：全称（polygon）
所绘制多边形为正多边形，边数可以自己设
E：根据边绘制多边形    也可根据圆的半径利用外切和内接来画正多边形

矩形（REC）：全称（rectang）
点击矩形工具后出现下列提示：
指定第一个角点或 [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]
其中“倒角”是将90度直角的两条边割去一点。变成一个斜角。“标高”是空间上的意义可以在三视图当中展现出来,标高是相对的；“圆角”：即是将四个直角边倒成半径为X的圆角；“厚度”：空间上的意义，可在Z轴上表现出来  “宽度”：平面空间的概念，指矩形四边的宽度。

圆弧（ARC或A）：  默认为3点画圆弧，成弧方向为逆时针，画优弧半径给负值。绘图菜单中有如下选项：
起点、圆心、端点；
起点、圆心、角度；
起点、圆心、长度；
起点、端点、角度；
起点、端点、方向；
起点、端点、半径；
圆心、起点、端点；
圆心、起点、角度；
圆心、起点、长度；

圆（C）全称（circle）
默认为圆心半径[直径]画圆。绘图菜单中有选项：两点、三点、切切半径、切切切画圆。

云线（revcloud）用来做标记(不重要)

样条曲线（SPL）全称：（pline）
用左键确定各点后，三次回车：第一次断开，第二次起点切线方向，第三次终点切线方向

椭圆（EL）全称（ellipse）
不常用。先给长轴的总长，再给短轴的一半。或者以中心画：长短轴各给一半。

椭圆弧（ellipse）不常用。用来画椭圆弧

点（P）全称（point）
点工具不可以按右键确定退出，要想退出只能按ESC键。有下列绘制操作：

格式：点样式
点的大小，相对于屏幕的比例给10%比较合适，
外面的图标相当于多点 ，操作过程中，按 ESC才能退出
单点：绘图菜单里，即点一点就退出
点的定数等分（DIV）： 通过点将一个对象等分成N等份
点的定距等分（ME）：将一个对象按多长距离一个点做标记
闭式路径的等分，N等分就为N个点；开式路径的等分，N等分为N—1个点
注：点的操作不同于其他工具的操作，退出后重复上一次操作可以回到上次想要的，和其他有联级菜单的绘图工具不一样

图案填充（BH）全称（bhatch）
必须是封闭的对象才能填充
AR开头  建筑上比较多
ANSI美国国家标准
ISO国际标准化组织的标准
一定要点预览    ESC或右键 返回
编辑剖面线：  修改II：第二个图标
剖面填充后，在没有分解的情况下，可以特性匹配MA
填充图案尽量不要分解，以便于编辑
图案填充的三种高级设置：
外部的意思，点哪个区域，填充哪个区域
注：忽略填充，往里面忽略，计算方式为向内计算

面域（REG）全称（region）
前提：首尾相连的封闭体  引申出点线面体的概念
将一个首尾相连的封闭对象由线框变成一个面，实现线到面的转换。第一次点会有点慢
引伸到布尔运算：调出实体编辑，布尔运算的三种形式：并集、差集、交集，只有面域才可以进行布尔运算               


修改工具栏：
删除（E）全称（erase）
用来删除对象，点击删除在命令行输入ALL即是删除绘图区域所以对象；默认为删除被选中对象

复制（CO）全称（copy）
用来复制对象，默认为复制被选对象；指定基点将复制出的对象移动到另一个位置。可给实际尺寸移动：三种情况，只复制一次，多重复复制，距离复制，相对坐标复制

镜像（MI）全称（mirror）
用来复制一个和源对象对称的对象，默认为指定两点确定一条镜像线。特点：对应点垂直平分
mirrtext（镜像变量控制命令）：给1完全镜像，给0图形镜像，文字不镜像

偏移（O）全称（offset）
实现对象的偏移，先给尺寸后偏移，偏移完成后按右键退出

阵列（AR）全称（array）重点内容
实现对象的阵列，有矩形阵列和环形阵列两种；以对话框的形式提示：
矩形阵列：设置好n行m列，再给出行偏移值和列偏移值，分四个象限
环形阵列：首先确定好三要素：中心点、项目总数、填充角度，有三个选项

移动（M）全称（move）
实现对象的移动，可给实际尺寸进行操作
引申到夹点的控制

旋转（RO）全称（rotate）
实现对象的旋转，参照旋转和自由旋转；正交打开以90度为计算，

缩放（SC）全称（scale）
实现对象的缩放，默认为比例缩放，对象特性的应用改变，R参照的应用

拉伸（S）全称（stretch）
必须从右向左选中，而且只能选中局部，选中一个点即对一个点进行操作，选中两个点即对两个点进行操作，选中所有点等同于移动工具。分为准确拉伸和随意拉伸，参照拉伸

修剪（TR）全称（trim）
用来修剪对象，操作方法，点击修剪工具后按一次右键确认。再用左键去修剪，技巧操作：（一次性修剪）点修剪，选中分界线，确认，输入F，然后选择两点，提出一条直线，被选中，全被修剪                独立线段不可以修剪
空间修剪：选择修剪，按右键，输入P（投影）有两种选项，N，必须真实相交，U投影到XY平面修剪，V当前视图投影修剪。


延伸（EX）全称（extend）
用来延伸一个对象，首先选中延伸边界，确认再选择被延伸对象

打断于点（BR）全称（break）
将一个对象打断于一点，用左键选择对象之后直接用左键去点对象，点中的那一点将被作为打断点，不准确，基本无应用

打断（BR）全称（break）
将一个对象打断，以两点打断，不准确，基本无应用
倒角（CHA）全称（chamfer）
将对象的两条边各去掉一段距离；有下列提示：
(“修剪”模式) 当前倒角距离 1 = 0.0000，距离 2 = 0.0000
选择第一条直线或 [多段线(P)/距离(D)/角度(A)/修剪(T)/方式(M)/多个(U)]
其中“多段线”是指对一个整体对象进行操作，比如矩形，可以一次将四个边倒去；
“距离”设定倒角的距离，第一条边和第二条边；“角度”通过角度来设定倒角；“修剪”确定倒角的模式，是否修剪；“方式”确定倒角的方式，是以距离倒还是以角度倒；“多个”如有多个相同倒角时可以使用

倒圆（F）全称（fillet）
将对象的两条边所成的角度倒成一个圆角，有下列提示：
当前设置: 模式 = 修剪，半径 = 0.0000
选择第一个对象或 [多段线(P)/半径(R)/修剪(T)/多个(U)]
其中“多段线”是指对一个整体对象进行操作，比如矩形，可以一次将四个边都倒去；“半径”设定所倒圆角的半径；“修剪”设定倒圆模式；“多个”有多个相同倒圆时可以使用

分解（X）全称（explode）
将一个整体对象进行分解成多个独立对象，即分解成线；如要将实体分解成线要分解两次，即由体分解成面再由面分解成线

平面部分二：

企 业已经越来越多的认识到，在国际先进管理思想的指导下，有效的利用IT技术和信息化软件系统（如ERP，CRM，SCM等），可以优化企业的业务流程，提 高企业的运作的效率，为企业管理和决策提供准确的数据，从而提高企业在市场中的竞争力，实现企业盈利的目标。信息化在企业中应用成功的案例有很多，然而， 令人遗憾的是企业信息化应用失败也不乏有之。当然，失败的原因有很多，有的可能是因为企业经营战略发生重大变化或管理变革受阻的问题，有的是技术不成熟问 题，但更多的可能是部分系统已经应用，但是企业关心的一些具体需求却无法在系统中流畅的运转。为什么会出现这种情况呢？又该如何来解决呢？

市 场上的ERP、CRM等商品化软件产品，属于通用软件产品，是针对一个或多个行业、多个用户而设计开发的软件系统。软件功能比较标准，流程设置相对规范 化，注重的是一种通用性。当然，这些通用软件也会提供许多可调参数，通过设置这些参数来满足不同用户的不同需要，但这种灵活性往往是相对有限的，在很多情 况下是无法通过调整软件参数来满足企业的一些特殊需求的。如以下几种现象：

现象一：由于不同企业的具有不同的具体情况和具体需求，可能会 导致与ERP软件功能匹配的差异，软件商会强调ERP软件的通用性，要求企业改变其原有的流程来适应软件，而企业又可能会强调这些特殊需求存在的必要性， 如果软件中无法实现这个功能，就无法正常的进行后继的工作。

现象二：虽然ERP软件可以提供丰富的统计和分析报表，但是可能有些报表的格式与企业要求的格式差异较大，有些综合分析的报表可能需要多张报表综合整理后才能提供。

从以上出现这些现象和问题可以看出，客观上ERP软件产品业在不断的完善其功能，但也不可能做到面面俱到；要求ERP具备适应各种变化的能力，但有时也无法应对市场的快速变化。此时，通过二次开发和客户化的工作，就可以较好的解决这些“特殊需求的问题”。

企 业建设信息化的方式不外乎三种：使用成熟的ERP软件+少量的二次开发；使用不太成熟的ERP系统+比重较大的二次开发；纯粹的按照企业需求定制开发。从 已实施成功的案例来看，采用第一种的方式实施成功的企业最多，而且随着典范作用的影响，越来越被企业认可；采用第二种形式的也有成功者但较少，大多是一些 刚刚转型做ERP的软件商在企业中完善其产品；采用第三种形式成功的几乎没有，这多是计算机系统刚刚普及时较多存在的一种形式，它最大也只能实现部分业务 的自动化，现在正逐步的萎缩。

如果企业是在ERP软件选型阶段，也要考虑到这些问题出现的可能性，了解一下你正在选型的ERP软件是否可 以提供二次开发和客户化的功能。实际上，众多成熟的ERP软件商也都提供了支持的二次开发的功能和工具，如：MAPICS公司提供的报表设计器和二次开发 具Centura，SAP提供的开发平台ABAP等。需要注意的是许多ERP软件不太成熟的软件商，可能会许诺把不能实现的功能放在二次开发中，这时企业 可能就变成了软件商完善产品的试验田，而且会造成“没完没了”的ERP实施。

下面再让我们结合两个具体案例来探讨一下，在信息化应用过程中，二次开发主要会修改一些怎样的内容。

案 例一：某制药企业准备在企业中应用ERP系统，并成立了专门的信息化小组，但是经过对市场上的ERP产品的功能进行比较分析以后发现，各个产品提供的绝大 部分功能是相似的，并且各有优势和缺陷，再经过进一步的数据和流程模拟后发现，没有一个ERP产品完全的可以满足企业百分之百的业务需求，能达到百分之八 十的就更少了。企业不可能因为这百分之二十的“缺陷”就不使用ERP系统了，他们分析了业务流程中存在哪些业务是本企业比较特殊而又必须客观存在的，哪些 是临时存在以后会抛弃的，哪些是因为自己的流程不规范需要进行管理变革的，哪些是合理而又在ERP软件中没有的，然后决定哪些特殊业务需要企业变革来解 决，哪些特殊需求放在二次开发中解决。经过综合的分析比较，最终他们选择了一家比较“适合”的ERP供应商。对于哪些企业自身比较特殊又非常重要的需求， 由软件供应商通过二次开发的方式来解决，如：制药企业都必须通过GMP认证，对于GMP认证的文档和技术文献的管理，就是大多数ERP软件中所没有的，这 一部分如果使用OA系统来实现比较牵强而且不能很好的与ERP系统中的质量模块接口。GMP认证的文档的管理对于制药企业来说是非常重要的，因此他们考虑 通过二次开发的方式来实现这一功能。又如：仓库中使用的是层列分开的高架仓库，为了管理的方便，仓管员希望软件中通过一个比较直观形象的界面可以查看到某 列某层货位存放的物料名称，数量、状态（合格与否）等动态信息，一般的ERP软件中只是提供了逐级报表查询的模式，比较麻烦，因此也准备通过二次开发方式 来实现。

案例二：某涂料企业正在企业内部建设信息化项目，实施ERP系统。在实施过程中，随着市场的不断变化，一种“寄售”的销售模式越 来越多的出现在销售过程，因为除工程定单外，对于一些大众化的涂料产品，如：油漆、涂料等会寄放在建材超市中销售，即企业发货到客户仓库，客户在一定时期 后才计算所销出的产品，往往从发货到结算时间跨过发货当月的会计月度。造成企业在发货后并不能马上转销售成本，开出发票，登记应收账款，而是只能在会计处 理上把已发出的货仍当作库存，在得到客户的付款承诺和开票通知后才能开发票，转成本，挂应收；但是另一方面，为了对销售应收的管理，财务部门又不得不建立 另外一套帐记录这些发货，并定期和销售部门对帐，实质上就是财务部门从会计制度的角度和销售部从业务实际的角度对应收账款的理解的不同，财务和销售两部门 同时管理，且计算方法不同，这样不可避免会出现不一致的结果，需耗费大量人力物力进行对账。显然这部分功能是随着市场的发展而出现的，也是现有ERP系统 中所不能实现的，考虑到这部分特殊业务的重要性，该企业想到了通过二次开发来接解决的办法，于是决定与软件供应商签定二次开发的合同。

由 案例一可以看出：对于ERP系统还未上线的企业来说，二次开发所要修改的主要是哪些具有非常高的重要性和必要性，可能会影响到ERP上线的一些特殊的具体 需求。由案例二可以看出：对于ERP系统已经上线的企业来说，二次开发侧重于修改随着企业需求的变化出现的哪些影响企业正常业务的特殊需求。

接下来让我们来讨论一下，客户化和二次开发对ERP项目实施的影响：

客 户化一般指在ERP实施过程中，把不涉及程序改动的工作，一般只需要软件的实施顾问或企业的操作人员就可完成。如修改报表格式，增加企业需要的一些业务查 询报表等。借助ERP软件的报表生成功能，不需要有很多计算机知识，企业中的业务人员在实施顾问的指导下，很快就可以学会如何设置。

二次 开发通常会涉及到软件模块的改动，要增加或修改软件的功能，一般需要专业的程序开发人员和软件实施顾问完成，需要借助软件商提供支持二次开发的工具，还可 能需要有软件的源程序，这些可能需要支付额外的费用，而且并不是每个软件供应商都愿意提供源代码。一般来说，二次开发应该尽量的减少或避免。这是因为从事 二次开发的人员必须熟悉软件的功能和相应数据库中表的结构，又要充分的理解用户的特殊业务的流程，这是需要一定的时间和工作量的，甚至可能会延误信息化项 目的实施进程；再者改动软件后还会影响今后软件版本升级，因为软件供应商在开发新版本的软件系统时，可能根本不会考虑针对某个特定的用户的特殊需求所做的 个性开发。

再让我们看一下在前面介绍的两个二次开发的案例中，这两家企业ERP应用的怎么样？

案例一：这家制药企业选择 的是一家表面上功能非常全，而实际上ERP产品还不成熟的软件商，因为这家软件商的二次开发政策非常的灵活，采用的是“不太成熟的ERP软件+比重较大的 二次开发的”方式。由于软件商所承诺的需要二次开发的功能太多，而且有些功能的个性化非常强，再者合同金额有限，不能安排精干的二次开发人员，结果由于二 次开发的一而再再而三的拖延，造成ERP的实施项目，变成了没完没了的“马拉松”。后来由于二次开发中数据库中表结构的改动较大，无法进行版本升级，给维 护工作带来麻烦。由于二次开发中出现的麻烦，导致ERP应用流程的不顺，也就无法实现企业通过ERP应用提高管理水平的初衷，无法体现ERP的真正价值 了。

案例二：这家涂料企业是非常的幸运的，因为他们最初选择的就是一家非常成熟的国外ERP软件产品，他们的新出现的这项特殊业务，原来 在国外已经比较的多，软件商在了解了用户的具体需求后发现与他们正在做汉化测试工作的新版本中就完全可以解决，后来他们仅做了少量的客户化工作就实现了这 个功能。他们真正的享受到了成熟ERP所带来的高效率，体验到了ERP的价值所在。

因此，不难看出，企业实现信息化最佳的路径是：通过选择成熟的ERP产品+少量的二次开发方式进行。如果必须要做二次开发，一定要认真的分析对比并权衡利弊，究竟是修改软件功能，还是改革现有的业务流程，或者是两者都有些修改，要寻求一种最佳的解决方法。