急需求教

czlj2008 · 发表于 2005-8-1 19:30:00

'急需求教,下面的程序怎样修改才可以实现measure 命令的功能

[B]
Private Sub div()
  Dim obj As AcadObject
  Dim basept As Variant
  Dim SSETS As AcadSelectionSet
On Error Resume Next
  If Not IsNull(ThisDrawing.SelectionSets.Item("PLSET")) Then
   Set SSETS = ThisDrawing.SelectionSets.Item("PLSET")
   SSETS.Delete
  End If
  Set SSETS = ThisDrawing.SelectionSets.Add("PLSET")

SSETS.SelectOnScreen

  Set obj = SSETS.Item(0)
' ThisDrawing.Utility.GetEntity obj, basept, "please pickt pl:"
  MsgBox obj.ObjectName
'请教下一句怎样改才可以完成measure的任务?
  ThisDrawing.SendCommand "MEASURE" & vbCr & "P" & vbCr & "6" & vbCr
End Sub
谢谢赐教
[/B] 2005-8-1 19:18:34  (0)  (0)    |  |

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复