急需请教measure 在lisp语言中调用的格式与参数

czlj2008

请教measure 在lisp语言中调用的格式与参数；如(command "erase" p1 p2 "w" pw1 pw2);谢谢赐教？

青青20

类似command "measure" (entlast) "1")

 

meflying

任何命令的调用,你都可以在命令行先试,在命令行需要输入什么,就在(command "cmd" 后面添加什么,..

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