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

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

求助高手：怎样将选择集内的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条直线倒角

发表回复

精选推荐