wyj7485 发表于 2006-8-15 16:43:00

<P>Sub EditPline()<BR>On Error Resume Next<BR>Dim sset As AcadSelectionSet</P>
<P>ThisDrawing.SelectionSets.Item("LineSet").Delete<BR>Set sset = ThisDrawing.SelectionSets.Add("LineSet")</P>
<P>sset.SelectOnScreen<BR>ThisDrawing.SendCommand "_pedit" &amp; vbCr &amp; "M" &amp; vbCr &amp; _<BR>"p" &amp; vbCr &amp; vbCr &amp; "Y" &amp; vbCr &amp; "J" &amp; _<BR>vbCr &amp; vbCr &amp; vbCr</P>
<P>End Sub</P>
<P>很好用啊</P>
页: 1 [2]
查看完整版本: 线不能串连