[求助]画线倒角 vba里可以解决的问题在net里怎么弄

382327412

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里可以变化

跪求解决方法

雪山飞狐_lzh

倒角可以看这里
http://bbs.mjtd.com/thread-75636-1-1.html
不过你后面的说明没看懂

382327412

回复 雪山飞狐_lzh 的帖子

我刚开始画的2条直线是连起来的 就是说pnt2=pnt3的
vba倒角后line1.endpoint变化了（原来是pnt2，现在不是），line2.startpoint也变化了
但是net里2直线的端点没有变 我引用的时候 还是为pnt2

382327412

回复 雪山飞狐_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)

雪山飞狐_lzh

不要发送命令，二楼有直接实现倒角的例子