东静给排水CAD绘图辅助软件

linque06

东静给排水CAD绘图辅助软件（LBJ2019）

(主要针对变电站、化工厂场地给排水开发)

（未完待续，尽量每周更新）

林伯江 2019.09.06

LBJ2019是一款专门针对变电站(或其它工厂类设计)水工专业设计开发的绘图辅助软件。因其通用命令占比大，因此也适合其它专业。

LBJ2019让你的制图效率更高，且绘制的每张图纸都更加标准，更加美观。

关键词：CAD绘图辅助软件

目  录

第 1 章        安装及配置教程... 2

1.1 VBA安装包... 2

1.2 程序本体配置... 2

1.3 其它说明... 4

第 2 章        主要命令... 6

2.1 常用20命令... 6

第 1 章  安装及配置教程1.1 VBA安装包

LBJ2019是基于AutoCAD平台的VBA二次开发。在CAD2008版以上的版本中使用前需安装与CAD版对应的VBA包，可上CAD官网(https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/download-the-microsoft-vba-module-for-autocad.html)中下载，比较老的版本（CAD2016以前的）也可以去明经通道论坛中下载。LBJ2019安装包中已含有CAD2019 bit64版（后续考虑剔除）对应的VBA安装包。

如需软件安装包，下载网址：https://pan.baidu.com/s/1FFnG9ecPXfFJrku6V_EZWQ或请发邮件至linque06@163.com，目前本软件免费，尚在测试中。

部分视频地址：https://pan.baidu.com/s/1Rb_dafRWSpSuH91f4V63GQ。

欢迎把使用感受、改进意见或功能需求，反馈给我邮箱：linque06@163.com，谢谢。

1.2 程序本体配置

VBA安装包安装完成后，打开CAD。

输入“Appload”

                              

添加安装包中的LBJ2019.dvb文件文件和\lsp\ acaddoc.lsp文件。

注：LSP文件下其它lisp程序均为网友贡献，大家使用前需经原创同意后才能使用。

添加后重启CAD，此时可能会弹出VBA的安全提示。如下图：

需通过OP-系统-安全设置-关

否刚以后每次打开都会提示安全信息。如果对安全性要求比较高，可以通设置信任位置解决，请自行百度方法。

1.3 其它说明1.3.1  字体说明

本软件的推荐字体是 配置。如需该字体请联系软件商取得，恕本程序不提供字体。与文字相关的命令均针对该字型开发，使用其它字体可在图美观上会有所欠缺。

1.3.2  洁净版说明

洁净版软件不含各种图层库、块库等，需自扩充。管道功能必须使用的参数化块也没有提供，如果需要请发邮件至linque06@163.com。洁净版软件对原代码是加密的，请尊重我的劳动，不要随便破解，感谢。

1.3.3 反馈及功能开发

在使用软件过程中如果对本软件的某些命令有什么建议也请发邮件给我。如需要功能开发，可以把想法大致写一下，发给我。不太难的可以考虑帮忙实现。如果费时费力的，看心情吧。

1.3.4  引用方面

本软件全功能需要参考如下库。后续考虑删除一些不常用功能，将低库方面的错误。目前使用时有问题请发邮件联系我。

  

第 2 章   主要命令2.1 常用20命令

'自定义的启动函数

(defun-q LBJSTARTUP( )

    (prompt"\n LBJ绘图辅助插件已经成功加载……\n祝您绘图顺利……")

    (command"_VBALOAD" "LBJ2019.dvb")

):defun-q

(setq S::STARTUP(append S:: STARTUPLBJSTARTUP))

(defun c:DJM()   ;创建东静程序菜单

       (command"-vbarun" "thisdrawing.DJM")

)

2.1.1 图层策略命令（快捷键:SGL）

该命令主要功能是1.快速批量建立命令，2.快速建立（或置为当前图层）常用图层。命令启动界面如下：

使用的前提：在程序的LBJ2019\Txts\Layers下（用OSF命令可以快捷找到该命令）需新建图层策略文件。

图层策略文件编制如下：

红框为图层名，绿框为色号（详CAD），灰框照填，一个图层一行，数量不限。 文件名随意命名。

后续版本：将提供常用部分的图层的命名修改接口。

(defun c:IOB()   ;块插入程序。

       (command"-vbarun" "thisdrawing.IOB")

)

