[推荐]：发电厂变电站防雷绘图计算程序

zhang8755

软件功能及使用说明
本软件将避雷针防雷计算融合在了避雷针保护范围绘图的过程中，通过交互式操作，在选择避雷针的绘图过程中，同时完成了保护范围的计算，采用工具栏和菜单驱动，使用直观简单，符合工程技术人员的设计习惯，功能模块如下：
1.        防雷图基点设置，在准备绘制避雷针保护范围的图上设置一个基点，并输入此图的绘图比例和出图时的比例。例如绘图时图形中每一个单位代表一米，绘图比例即为1:1000输入1000即可，出图时需放大一倍，即出图比例为2:1,输入2即可；
2.        避雷针布放，在图纸上放置避雷针，同时输入避雷针的编号和高度。提供独立避雷针和架构避雷针两种型式；
3.        避雷线布放，在图纸上画避雷线，同时输入避雷线的编号和高度。
4.        单避雷针或避雷线保护范围绘图，先输入被保护物的高度，在选择一个避雷针或避雷线，并点选标注位置的起点和文字标注点，完成单避雷针或避雷线保护范围绘图；
5.        双避雷针保护范围绘图，先输入被保护物的高度，按顺时针方向依次选择两个避雷针，再确认保护范围是否闭合，并点选标注位置的起点和文字标注点，完成双针保护范围绘图。保护范围绘制在顺时针方向的外侧，即前进方向的左手侧；
6.        多避雷针保护范围绘图，先输入被保护物的高度，按顺时针方向依次选择避雷针，再确认保护范围是否闭合，并点选标注位置的起点和文字标注点，完成多针保护范围绘图。保护范围绘制在顺时针方向的外侧，即前进方向的左手侧；
7.        多避雷针保护范围内部检查绘图，先输入被保护物的高度，在多避雷针保护范围中，选择需要检查Bx的两支避雷针；
8.        双避雷针或多避雷针保护范围更新，当用户修改了某支避雷针的位置或高度后，需要重新绘制与此避雷针相关的保护范围时，可使用本模块，选择要更新的保护范围即可；
9.        两条或多条避雷线保护范围绘图，先输入被保护物的高度，按照从上到下的顺序选择避雷线，并点选标注位置的起点和文字标注点，完成保护范围绘图。对于垂直平行的避雷线，按照从左到右的顺序选择；若出现保护范围绘制混乱，改变选择避雷线的顺序即可；
10.        单避雷针和一条避雷线联合保护范围绘图，先输入被保护物的高度，再选择避雷针，避雷线，再选择标注位置的起点和文字标注点，完成联合保护范围绘图；
11.        防雷保护范围计算结果制表，在用户选择的位置自动生成本图防雷保护计算结果表；
12.        防雷保护计算书生成。
注意事项
        1.本软件所绘制的图形采用编组的方式，每一个保护范围为一组，可象块一样整组操作，当需要单独移动或删除组中的一个实体时，可利用〔防雷〕菜单中的〔组选〕功能，暂时将编组分解，即可对组中的实体单独操作。
        2.绘制保护范围图时，应完成标注，因为编组功能是在标注后进行的，若在标注完成前中断程序将导致编组失败，对以后的操作造成不便，并且不能更新，需删除后重新绘制。
        3. 避雷针保护范围计算结果表不会自动随着图形中的保护范围变化而自动更新，需在图中的保护范围变化后重新制表。
        4. 避雷针保护范围计算是按照规程《交流电气装置的过电压保护和绝缘配合》DL/T 620—1997编制的。避雷线保护范围计算是按照规程《水力发电厂过电压保护和绝缘配合设计技术导则》DL/T5090—1999编制的。
  5. 保护范围更新程序中，标注被保护物高度的位置不会随着变化，若其位置不对，请在取消〔编组选择〕功能后，自行修改。
  6. 一张图纸中的避雷针和避雷线的编号不能重复，否则会造成保护范围更新程序出错。

zhang8755

