跪求VBA的画直线，圆，矩形，样条曲线的程序。源码及其说明。

liningyu123

跪求AutoCAD二次开发的用VBA画直线，圆，矩形，样条曲线。要源码和中文说明，并求程序结构图，流程图，界面定义，各功能模块的定义

chtd

很简单，说一下

第一种方法：

sub Dline()

Dim spoint As Variant
Dim epoint As Variant
AppActivate ThisDrawing.Application.Caption
spoint = ThisDrawing.Utility.GetPoint(, "输入:")
epoint = ThisDrawing.Utility.GetPoint(spoint, "输入:")

'画多段线时，上面点坐标可以做一个循环，得到坐标数组。
ThisDrawing.ModelSpace.AddLine spoint, epoint

end sub

第二种方法：

sub dline()

AppActivate ThisDrawing.Application.Caption

ThisDrawing.sendcommand "_line" & vbCr

end sub

后面的图形都可以通过第二种方法实现，这样比较简单。

liningyu123

能具体些吗？我是菜鸟。

chtd

直接将第二种方法的代码贴到宏编辑器里即可

liningyu123

能把这些源码发上来吗？我刚接触VBA，临时写论文用，谢谢。要分别能实现这四个功能的源码。谢谢。

liningyu123

我们作业是写设计任务书，要写定义，进行二维图形生成，删除修改查询等工作（例如画直线，圆，矩形，样条曲线）还有主要功能。删除。确认，及运行环境。还要写数据结构，可使用任意方法对数据结构描述，建立数据库，写出字段定义。并写程序结构，总流程图，界面定义，各功能模块的定义，输入输出数值，触发条件，意外处理，数学模型等

chtd

sub dline()'------------------------画直线

AppActivate ThisDrawing.Application.Caption

ThisDrawing.sendcommand "_line" & vbCr

end sub

sub dcir()'-----------------------画圆

AppActivate ThisDrawing.Application.Caption

ThisDrawing.sendcommand "_circle" & vbCr

end sub

sub drect()'-------------------------画矩形

AppActivate ThisDrawing.Application.Caption

ThisDrawing.sendcommand "_rectang" & vbCr

end sub

sub dspline()'-------------------------画样条曲线

AppActivate ThisDrawing.Application.Caption

ThisDrawing.sendcommand "_spline" & vbCr

end sub

liningyu123

再求VB6.0的源码，谢谢。要画圆，矩形，和样条曲线的

chtd

dim acadapp as acadapplication

dim acaddoc as acaddocument

dim acadmod as acadmodelspace

Set acaddoc = acadapp.ActiveDocument
Set acadmod = acaddoc.ModelSpace

sub dline()'------------------------画直线

AppActivate acadapp.Caption

acaddoc.sendcommand "_line" & vbCr

end sub

其余照做。

YAOSHIWEI

& vbCr这个是什么意思啊