结贴,已经解决,如下: '********************************************************************************************************** Dim LS1 As String ThisDrawing.SendCommand "(gettym """ & obj.Handle & """)" & vbCr LS1 = ThisDrawing.GetVariable("LastPrompt") Debug.Print LS1 '********************************************************************************************************** |