急需求教
'急需求教,下面的程序怎样修改才可以实现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) ||
**** Hidden Message ***** ThisDrawing.SendCommand "MEASURE (handent """ & obj.Handle & """)" & vbCr & "6" & vbCr
其中handent是Lisp函数，ACAD命令行可以直接接收这种类型的函数。
谢谢啦,大哥!你真的厉害,这个问题困扰我好几个星期了,现在终于解决啦,很高兴,谢谢!
页:
[1]