zoukankan      html  css  js  c++  java
  • AutoVBA在绘图空间创建直线对象

    AutoVBA在绘图空间创建LINE对象,代码如下。

    Public Sub creatline()
        Dim mylineobject As AcadLine
        Dim startpoint(0 To 2) As Double
        Dim endpoint(0 To 2) As Double
        startpoint(0) = 1
        startpoint(1) = 3
        startpoint(2) = 2
        endpoint(0) = 4
        endpoint(1) = 5
        endpoint(2) = 4
        Set mylineobject = ThisDrawing.ModelSpace.AddLine(startpoint, endpoint)
    End Sub

    代码完。

    定义一个创建直线的函数,指定起点和终点,然后将其添加到绘图空间。

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    POST
    界面,数据下载
    异步下载
    Cell
    循环&信息添加&颜色修改
    通讯录
    图片循环
    多删搜索
    图片滚动
    TableView
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503098.html
Copyright © 2011-2022 走看看