请教!!!!!!!!!!!!!!

czlj2008

请教measure与divide在lisp中调用参数,(command "measure" ???????)

wyj7485

在COMMAND下输入该命令就可以看到,去lisp版块吧

czlj2008

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

 

谢谢赐教