[LISP程序]：加、减数拷贝数字文字。

841594

应firemaner朋友的要求编了这个程序，拷贝一个带数字的文字，每次增加一定的数值。
改写后的程序，支持前缀，带小数的数字，小数的数字增量，保留原来的小数点位。程序的两个子程序，一个用来求前缀，一个求小数位数，也许可以用在其他的程序里。
虽然程序写的不好，还是要卖一个爱心币。以补偿下载其他程序的花销：）
此外，原来的程序源代码可以在firemaner朋友的贴里找到。

xgwl

呵呵! 好东西!用起来感觉不错! 就是数字不能动态显示,拖出来的数字还是原数字,待拷贝定后才是最后结果!

xgwl

还有这个程序不能连续拷贝！！ 最好在第一个选择参考数字时，能象copy命令一样，先确定基点，这样方便以后数值的定位！

841594

拖动的处理偷了点懒，若做成拖动新文字的效果程序会大好多。
不过总比没有好。
新的演示（多重拷贝）：

自由的鱼

不错，功能实现的挺利索的，可以连续就更好了！


还不太完善！有时间再修改一下，可以连续标注！
Option Explicit

Sub tt()
On Error Resume Next
Dim txt As AcadText
Dim pnt As Variant
Dim ent As AcadText
Dim zl As Double
Dim str As String
Dim i As Integer
Dim inspnt As Variant
i = 1
ThisDrawing.Utility.GetEntity ent, pnt, "choose"
str = ent.TextString
zl = InputBox("输入增量")
Do
If Err <> 0 Then Exit Sub
inspnt = ThisDrawing.Utility.GetPoint(, "pnt")
Set txt = ThisDrawing.ModelSpace.AddText(CDbl(str) + i * zl, inspnt, 2)
i = i + 1
Loop
Exit Sub
End Sub

pisces_zy

呵呵

楼主有没有兴趣再完善一下哈

如果能动态显示,和连续复制就完美了

先下载了用,楼主改完了偶再来下,^_^

xgwl

怎么没有一句感谢的话啊? 楼主写一个程序也不容易的啊!:)

xgwl

再顶一下! 这样的好工具真希望能更完善!

xiaping

谢谢搂住提供源代码。

陌生人

和论坛其他很多个帖子比起来，这个命题难道并不大，写起来也不复杂，不明白为什么会加为精华
试试我的
http://www.xdcad.net/forum/showthread.php?s=&threadid=208696

bridgewind

怎么用lisp实现连续copy？楼主请呀。

841594

可以连续拷贝了，程序免费下载1天，请重新下载。

梦断江南

841594  
更新一下你的演示吧，用可以连续拷贝的版本

xgwl

好!真的很好!只是更新的时间太长了,让人等了很久!辛苦了! 只可惜: 还是不能象copy命令一样，先确定基点，再进行copy！

841594

最初由 xgwl 发布
[B]好!真的很好!只是更新的时间太长了,让人等了很久!辛苦了! 只可惜: 还是不能象copy命令一样，先确定基点，再进行copy！ [/B]

不好意思！久等了！
请问是怎样的应用需要这样准确定位呢？加上基点并不难，但要加多一个操作步骤，是否有必要？