社区 › VB › 求助：将选择集中的2条直线倒角

liuyang4740 发表于 2008-6-5 16:47:00

求助：将选择集中的2条直线倒角

求助高手：怎样将选择集内的2条直线倒角（chamfer）

fjfhgdwfn 发表于 2008-6-5 20:31:00

用sendcommand就行了啊。

liuyang4740 发表于 2008-6-7 13:30:00

使用下面命令还是不行啊？我选择集就2条直线
Sub fd()                        '倒角
    Dim returnObj As AcadEntity
    Dim y(1 To 3) As Double
    Dim ss As Variant
   
    On Error Resume Next
    SsetName = "au100"
    On Error Resume Next
    For i = 0 To ThisDrawing.SelectionSets.Count - 1
      Set SsetObj = ThisDrawing.SelectionSets.Item(i)
       If SsetObj.Name = "au100" Then SsetObj.Delete
    Next i
       Set SsetObj = ThisDrawing.SelectionSets.Add(SsetName)
       SsetObj.SelectOnScreen
   
          ThisDrawing.SendCommand "_chamfer" & vbCr & "D" & vbCr & "400" & vbCr & vbCr & SsetObj.item(0) & SsetObj.item(1) & vbCr
      
End Sub

fjfhgdwfn 发表于 2008-6-7 22:07:00

要通过handent传递参数
参见

查看完整版本: 求助：将选择集中的2条直线倒角