[公告]：VBA论坛开设VBA新手入门学堂！

zhengbinlover

想想或许可以试试看

zhmeww

我也的好好学习才行哟。：）

wwf616

看了一下，还是不知道该怎么去学，看来我不是学编程的料

ssjduke

希望上课时能由浅入深 ，我对VBA是一片空白，正想找个机会恶补一下

leiyunchun

现在豆豆网站改过了，比以前好多了，不妨看一下

花心

我上去看　一下，楼主真的用心哟...

xiaohuoo

请问有什么用啊？

fengxing119

好象反应不是很强烈啊~~~~
我看了，斑竹做的挺好的，大家一起来支持一下啊

zgqbyf

好啊~~不错~~辛苦斑竹了~~~

tiger0101

Sub t()
Dim pt1 As Variant
Dim pt2 As Variant
Dim pt3 As Variant
Dim center1(0 To 2) As Double
Dim center2(0 To 2) As Double
Dim center3(0 To 2) As Double

Dim pl1 As AcadLine
Dim pl2 As AcadLine
Dim pl3 As AcadLine

pt1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入三角形第一点坐标:")
pt2 = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入三角形第二点坐标:")
pt3 = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入三角形第三点坐标:")
center1(0) = (pt1(0) + pt2(0)) / 2
center1(1) = (pt1(1) + pt2(1)) / 2
center1(2) = 0
  center2(0) = (pt2(0) + pt3(0)) / 2
center2(1) = (pt2(1) + pt3(1)) / 2
center2(2) = 0
center3(0) = (pt3(0) + pt1(0)) / 2
center3(1) = (pt3(1) + pt1(1)) / 2
center3(2) = 0

  

Set pl1 = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
Set pl2 = ThisDrawing.ModelSpace.AddLine(pt2, pt3)
Set pl3 = ThisDrawing.ModelSpace.AddLine(pt3, pt1)
Set pl1 = ThisDrawing.ModelSpace.AddLine(center1, pt3)
Set pl2 = ThisDrawing.ModelSpace.AddLine(center2, pt1)
Set pl3 = ThisDrawing.ModelSpace.AddLine(center3, pt2)


End Sub
能不能想办法把这个改短点,我写的代码总是臭长臭长的
还有,中线很好做就是求中点坐标连线就完了，可是那个角度平分线我可不知道怎么表达啊,请斑竹指教!

piaomiao200

vba真是好东西，谢谢班竹了
建议班竹给个程安排，谢了！！！！！

CAD NAN YING

以前还没接触过VB,现在可以学习下了!!

archum

什么时候继续呀？只知道VBA应用在EXCEL里，原来CAD也可以用！

ercheng

好,好东西啊

spbgxb

VBA与LISP是什么关系呀？