Dim oAutoCAD As Object
Call BindAutoCAD(True)<\/p>\n\n\n\n
Dim dStartPoint(0 To 2) As Double
Dim dEndPoint(0 To 2) As Double
Dim dCenterPoint(0 To 2) As Double
Dim sTextString As String
Dim dHeight As Double
Dim dRadius As Double<\/p>\n\n\n\n
dStartPoint(0) = 10
dStartPoint(1) = 10
dStartPoint(2) = 0
dEndPoint(0) = 100
dEndPoint(1) = 100
dEndPoint(2) = 0
dCenterPoint(0) = 10
dCenterPoint(1) = 10
dCenterPoint(2) = 0
sTextString = “Hello world!”
dHeight = 6
dRadius = 24<\/p>\n\n\n\n
Call DrawLine(dStartPoint, dEndPoint)
Call DrawText(sTextString, dStartPoint, dHeight)
Call DrawCircle(dCenterPoint, dRadius)<\/p>\n\n\n\n
Public Sub DrawLine(vStartPoint As Variant, vEndPoint As Variant) ‘\u7ed8\u5236\u76f4\u7ebf
Dim oLine As Object
Set oLine = oAutoCAD.ActiveDocument.ModelSpace.AddLine(vStartPoint, vEndPoint)
End Function<\/p>\n\n\n\n
Public Sub DrawText(sTextString As String, vStartPoint As Variant, vHeight As Variant) ‘\u5199\u5165\u6587\u672c
Dim oText As Object
Set oText = oAutoCAD.ActiveDocument.ModelSpace.AddText(sTextString, vStartPoint, vHeight)
End Function<\/p>\n\n\n\n
Public Sub DrawCircle(vCenterPoint As Variant, vRadius As Variant) ‘\u7ed8\u5236\u5706
Dim oCircle As Object
Set oCircle = oAutoCAD.ActiveDocument.ModelSpace.AddCircle(vCenterPoint, vRadius)
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"