数字自动增加

443971181

请高手帮忙：
我想把复制数字的时候，每次粘贴他的时候都能自动增加，并且粘贴后的数字能有原来数字的所有特性，只是数字增加。比如我输入命令fz,则提示选择要复制的数字，若我选择了数字5，然后提示我指定基点，再粘贴时自动变为6，再粘下变为7。。。。
要求：1、能连续复制          2、最好是能设置增加的步长           3、最好是能够设置数字的前缀和后缀。

谢谢！希望有高手帮我！小弟不胜感激！

【KAIXIN】

2. ;;;数字文本递增复制（通用函数在12楼）
   
3. (defun c:XX()
   
4.   (setq        s1  (car (entsel "\n数字文本: "))
   
5.         ure (KX-UREAL 1 "" "增值: " ure)
   
6.         tx  (KX-get-dxf 1 s1)
   
7.         pt5 (KX-get-MinMaxPoint s1 5)
   
8.         s0  (entlast)
   
9.         i   0
   
10.   )
    
11.   (if (setq tx1 (distof tx))
    
12.     (progn
    
13.       (while (setq pt2 (getpoint pt5 "\n复制位置<退出>: "))
    
14.         (setq tx-new (rtos (+ tx1 (* ure (setq i (1+ i)))) 2 3))
    
15.         (command "copy" s1 "" pt5 pt2)
    
16.         (KX-SubUpd (entlast) 1 tx-new)
    
17.       )
    
18.     )
    
19.   )
    
20. )
    

;;;数字文本递增复制（通用函数在12楼）<br /> (defun c:XX()<br />   (setq        s1  (car (entsel "\n数字文本: "))<br />         ure (KX-UREAL 1 "" "增值: " ure)<br />         tx  (KX-get-dxf 1 s1)<br />         pt5 (KX-get-MinMaxPoint s1 5)<br />         s0  (entlast)<br />         i   0<br />   )<br />   (if (setq tx1 (distof tx))<br />     (progn<br />       (while (setq pt2 (getpoint pt5 "\n复制位置<退出>: "))<br />         (setq tx-new (rtos (+ tx1 (* ure (setq i (1+ i)))) 2 3))<br />         (command "copy" s1 "" pt5 pt2)<br />         (KX-SubUpd (entlast) 1 tx-new)<br />       )<br />     )<br />   )<br /> )<br />

wowan1314

http://bbs.mjtd.com/thread-92879-1-1.html

来武影

楼上的不错。

注册

k版出手，必定很牛

mandala

下手晚了。

vlisp2012

错误: no function definition: KX-UREAL

【KAIXIN】

vlisp2012 发表于 2012-5-22 23:06
错误: no function definition: KX-UREAL

UREAL
是上面这个，已经共享源码....

443971181

KAIXIN你好，加载之后是no function definition: KX-UREAL，求教！

443971181

【KAIXIN】 发表于 2012-5-23 07:58
UREAL
是上面这个，已经共享源码....

KAIXIN你好，加载之后是no function definition: KX-UREAL，求教！