明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 121|回复: 3

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

[复制链接]
发表于 2019-9-7 17:23 | 显示全部楼层 |阅读模式
东静给排水CAD绘图辅助软件(LBJ2019)
(主要针对变电站、化工厂场地给排水开发)
(未完待续,尽量每周更新)
林伯江 2019.09.06
LBJ2019是一款专门针对变电站(或其它工厂类设计)水工专业设计开发的绘图辅助软件。因其通用命令占比大,因此也适合其它专业。
LBJ2019让你的制图效率更高,且绘制的每张图纸都更加标准,更加美观。
关键词:CAD绘图辅助软件


目  录


第 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 cJM()   ;创建东静程序菜单
       (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 cNL()   ;管长标注
       (command"-vbarun" "工程量统计.DNL")
)
(defun cNL2()   ;管长标注,加坡度
       (command"-vbarun" "工程量统计.DNL2")
)
(defun c:GT()   ;文字修改命令
       (command"-vbarun" "文字模块.GetTC")
)
(defun c:TAL()   ;文字修改命令
       (command"-vbarun" "文字模块.TAlign")
)
(defun c:GD()   ;管道。
       (command"-vbarun" "thisdrawing.GD")
)
(defun cP()   ;文字修改命令
       (command"-vbarun" "DIM_标注模块.DP")
)
(defun c:JCC()   ;检查井标注程序
       (command"-vbarun" "thisdrawing.JCC")
)
(defun cSU()   ;ABD材料清册汇总
       (command"-vbarun" "thisdrawing.LSu")
)
(defun c:MLA()   ;多重引线样式设置,MLSCAD内置多重引线样式管理器20190523
       (command"-vbarun" "DIM_标注模块.MLS")
)
;现多重引线的操作流是 *SGT+MLA+MLS+MLD+*MLE+GT  优于ZDMLJH+CBD
(defun c:TCM()   ;多重引线样式格式的AB坐标标注,最多连续标注20个点。
       (command"-vbarun" "DIM_标注模块.TCM")
)
2.1.2 直线定距插块命令(快捷键:ILB
该命令主要功能是在平面上任意点选两点,可以根据固定距离在两点间按直线插入指定块,不含起止点。界面如下:

发表于 2019-9-19 15:10 | 显示全部楼层
不错 楼主这个很牛逼
发表于 2019-9-19 15:29 | 显示全部楼层
话说楼主还是编译成dll再发吧,dvb加密在某些人眼里就是一张纸。
发表于 2019-9-19 15:30 | 显示全部楼层
另外建议模块名用英文,在英文系统内不认识中文。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-9-20 05:44 , Processed in 2.270070 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表