求助啊?????

hekaiyu 发表于 2005-2-4 16:00:00

Public Sub mi(ss As AcadSelectionSet, x1, y1, x2, y2) ''''''''''''''选择集镜像 Dim p1(2) As Double, p2(2) As Double p1(0) = x1: p1(1) = y1: p1(2) = 0 p2(0) = x2: p2(1) = y2: p2(2) = 0 Dim ent As AcadEntity If ss.Count > 0 Then For Each ent In ss ent.Mirror p1, p2 Next End If End Sub

Private Sub drawline(x1 As Double, y1 As Double, x2 As Double, y2 As Double, lay As String) '用指定层画直线 Dim first(0 To 2) As Double, scond(0 To 2) As Double Dim lineobj As AcadLine first(0) = x1: first(1) = y1: first(2) = 0 scond(0) = x2: scond(1) = y2: scond(2) = 0 Set lineobj = acaddoc.ModelSpace.AddLine(first, scond) lineobj.Layer = lay End Sub

sub mir()'''''''对选择的线条进行镜象操作 Set cen = acaddoc.ModelSpace.AddLine(p1, p2) cen.Layer = "3" drawline (边梁翼缘宽 - 边梁腹板厚) / 2, 0, (边梁翼缘宽 - 边梁腹板厚) / 2, 单节长度, "4" Dim sset As AcadSelectionSet Dim po(2) As Double po(0) = 边梁翼缘宽 - 边梁腹板厚) / 2: po(1) = 0: po(2) = 0 Set sset = acaddoc.SelectionSets.Add("1") sset.SelectAtPoint po''''''''''''''''''''''''''''''''''''''''选择要镜象的直线 mi sset, 边梁翼缘宽 * 2, 0, 边梁翼缘宽 * 2, 单节长度 End Sub

就是搞不懂为什么通过选择定义的点"po(2)为坐标数组" 的直线进行镜象操作没有反映啊?????????????????????????????????????????????????????????

敬请各位高手指正!!!!谢谢!!!!

mccad 发表于 2005-2-20 22:17:00

程序是你写的吗？ 1.程序中画线部分的坐标排列是X1、Y1、X2、Y2，在你给的值中，明显PO的X、Y坐标给的是X1和Y1的值。这样的活，选择集中就是没有对象的，因为你所在的点没有对象。 2.程序思路有问题： 画线没有必须再写个函数吧，用AddLine方法本来就非常简单。 画完线后，本身就可以得到这个线对象，而不需要再用选择集去选，选择集的使用主要是让用户在屏幕上选对象。

页: [1]

明经CAD社区's Archiver

求助啊?????