002集——CAD中画100个圆——vb.net入门

山水CAD插件定制

已于 2025-04-13 14:41:04 修改

阅读量379

点赞数 2

CC 4.0 BY-SA版权

分类专栏： CAD (VB.NET) 文章标签： .net CAD

于 2024-07-28 17:02:34 首次发布

本文链接：https://blog.youkuaiyun.com/yongshiqq/article/details/140752843

首先我们看下CAD中画圆在vba中的语法：

vba中圆心坐标为变体变量variant，而vb.net中无variant这以数据类型，较为接近的有object类型，但是运行时会保存，经调试，改为double类型可正常运行。

代码如下：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cad As Object
        Try
            cad = GetObject("autocad.Application")
        Catch ex As Exception
            cad = CreateObject("autocad.Application")
        End Try
        cad.Visible = True
        cad.documents.Add
        For i = 1 To 100