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

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

在CAD中输入一字命令,鼠标处于拾取状态,当按下去时,在当前点输入一个数字,按回车又处于拾取状态,按下去时又输入一个数字,不过这次数字是前一个数字+1.,刚刚接触VBA,希望那位大哥哥,大姐姐帮帮忙.小弟感激不尽.

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

不太明白你的意思


可以表达清楚一点么？


或者贴个图说明一下

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

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

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

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

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

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

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

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

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

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

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

Sub tt()<BR>On Error GoTo ErrHandle<BR>i = InputBox("输入起始数")


Do While 1<BR>i = i + 1<BR>ThisDrawing.ModelSpace.AddText i, ThisDrawing.Utility.GetPoint, 5


Loop<BR>ErrHandle:<BR>End Sub<BR>

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

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

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

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





http://myclass.myshow.cn/2.jpg
页: [1] 2
查看完整版本: [求助]如何实现这种功能??