[求助]：用VB编程开发Autocad,如何用三点确定一个圆弧？

suzhanli

用VB编程开发Autocad,如何用三点确定一个圆弧？

efan2000

思路是这样：
假定圆弧的起点为P1，终点为P2，圆弧上的任意一点为P3。首先，求出P1P3的中点MP1和P3P2的中点MP2。第二步，过MP1作P1P3的垂线XL1和过MP2作P3P2的垂线XL2。第三步，求出XL1和XL2的交点，这一点即为圆弧的圆心CP1。最后，求出CP1和P1与X轴的角度即为起始角度，求出CP1和P2的角度即为终止角度，求出CP1和P1（或者P2、P3）的长度即为圆弧的半径。
以上四个参数都满足了，只要用AddArc即可做出圆弧。

suzhanli

这是个一般的解析几何问题，有没有其它简单一点的办法？按上面的思路写下来，源代码也是很复杂的！

efan2000

简单一点的就是直接调用ARC命令来绘制圆周弧。
如：

1. 
   
2.   [FONT=courier new]
   
3.     sPtStr = sPt(0) & "," sPt(1) & "," & sPt(2)
   
4.     mPtStr = mPt(0) & "," mPt(1) & "," & mPt(2)
   
5.     ePtStr = ePt(0) & "," ePt(1) & "," & ePt(2)
   
6.     arcStr =  "-Arc" & VbCr & sPtStr & VbCr & mPtStr & VbCr & ePtStr & VbCr
   
7.     ThisDrawing.SendCommand   arcStr
   
8.   [/FONT]
   

复制代码

liufx2000

直接写数学方程的方法应该也不会麻烦
两个线段都求出垂线方程，然后解方程，不算麻烦，请试试

shpdzzs

用解析几何的方法，算一算

chenknight

ARC命令就可以实现

秦林

我这有三点画弧函数，见附件，可要付费

zjbook

Public Sub GetPoints()
  Dim objUtil As AcadUtility
  Dim varPnt1 As Variant
  Dim varPnt2 As Variant
  Dim varPnt3 As Variant
  Dim strPrmt As String
  On Error GoTo Err_Control
  Set objUtil = ThisDrawing.Utility
  strPrmt = vbCr & "圆弧的起点: "
  varPnt1 = objUtil.GetPoint(Prompt:=strPrmt)
  strPrmt = vbCr & "圆弧的第二点: "
  '使用位码32显示橡皮线
  objUtil.InitializeUserInput 32
  varPnt2 = objUtil.GetPoint(varPnt1, strPrmt)
  strPrmt = vbCr & "圆弧的终点: "
  objUtil.InitializeUserInput 32
  varPnt3 = objUtil.GetPoint(varPnt2, strPrmt)
  Call ThreePntArc(varPnt1, varPnt2, varPnt3)
Exit_Here:
  Exit Sub
Err_Control:
  MsgBox Err.Description
  Resume Exit_Here
End Sub

zcmjw

vb需求解出弧心，半径参数，才能画弧。

秦林

最初由 zcmjw 发布
[B]vb需求解出弧心，半径参数，才能画弧。 [/B]

1. 
   
2.   [FONT=courier new]
   
3. arc1_ange = ThisDrawing.Utility.AngleFromXAxis(cenPt1, p4)'有误
   
4. arc1_ange = ThisDrawing.Utility.AngleFromXAxis(cenPt1, p3)'正确
   
5.   [/FONT]
   

复制代码