Question

CAD VBA编程程序输入角画一条直线，是怎么写的

你的前辈，小弟要问，CAD VBA编程程序输入角画一条直线，是怎么写的，我请你赐教，小弟不胜感激！

Answer 1

首先你要会基本的cad编程啊 画线的代码 帮助里面都有了！
随便给你找一个
直线是 AutoCAD
中最基本的对象。用户可以创建各种直线—单一直线、带圆弧和不带圆弧的多线段。通常，可以通过指定坐标点来绘制直线。默认线型是
CONTINUOUS（即连续的线），但还有许多线型使用点和短划。

要创建直线，请使用以下方法之一：

AddLine

通过两点创建直线。

AddLightweightPolyline

从顶点列表创建二维优化多段线。

AddMLine

创建多线。

AddPolyline

创建二维或三维多段线。

标准直线和多线都是在世界坐标系的 XY 平面上创建的，而多段线与优化多段线则是在对象坐标系 (OCS) 中创建的。关于转换 OCS 坐标的信息，请参见转换坐标。

本例使用
AddLightweightPolyline 方法创建一条分为两段的简单多段线，其端点坐标值分别是 (2,4)、(4,2) 和 (6,4)。

Sub Ch4_AddLightWeightPolyline()
Dim plineObj As AcadLWPolyline
Dim points(0 To 5) As Double

' 定义二维多段线的点
points(0) = 2: points(1) = 4
points(2) = 4: points(3) = 2
points(4) = 6: points(5) = 4

' 在模型空间中创建一个优化多段线对象
Set plineObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(points)
ThisDrawing.Application.ZoomAll
End Sub

Answer 2

Application.ActiveDocument.SendCommand "_L 0,0 _L 36,0" & vbCr & vbCr