[求助]如何实现这种功能??

memory · 发表于 2004-9-8 12:17:00

在CAD中输入一字命令,鼠标处于拾取状态,当按下去时,在当前点输入一个数字,按回车又处于拾取状态,按下去时又输入一个数字,不过这次数字是前一个数字+1.

,刚刚接触VBA,希望那位大哥哥,大姐姐帮帮忙.小弟感激不尽.

雪山飞狐_lzh · 发表于 2004-9-9 08:39:00

不太明白你的意思

可以表达清楚一点么？

或者贴个图说明一下

memory · 发表于 2004-9-9 09:00:00

就是得到按下鼠标处的坐标,并在坐标处输入一行数字,比如说1,接着点另一点,这时也在鼠标处输入数字,不过这是次2,以此类推.当按下ESC时,退出程序, ThisDrawing.Utility.GetPoint可以得到坐标,可是不知道如何用.请详细说明一下好吗?

雪山飞狐_lzh · 发表于 2004-9-9 09:09:00

Sub tt()
On Error GoTo ErrHandle
i = 0
Do While 1
i = i + 1
ThisDrawing.ModelSpace.AddText i, ThisDrawing.Utility.GetPoint, 5
Loop
ErrHandle:
End Sub

memory · 发表于 2004-9-9 09:25:00

太谢谢了,不过字的大小可不可以设定呢.

yulijin608 · 发表于 2004-9-9 09:28:00

可以，ThisDrawing.ModelSpace.AddText i, ThisDrawing.Utility.GetPoint, 5
中的“5”就是字的大小

memory · 发表于 2004-9-9 09:31:00

我知道,可是我想设定这个数字的大小和数字的起点.比如说我要从1000开始,字大小为10号.不可能总是改啊.太麻烦了.

yulijin608 · 发表于 2004-9-9 09:40:00

Sub tt()
On Error GoTo ErrHandle
i = InputBox("输入起始数") Do While 1
i = i + 1
ThisDrawing.ModelSpace.AddText i, ThisDrawing.Utility.GetPoint, 5 Loop
ErrHandle:
End Sub

memory · 发表于 2004-9-9 09:50:00

这里太温暖了.太感谢了.

memory · 发表于 2004-9-9 10:08:00

我还可以问一个问题吗.就是如何使刚刚输入的数字对齐.

账号		自动登录	找回密码
密码			注册