PUBLIC AcadApp,AcadDoc,ThisDrawing
AcadApp = CreateObject("AutoCAD.Application.17")
AcadApp.Visible = .T.
 AcadApp.Documents.Add
STORE AcadApp.ActiveDocument to AcadDoc
AcadDoc.SendCommand("line 5,8 5,15 0,0 u  ")
AcadDoc.SendCommand("_arc _E 5,15 _E 20,15 _R 8 ")
AcadApp.ZoomExtents

vfp 可以与autocad很好的结合。并能完全控制autocad。

vfp 用 autocad 绘图命令和对象脚本语言，能高效率绘出工程二维或三维图形来！
比使用vba可容易的多，功能和速度比vba快的多了！