egua 发表于 2007-11-12 11:33:00

如何让Acadlwpolyline起点、终点有不同的线宽～

本帖最后由 作者 于 2007-11-12 11:48:08 编辑

就像绘图时一样

黄玉宏 发表于 2007-11-12 18:54:00

<p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Sub Example_AddLightWeightPolyline()<span style="mso-spacerun: yes;">&nbsp; <p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Dim plineObj As AcadLWPolyline<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Dim points(0 To 7) As Double<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">points(0) = 1: points(1) = 1: points(2) = 1: points(3) = 2<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">points(4) = 2: points(5) = 2: points(6) = 3: points(7) = 2<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Call plineObj.SetWidth(2, 0.02, 0.02)　　 <font face="Times New Roman">'</font>从第<font face="Times New Roman">3</font>点到第<font face="Times New Roman">4</font>点之间设置相当于<font face="Times New Roman">0.6mm</font>的线宽<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">End Sub<p></p></p>

黄玉宏 发表于 2007-11-12 18:55:00

<p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Sub Example_AddLightWeightPolyline()<span style="mso-spacerun: yes;">&nbsp; <p></p></span></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Dim plineObj As AcadLWPolyline<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Dim points(0 To 7) As Double<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">points(0) = 1: points(1) = 1: points(2) = 1: points(3) = 2<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">points(4) = 2: points(5) = 2: points(6) = 3: points(7) = 2<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">Call plineObj.SetWidth(2, 0.02, 0.02)　　 <font face="Times New Roman">'</font>从第<font face="Times New Roman">3</font>点到第<font face="Times New Roman">4</font>点之间设置相当于<font face="Times New Roman">0.6mm</font>的线宽<p></p></p><p class="MsoNormal" align="left" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-line-height-alt: 0pt;">End Sub<p></p></p>

egua 发表于 2007-11-15 09:40:00

多谢了！
页: [1]
查看完整版本: 如何让Acadlwpolyline起点、终点有不同的线宽～