zjzllll 发表于 2006-12-30 20:58

很好的教程，顶了

horticulture 发表于 2007-1-2 14:19

连续圆
Sub myl()
Dim p1 As Variant '申明端点坐标
Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, "输入点:") '获取点坐标

On Error GoTo Err_Control '出错陷井
Do '开始循环
p2 = ThisDrawing.Utility.GetDistance(p1, vbCr & "输入半径:")'获取的半径

Call ThisDrawing.ModelSpace.AddCircle(p1, p2) '画圆

Loop
Err_Control:


End Sub

lvyin 发表于 2007-1-3 22:08

好贴，俺收下啦:L

罗卜头 发表于 2007-1-9 14:43

要是有视频就太好了,顶顶顶

kient88 发表于 2007-1-12 16:28

受用了。谢谢！

evqeico 发表于 2007-1-13 01:11

很棒 呵呵顶下

wangwei3350 发表于 2007-1-13 16:30

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

现在时间很紧迫现在看看大概，有时间一定看完

s02wj 发表于 2007-1-14 13:17

好,一定好好学习

zyasan 发表于 2007-1-15 00:44

确实非常不错!!!

wzjasj 发表于 2007-1-17 00:18

高手
谢谢

康照东 发表于 2007-1-17 11:37

回复 #6 cad 的帖子

天底下有这等好东西，真是出乎意料，我用线性帮助自定义过特殊线形，差点没厥死，我考到自己机子里放大字体好好看，是不是要做这些先学Basic 会容易点

康照东 发表于 2007-1-17 16:42

看完了，原来编程都差不多，我学过forture，这个还能看懂，还有没有新的内容，继续发啊，:D :D 谢谢

joy9858 发表于 2007-1-18 20:26

感觉很迷茫.....和CAD不一样
不过我还是初学者

cncc 发表于 2007-1-19 23:15

一初学者,以后还请各位老师多多帮忙

sen2929 发表于 2007-1-23 19:58

棒级,再多点教程!
页: 1 2 3 [4] 5 6 7 8 9 10 11 12 13
查看完整版本: Autocad VBA初级教程 （强烈推荐）