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

liuyang4740

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

fjfhgdwfn

用sendcommand就行了啊。

liuyang4740

使用下面命令还是不行啊？我选择集就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

要通过handent传递参数

参见

http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=49