路边 发表于 2005-7-22 09:30:00

求助，用VBA怎样标注多段线的点号和距离！！

<P>C:\Documents and Settings\lyl\My Documents\My Pictures\1.bmp</P>
<P>例如：Dim Selects As AcadSelectionSet<BR>On Error Resume Next<BR>ThisDrawing.SelectionSets("Objs").Delete</P>
<P>Dim FType(2) As Integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 选择过滤器的类型代码<BR>Dim FData(2) As Variant&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 选择过滤器的值<BR>' ※ 给定选择过滤器类型代码<BR>FType(0) = -4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 条件组合码<BR>FType(1) = 0<BR>FType(2) = -4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 条件组合码<BR>' ※ 给定选择过滤器值为可以生成面域的图元类型<BR>FData(0) = "&lt;Or"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 类型集合起点<BR>FData(1) = "LWPolyLine"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※多端线<BR>FData(2) = "Or&gt;"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' ※ 类型集合终点<BR>' ※ 选择图元<BR>Set Selects = ThisDrawing.SelectionSets.Add("Objs")<BR>Selects.SelectOnScreen FType, FData '选择图1</P>
<P>'获得图1坐标</P>
<P>Dim gpnt As Variant<BR>&nbsp; For Each element In Selects '在选择集中进行循环<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gpnt = element.Coordinates</P>
<P>next</P>
<P>接下来：怎样把图1自动标注上点号和距离，成为图2 样式！！</P>
<P>请高手指点！！！</P>
<P><BR>&nbsp;</P>

counseling 发表于 2005-9-29 22:26:00

<P>这个贴我刚看见，我也有相同的疑问。望高手解答！</P>

mccad 发表于 2005-10-1 07:57:00

图？你没有上传
页: [1]
查看完整版本: 求助，用VBA怎样标注多段线的点号和距离！！