Question

编程显示未定义变量怎么办

Answer 1

使用该变量前，先根据需要用的数据类型定义。使用dim进行定义即可。

追问

能说的具体点吗？最好能告诉我具体怎么弄

追答

图片不是很清晰，假设未定义的变量为baseTxt ,可以在第一行后新加一行
dim baseTxt as String

追问

谢谢我试试

是basepnt显示未定义

追答

百度知道的图片很不清晰。
basepnt这字段要是字符串的话，就可以这样：
Dim basepnt as String

追问

帮忙看看有什么问题吗？你说那个不能用

追答

能不能把代码复制出来，图片根本看不了

追问

Option ExplicitSub bmjhs()Dim entry As AcadEntity, bssePnt As VariantDim textobj As AcadText, text As StringDim height As Double, pb As VariantThisDrawing.Utility.GetEntity entry, basePnt '"选择宗地线"text = Format(entry.Area / 666.67, "0.00") '2000*3height = 1.21 '文字高度pb = ThisDrawing.Utility.GetPoint(, "选择土地面积位置")Set textobj = ThisDrawing.ModelSpace.AddText(text, pd, height)End Sub

这就是图片上的，上面那个长的是加模块里的数据

Answer 2

那你就定义一下啊，Dim baseFat as (数据类型)

追问

帮帮忙看看这个有什么问题

追答

完全看不清。。。