南方CASS软件VB二次开发之二VB批量绘制直线

南方CASS软件VB二次开发之一安装软件以及调出VB编辑器

前言

下面通过第一个DEMO来讲解在南方CASS软件中通过VB二次开发来实现自动绘图全流程

开发步骤

1、准备数据

数据格式是：x1,y1,x2,y2

2、 VB脚本

Sub CreateLinebytxt()Dim Line As AcadLineDim Spnt(2) As Double, Epnt(2) As DoubleDim I As Integer, J As Integer, K As Integer''''''''1、读取txt文件Close #1Open "E:\2023\非项目\cad测试\直线点位.txt" For Input As #1While Not EOF(1)''''''''2、逐行读取Line Input #1, CurrentlinesIf Currentlines <> "" ThenVars = Split(Currentlines, ",")''''''''3、创建直线Spnt(0) = Vars(0): Spnt(1) = Vars(1)Epnt(0) = Vars(2): Epnt(1) = Vars(3)Set Line = ThisDrawing.ModelSpace.AddLine(Spnt, Epnt)End IfWendClose #1End Sub

3、 测试执行

4、 制作图标

新建工具栏

新建弹出

在命令列表中新建命令

编辑命令，首先编辑命令中的名称和宏，宏就是我们之前写的VB脚本名称，再编辑命令中的图标
宏

^C^C^C-VBARUN;CreateLinebytxt

编辑图像

保存图像

拉到图标的最后位置

图标完成之后，就可以点击应用，然后将命令拖到工具栏下


再点击确定即可

回到CASS页面，可以找到刚创建的工具栏和对应的弹出按钮

直接点击这个按钮，它也是可以执行的