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

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

前言

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

开发步骤

1、准备数据

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

2、 VB脚本

Sub CreateLinebytxt()
    Dim Line As AcadLine
    Dim Spnt(2) As Double, Epnt(2) As Double
    Dim I As Integer, J As Integer, K As Integer
    
    ''''''''1、读取txt文件
    Close #1
    Open "E:\2023\非项目\cad测试\直线点位.txt" For Input As #1
    While Not EOF(1)
        ''''''''2、逐行读取
        Line Input #1, Currentlines
        If Currentlines <> "" Then
            Vars = 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 If
    Wend
    
    Close #1
    
    
End Sub

3、 测试执行

4、 制作图标

新建工具栏

新建弹出

在命令列表中新建命令

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

^C^C^C-VBARUN;CreateLinebytxt

编辑图像

保存图像

拉到图标的最后位置

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


再点击确定即可

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

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