haoxuexi 发表于 2008-4-15 12:27:00

[求助]如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与

[求助]如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与x坐标的夹角？<div class="tpc_content">请问，如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与x坐标的夹角？谢谢啊 </div>

junhua1123 发表于 2008-4-25 22:09:00

<p>不知道是你的表达没清楚还是我没理解对</p><p>要知道该直线与X坐标的夹角，选取该直线，得到直线的两顶点坐标计算不就可以了？</p><p></p>

jxh860228 发表于 2008-9-26 10:57:00

getangle 不就行了

兰州人 发表于 2008-9-26 21:21:00

&nbsp; Dim ll As AcadLine<br/>&nbsp; Set ll = ThisDrawing.HandleToObject("59ee")<br/>&nbsp; With ll<br/>&nbsp;&nbsp;&nbsp; Debug.Print .Angle<br/>&nbsp;&nbsp;&nbsp; For jj = 0 To 2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print .StartPoint(jj), .EndPoint(jj), .Delta(jj)<br/>&nbsp;&nbsp;&nbsp; Next jj<br/>&nbsp; End With<br/>

style6301 发表于 2008-10-3 23:30:00

<p>Set ll = ThisDrawing.HandleToObject("59ee")中的59ee是什么的句柄，代表什么意思？为何在运行时会提示下面的错误信息。</p><p>&nbsp;</p>
页: [1]
查看完整版本: [求助]如何用VBA实现在AUTOCAD中的 直线上任取一点，可以得到点的坐标，和该直线与