CAD设计论坛

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

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

[复制链接]
发表于 2006-12-30 20:58 | 显示全部楼层
很好的教程,顶了
发表于 2007-1-2 14:19 | 显示全部楼层
连续圆
" E/ n5 X: T5 @6 L# p  }  V( |Sub myl()( H" U! d0 q4 Q3 g% l7 o; t0 z
Dim p1 As Variant '申明端点坐标( _4 |3 |! Z, G3 K( @
Dim p2 As Variant
5 v" G9 K( r& w# T& |! V: jp1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标# E8 z0 ]$ \* v% h& n- W
* a  G  L& U, E0 @1 D6 r5 E+ d
On Error GoTo Err_Control '出错陷井
/ s& Z6 e( V3 N: `' g* ZDo '开始循环
, X: t+ }2 X( q5 W% a, B$ l  p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:")  '获取的半径
4 J8 I. C5 F2 p: C. D. V# P+ s! v5 F! w) F0 }! a. M
  Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆, U. Y" P) m  w* V3 \7 a
  ! h" t9 Z. g/ w& j6 f! X
Loop" N; O/ ~5 J0 Y/ G
Err_Control:# x$ B0 C3 o1 T( x9 c1 u, u, j
3 G# T% t' n- ?: B' B
: R1 N% n9 W/ B$ n4 B8 E% N
End Sub
发表于 2007-1-3 22:08 | 显示全部楼层
好贴,俺收下啦
发表于 2007-1-9 14:43 | 显示全部楼层
要是有视频就太好了,顶顶顶
发表于 2007-1-12 16:28 | 显示全部楼层
受用了。谢谢!
发表于 2007-1-13 01:11 | 显示全部楼层
很棒 呵呵  顶下
发表于 2007-1-13 16:30 | 显示全部楼层

今天没时间看完,下次再来

现在时间很紧迫现在  看看大概,有时间一定看完
发表于 2007-1-14 13:17 | 显示全部楼层
好,一定好好学习
发表于 2007-1-15 00:44 | 显示全部楼层
确实非常不错!!!
发表于 2007-1-17 00:18 | 显示全部楼层
高手
2 \0 G% ?4 F& M谢谢
发表于 2007-1-17 11:37 | 显示全部楼层

回复 #6 cad 的帖子

天底下有这等好东西,真是出乎意料,我用线性帮助自定义过特殊线形,差点没厥死,我考到自己机子里放大字体好好看,是不是要做这些先学Basic 会容易点
发表于 2007-1-17 16:42 | 显示全部楼层
看完了,原来编程都差不多,我学过forture,这个还能看懂,还有没有新的内容,继续发啊, 谢谢
发表于 2007-1-18 20:26 | 显示全部楼层
感觉很迷茫.....和CAD不一样  
( }, }, f! [# a3 X: p不过我还是初学者
发表于 2007-1-19 23:15 | 显示全部楼层
一初学者,以后还请各位老师多多帮忙
发表于 2007-1-23 19:58 | 显示全部楼层
棒级,再多点教程!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2026-3-3 19:56

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

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

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