xgngg 发表于 2004-12-2 08:36:00

请教关于线段加长的编程

我想让选择的线段加长，不知如何编写，请帮忙.

雪山飞狐_lzh 发表于 2004-12-2 08:58:00

改变直线的起点或终点坐标

xgngg 发表于 2004-12-2 15:13:00

可是我不会编,因为选择集和加长线段的我不会用，大哥，你能不能帮我编一下，我都急死了

雪山飞狐_lzh 发表于 2004-12-2 15:20:00

说说你的具体要求

Solomon 发表于 2004-12-2 15:43:00

选中线的线型对象有起点,终点属性,若为弧有起点角度,终点角度.半径等属性.更改它们的值即可

xgngg 发表于 2004-12-2 16:38:00

本帖最后由 作者 于 2004-12-2 17:38:27 编辑

图纸中有部分线段需要两头都加长100，我想用鼠标来框选线段，选中的线段两头自动伸长。只需要加长两头尺寸就可以了

雪山飞狐_lzh 发表于 2004-12-2 20:32:00

Sub tt1()<BR>On Error Resume Next<BR>Dim ss As AcadSelectionSet<BR>ThisDrawing.SelectionSets("Test").Delete<BR>Set ss = ThisDrawing.SelectionSets.Add("Test")<BR>Dim ft(0) As Integer, fd(0)<BR>ft(0) = 0: fd(0) = "Line"<BR>ss.SelectOnScreen ft, fd<BR>Dim i As AcadLine<BR>Dim dAngle As Double, p1, p2<BR>For Each i In ss<BR>dAngle = i.Angle<BR>p1 = i.StartPoint<BR>p2 = i.EndPoint<BR>i.StartPoint = ThisDrawing.Utility.PolarPoint(p1, Atn(1) * 4 + dAngle, 100)<BR>i.EndPoint = ThisDrawing.Utility.PolarPoint(p2, dAngle, 100)<BR>Next i<BR>End Sub<BR>

xgngg 发表于 2004-12-2 20:49:00

谢谢你，飞狐大哥
页: [1]
查看完整版本: 请教关于线段加长的编程