[求助]画线倒角 vba里可以解决的问题在net里怎么弄
vba里:画2条直线 :Set myline1 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)Set myline2 = ThisDrawing.ModelSpace.AddLine(pnt3, pnt4)然后倒角:ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "" & bendr & "" & vbCr & "" & "(Handent """ & myline1.Handle & """)" & _"" & vbCr & "" & "(Handent """ & myline2.Handle & """)" & "" & vbCr倒角后 line1和line2的端点是会变化的:line1的endpoint和line2的startpoint 变为倒角产生的圆弧的2个端点但是在.net里画线可能定义直线和画直线是分开的 2条直线倒角后 line1和line2的端点没有变化 我需要向vba里可以变化 跪求解决方法 倒角可以看这里http://bbs.mjtd.com/thread-75636-1-1.html
不过你后面的说明没看懂 回复 雪山飞狐_lzh 的帖子
我刚开始画的2条直线是连起来的 就是说pnt2=pnt3的
vba倒角后line1.endpoint变化了（原来是pnt2，现在不是），line2.startpoint也变化了
但是net里2直线的端点没有变 我引用的时候 还是为pnt2
回复 雪山飞狐_lzh 的帖子
这个是我vba里编的 想换成net的 ph和sh是常数 关键是倒角过后 myline1 myline2端点会变化 麻烦您帮我看看阿 谢谢啦
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
pnt1 = ThisDrawing.Utility.GetPoint(, "输入点:")
pnt1(2) = ph: pnt2 = pnt1: pnt2(2) = sh: pntt = pnt1
Set myline1 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "输入下一点:")
pnt2(2) = ph
Set myline2 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "" & bendr & "" & vbCr & "" & "(Handent """ & myline1.Handle & """)" & _
"" & vbCr & "" & "(Handent """ & myline2.Handle & """)" & "" & vbCr
ssetObj.Select acSelectionSetLast
Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = ssetObj.Item(i)
wirelength = ssetObj.Item(i).ArcLength + myline1.Length + wirelength
i = i + 1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)
Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = myline1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)
不要发送命令，二楼有直接实现倒角的例子
页:
[1]