vb autocad GetReal

Question

在用GETREAL命令时，可不可以设置默认值，也就是说我输入数据执行我的数据，我不输入数据执行我设定的值。我试了试，好象默认值为0，可我不想用0，我想用90，如果我把0默认为90，我真想输入0时也是90了，这不合我意。怎么办呢？

Answer 1

与fvflove私聊内容：ft630712      2008年10月21日 20点02分39秒 说：
我还想问您GETREAL有没有默认值，我发了几天贴子了，没人回，只能又求助您了
fvflove      2008年10月21日 20点13分53秒 说：
不能改.设置一个全局变量.作为默认值. 当未输入数据的时候,调用默认值.
fvflove      2008年10月21日 20点14分55秒 说：
如: lisp 
(setqvar(getreal)) 
　 (if(notvar) '如果未输入数据 
(setqvargloba)；'用globa作缺省值作为输入 
)
ft630712      2008年10月21日 20点28分15秒 说：
是这样啊，可惜我LISP一点没学过。谢谢您，我把您给的代码试一试。
ft630712      2008年10月21日 20点34分10秒 说：
那这几句LISP语句是放在VB中吗？具体代码怎么写呢？
fvflove      2008年10月21日 20点42分43秒 说：
一样的. 
看 Getreal 返回值. 
看是否是(notvar) 如果是 就用默认值代替,
ft630712      2008年10月21日 20点43分17秒 说：
好的   

Answer 2

Dim returnReal As Double
returnReal = ThisDrawing.Utility.GetReal("Enter an Real:<90> ")
if returnReal =0 then returnReal =90

Answer 3

问题解决了On Error Resume Next
b = ThisDrawing.Utility.GetReal
If b = "" Then b = 90
输入0就是0，输入什么数就是什么数，输入90就是90，什么都不输就是90，输入非数字就需再输入。完全符合本人要求。