急需求教

czlj2008

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

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

谢谢赐教

2005-8-1 19:18:34  鲜花(0)  鸡蛋(0)     精华| 奖励 | 惩罚  

efan2000

ThisDrawing.SendCommand "MEASURE (handent """ & obj.Handle & """)" & vbCr & "6" & vbCr

其中handent是Lisp函数，ACAD命令行可以直接接收这种类型的函数。

czlj2008

谢谢啦,大哥!你真的厉害,这个问题困扰我好几个星期了,现在终于解决啦,很高兴,谢谢!