liningyu123 发表于 2007-10-28 16:31:00

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

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

chtd 发表于 2007-10-28 16:53:00

<p>很简单，说一下</p><p>第一种方法：</p><p>sub Dline()</p><p>Dim spoint As Variant<br/>Dim epoint As Variant<br/>AppActivate ThisDrawing.Application.Caption<br/>spoint = ThisDrawing.Utility.GetPoint(, "输入:")<br/>epoint = ThisDrawing.Utility.GetPoint(spoint, "输入:")</p><p>'画多段线时，上面点坐标可以做一个循环，得到坐标数组。<br/>ThisDrawing.ModelSpace.AddLine spoint, epoint</p><p>end sub</p><p>第二种方法：</p><p>sub dline()</p><p>AppActivate ThisDrawing.Application.Caption<br/></p><p>ThisDrawing.sendcommand "_line" &amp; vbCr</p><p>end sub</p><p>后面的图形都可以通过第二种方法实现，这样比较简单。</p>

liningyu123 发表于 2007-10-28 17:04:00

能具体些吗？我是菜鸟。

chtd 发表于 2007-10-28 17:08:00

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

liningyu123 发表于 2007-10-28 17:37:00

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

liningyu123 发表于 2007-10-28 17:50:00

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

chtd 发表于 2007-10-28 21:03:00

<p>sub dline()'------------------------画直线</p><p>AppActivate ThisDrawing.Application.Caption<br/></p><p>ThisDrawing.sendcommand "_line" &amp; vbCr</p><p>end sub</p><p>sub dcir()'-----------------------画圆</p><p>AppActivate ThisDrawing.Application.Caption<br/></p><p>ThisDrawing.sendcommand "_circle" &amp; vbCr</p><p>end sub</p><p>sub drect()'-------------------------画矩形</p><p>AppActivate ThisDrawing.Application.Caption<br/></p><p>ThisDrawing.sendcommand "_rectang" &amp; vbCr</p><p>end sub</p><p>sub dspline()'-------------------------画样条曲线</p><p>AppActivate ThisDrawing.Application.Caption<br/></p><p>ThisDrawing.sendcommand "_spline" &amp; vbCr</p><p>end sub</p>

liningyu123 发表于 2007-10-28 21:12:00

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

chtd 发表于 2007-10-30 20:44:00

<p>dim acadapp as acadapplication</p><p>dim acaddoc as acaddocument</p><p>dim acadmod as acadmodelspace</p><p>Set acaddoc = acadapp.ActiveDocument<br/>Set acadmod = acaddoc.ModelSpace</p><p>sub dline()'------------------------画直线</p><p>AppActivate acadapp.Caption<br/></p><p>acaddoc.sendcommand "_line" &amp; vbCr</p><p>end sub</p><p>其余照做。</p>

YAOSHIWEI 发表于 2012-6-19 09:51:05

& vbCr这个是什么意思啊
页: [1]
查看完整版本: 跪求VBA的画直线，圆，矩形，样条曲线的程序。源码及其说明。