W
wade_thunder
Unregistered / Unconfirmed
GUEST, unregistred user!
如何使用Delphi 进行 CAD 二次开发
Dim location(0 To 2) As Double
' Define the location of the point
location(0) = 5#: location(1) = 5#: location(2) = 0#
' Create the point
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
pointObj.Color = acCyan
ZoomAll
location如何改称Delphi描述
Dim location(0 To 2) As Double
' Define the location of the point
location(0) = 5#: location(1) = 5#: location(2) = 0#
' Create the point
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
pointObj.Color = acCyan
ZoomAll
location如何改称Delphi描述
