CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
楼主: cad

[开发] Autocad VBA初级教程 (强烈推荐)

[复制链接]
发表于 2008-2-6 09:48 | 显示全部楼层

不懂,

我刚入道,还不懂.
: Y4 D0 y; l# M- B& c" R( D5 b. X先项吧
发表于 2008-2-6 10:54 | 显示全部楼层
刚学CAD,看不大懂,但感觉是好东西,支持.
发表于 2008-2-7 14:27 | 显示全部楼层
顶,看不太懂啊
发表于 2008-2-12 09:26 | 显示全部楼层
好东西当然要支持!!
发表于 2008-2-12 21:50 | 显示全部楼层
谢谢楼主咯 收下! 呵呵
发表于 2008-2-22 22:39 | 显示全部楼层
看不懂~~先顶了  呵呵
发表于 2008-2-22 23:18 | 显示全部楼层
大好人,一定要顶
发表于 2008-4-5 21:33 | 显示全部楼层

第五课 画函数曲线的一个问题

第五课有一个作业,画抛物线y=0.5*x*x+3  x[-50,50]。我写了一个程序如下,监测显示参数都没问题,可在autocad中画出来的图形不对,能看看问题出在哪儿吗?
4 d( `  P) r4 q4 @+ |# sSub PaoWuXian()/ h- W2 K/ m( k
Dim p(0 To 101) As Double
8 \( N) H" C+ g$ }2 UDim a As Integer# ]  _3 I6 Z2 h6 K) t! H
Dim i, j As Integer
3 x; `5 x; Q9 r) w1 o1 l6 B8 Q/ \* x; f3 b" ~0 m6 E+ s( n# O
  For j = 1 To 100 Step 1: z/ S& s+ @9 v
       a = -50 + j
: F" M1 C" |# ~! [6 l% ^2 P       p(j) = a
" q: Y6 }5 ~! V6 f" h; W       p(j + 1) = 0.5 * a * a + 3
& a% u- k# f8 Q7 d  Z- S& l  Next j1 R" ?( S6 E' R2 S
   
* E1 H+ R$ u- n) ~3 k+ mThisDrawing.ModelSpace.AddLightWeightPolyline (p)
3 V! o4 j" i' k. l5 s! Z6 K: [ZoomExtents
0 s3 c7 B' O8 f' |" B: D6 @% j1 z% _6 R& e( X. M6 v/ V
End Sub
发表于 2008-4-5 21:40 | 显示全部楼层

画出来的图形如下

画出来的图形如下,明显不对

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-4-5 21:42 | 显示全部楼层

正确图形

正确图形应该这样:(我用excel数据绘制出的正确抛物线图形)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-4-5 23:20 | 显示全部楼层
顶!!
发表于 2008-4-11 23:45 | 显示全部楼层
谢谢楼主。太好了。我现在终于知道我们学了cad后要学用vb画图了。
发表于 2008-4-11 23:52 | 显示全部楼层

回复 #1 cad 的帖子

请问楼主,那边有Autocad VBA的资料可以下载的?这样一点点地开比较麻烦,我想下载下来看。
发表于 2008-4-12 07:56 | 显示全部楼层
版主好样的,向你学习!
发表于 2008-4-12 08:56 | 显示全部楼层
好东西啊,学习啦
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-8-12 04:00

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表