对象或WITH块变量未设置

陈琦

Sub gettransformationmatrix()
Dim ucsmatrix As Variant
Dim count1 As Integer, count2 As Integer
Dim frmtransformationmatrix As UserForm
ucsmatrix = ucsobject.GetUCSMatrix
With frmtransformationmatrix
.lbltransmatrix.Caption = ""
For count1 = 0 To 3
For count2 = 0 To 3
.lbltransmatrix.Caption = .lbltransmatrix.Caption & ucsmatrix(count1, count2) & ""
Next
.lbltransmatrix.Caption = .lbltransmatrix.Caption & vbCr
Next
.Show
End With
End Sub

求教高手！每次我的程序运行到红色部分，系统均提示“运行时错误”91“，对象变量或WITH块变量未设置！”

请教该问题出现的原因和解决方法。

陈琦

Sub toggleucsicon()
ThisDrawing.ActiveViewport.UCSIconOn = Not (viewportobject.UCSIconOn)
End Sub

请教各位高手！每次运行该段代码时系统提示“缺少对象”请教该问题出现的原因和解决方法！

谢谢大家！谢谢版主！

mccad

只做定义，没有赋值，当然出错。