443971181 发表于 2012-5-22 14:40:42

数字自动增加

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

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

【KAIXIN】 发表于 2012-5-22 14:40:43

本帖最后由 【KAIXIN】 于 2012-5-24 14:45 编辑

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

wowan1314 发表于 2012-5-22 15:04:54

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

来武影 发表于 2012-5-22 15:27:31

楼上的不错。

注册 发表于 2012-5-22 20:13:57

k版出手，必定很牛

mandala 发表于 2012-5-22 20:45:38

下手晚了。

vlisp2012 发表于 2012-5-22 23:06:28

错误: no function definition: KX-UREAL

【KAIXIN】 发表于 2012-5-23 07:58:31

vlisp2012 发表于 2012-5-22 23:06 static/image/common/back.gif
错误: no function definition: KX-UREAL

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

443971181 发表于 2012-5-23 09:20:44

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

443971181 发表于 2012-5-23 09:26:22

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

KAIXIN你好，加载之后是no function definition: KX-UREAL，求教！
页: [1] 2
查看完整版本: 数字自动增加