(defun c:ION()   ;电子签名插入程序。

       (command"-vbarun" "thisdrawing.IOName")

)

(defun c:TC()   ;十字坐标插入程序

       (command"-vbarun" "thisdrawing.TCoor")

)

(defun c:NUMI()   ;数值增减程序，用于修改标高

       (command"-vbarun" "文字模块.NUMI")

)

(defun c:OSF()   ;打开指定文件程序

       (command"-vbarun" "thisdrawing.OpenSpeFolder")

)

(defun cWS()   ;打开工作空间

       (command"-vbarun" "thisdrawing.LWS")

)

(defun c:OXM()   ;项目路径打开

       (command"-vbarun" "thisdrawing.OXM")

)

(defun c:ABC()   ;块统计

       (command"-vbarun" "thisdrawing.AimBlockCount")

)

(defun cIC()   ;管长统计

       (command"-vbarun" "thisdrawing.LIC")

)

(defun cIC1()   ;管长统计

       (command"-vbarun" "thisdrawing.LIC1")

)

(defun c:SGT()   ;管长统计

       (command"-vbarun" "文字模块.SGTFont")

)

(defun c:DNL()   ;管长标注

       (command"-vbarun" "工程量统计.DNL")

)

(defun c:DNL2()   ;管长标注,加坡度

       (command"-vbarun" "工程量统计.DNL2")

)

(defun c:GT()   ;文字修改命令

       (command"-vbarun" "文字模块.GetTC")

)

(defun c:TAL()   ;文字修改命令

       (command"-vbarun" "文字模块.TAlign")

)

(defun c:GD()   ;管道。

       (command"-vbarun" "thisdrawing.GD")

)

(defun c:DP()   ;文字修改命令

       (command"-vbarun" "DIM_标注模块.DP")

)

(defun c:JCC()   ;检查井标注程序

       (command"-vbarun" "thisdrawing.JCC")

)

(defun cSU()   ;ABD材料清册汇总

       (command"-vbarun" "thisdrawing.LSu")

)

(defun c:MLA()   ;多重引线样式设置,MLS为CAD内置多重引线样式管理器20190523

       (command"-vbarun" "DIM_标注模块.MLS")

)

;现多重引线的操作流是 *SGT+MLA+MLS+MLD+*MLE+GT  优于ZDM的LJH+CBD

(defun c:TCM()   ;多重引线样式格式的AB坐标标注，最多连续标注20个点。

       (command"-vbarun" "DIM_标注模块.TCM")

)

2.1.2 直线定距插块命令（快捷键:ILB）

该命令主要功能是在平面上任意点选两点，可以根据固定距离在两点间按直线插入指定块，不含起止点。界面如下：

3625095

不错 楼主这个很牛逼

mikewolf2k

话说楼主还是编译成dll再发吧，dvb加密在某些人眼里就是一张纸。

mikewolf2k

另外建议模块名用英文，在英文系统内不认识中文。

linque06

mikewolf2k 发表于 2019-9-19 15:29
话说楼主还是编译成dll再发吧，dvb加密在某些人眼里就是一张纸。

无所谓，再有人真想破解，说明东西还算有可取之处。
重要是贴合实际的想法。
我自编自用自完善，这个不一定人家能拿去。
可惜，能力有限不能都按想法实现。而且语言也只会这个。

mikewolf2k

不用专业配管软件？
话说MS平台下我编了些工具集，有兴趣的话试试：
PineApp
链接: https://pan.baidu.com/s/1LM76LCj-0Fx4mDfsy5mm4w 提取码: ynud
以及OPM标注软件动画：
链接: https://pan.baidu.com/s/1fOiLkUbfMtnv6j84lEv_5A 提取码: upr2

linque06

mikewolf2k 发表于 2019-9-26 16:28
不用专业配管软件？
话说MS平台下我编了些工具集，有兴趣的话试试：
PineApp

看起来好强大，很专业。
如果确实是自己开发的
有这技术可以自己开发一套程序卖。
我是做变电站给排水的，暂时用不到这么复杂的。原来是Bentley的插件，现在电网Bentley软件国网一直在推，这个开发比较有前途

新鲜8

东西呢我怎么看不到呀

linque06

新鲜8 发表于 2019-10-7 08:56
东西呢我怎么看不到呀

需要的话留个邮箱

tranney

9405094@qq.com,兄台我也是给排水专业的