提供下载的是初级版，欢迎有需要的单位购买正式版，正式版具有完整的编辑功能，并且能够生成计算表格、计算书，增加了避雷线保护的绘图和计算。

WYQ4517

我下载了。
用了一下，推想是不错的软件。
我画了4支针的范围，其余什么都不让使了。初级版，或者受限制版，限制太多，大家会失望的。
你的菜单中没有文件相对路径，安装中应有详细说明。(load "fl.vlx")，到哪找fl.vlx ？
菜单摘录：

***POP1
**避雷针防雷保护绘图
ID_FL          [防雷]
ID_FLBASE      [防雷基点设置]^C^C^P(if (null c:flbase)(load "fl.vlx")) flbase
ID_FLJGZ       [放置架构避雷针]^C^C^P(if (null c:fljgz)(load "fl.vlx")) fljgz
ID_FLDLZ       [放置独立避雷针]^C^C^P(if (null c:fldlz)(load "fl.vlx")) fldlz
ID_FLBLX       [画避雷线]^C^C^P(if (null c:flblx)(load "fl.vlx")) flblx
ID_FLEDZ       [避雷针参数编辑]^C^C^P(if (null c:fledz)(load "fl.vlx")) fledz
ID_FLSINGLE    [单支避雷针/线保护]^C^C^P(if (null c:flsingle)(load "fl.vlx")) flsingle
ID_FLMUTILINE  [平行避雷线保护]^C^C^P(if (null c:flmutiline)(load "fl.vlx")) flmutiline
ID_FLBLZBLX    [避雷针避雷线保护]^C^C^P(if (null c:flblzblx)(load "fl.vlx")) flblzblx
ID_FLDOUBLE    [双支避雷针保护]^C^C^P(if (null c:fldouble)(load "fl.vlx")) fldouble
ID_FLMUTI      [多支避雷针保护]^C^C(if (null c:flmuti)(load "fl.vlx")) flmuti
ID_FLINMUTI    [多支避雷针内部保护]^C^C^P(if (null c:flinmuti)(load "fl.vlx")) flinmuti
ID_FLEDBHFW    [保护范围更新]^C^C^P(if (null c:fledbhfw)(load "fl.vlx")) fledbhfw
ID_FLJSJG      [计算结果制表]^C^C^P(if (null c:fljsjg)(load "fl.vlx")) fljsjg
ID_FLJSS       [生成计算书]^C^C^P(if (null c:fljss)(load "fl.vlx")) fljss
ID_FLPICK      [$(if,$(getvar,PICKSTYLE),!.)组选开关]'PICKSTYLE $M=$(-,1,$(getvar,PICKSTYLE))
ID_FLVER       [关于...]^C^C^P(if (null c:flver)(load "fl.vlx")) flver

zhang8755

fl.vlx 在程序安装后的目录可以找到，菜单文件中没有路径是因为安装程序负责将安装目录添加到AUTOCAD的搜索目录中，这样程序的适应性更好。
现在是市场经济，我还指望着卖软件生活，所以初级版提供的功能并不多，请大家见谅。

WYQ4517

我也编、卖过软件，实在是苦事！现在不干了，伤心啊。我理解。

hbq038108

最初由 WYQ4517 发布
[B]我也编、卖过软件，实在是苦事！现在不干了，伤心啊。我理解。 [/B]

现在什么事情都不好干啊

tline_gy

同意，不过可惜楼主不搞设计了

41957979

楼主是设计行业的老大哥，不做设计做软件也行，不都在为电力设计做事嘛，希望能做出更好的软件服务于我们这些浅学者。顶！！！！

weichunxiu

对于我这初出茅庐的人很有用呀。。。

qsm

不错啊。好东西。

水如天

我在别人那里看到过这个软件，搜索到这里的，不知道初级版到底怎样，下载试用一下再说，支持一下先!!!谢谢版主。

dian504

不知道楼主这个软件的价格是多少,呵呵!

jadekylin

我们做设计还是需要很多好的计算软件阿！