wowan1314 发表于 2012-4-7 16:38:18

【源码分享】文字末尾的数字递增复制

本帖最后由 wowan1314 于 2013-6-12 20:19 编辑

用到的函数都是论坛上找的。在此一并谢过。

看到有人发个VLX的此程序。于是无聊的也搞了一个！程序只对文本类末尾的数字的有效。
程序只实现了基本的功能。可能流程控制还不够好。 水平有限！
还有如下函数，谢谢KAIXIN 补上！


[*](defun ureal (bit kwd msg def / inp)
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(if def
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif          bit (* 2 (fix (/ bit 2)))
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    )
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    (setq msg (strcat "\n" msg ": "))
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(initget bit kwd)
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(setq inp (getreal msg))
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(if inp
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    inp
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif    def
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)
[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)



864034462 发表于 2021-8-31 20:44:46

输入T11命令后显示no function definition: UREAL。无法使用。我是天正2014和cad2014

戏男 发表于 2022-7-20 09:17:37

怎么复制后的会在数字后面自动加一位小数0啊？能直接整数，不带小数位就更好了

wanhongron 发表于 2022-7-12 11:38:44

程序非常好用，请问怎么修改递增后的小数位数

vlisp2012 发表于 2012-4-7 18:53:29

多谢楼主分享！！！

669423907 发表于 2012-4-7 21:52:39

谢谢楼主分享。
刚发现用手机可以下载了，以前一直不行的。

wdq10105 发表于 2012-4-7 22:17:04

no function definition: UREAL

669423907 发表于 2012-4-7 23:11:01

还是少一自定义函数！（好像是）

【KAIXIN】 发表于 2012-4-8 08:08:57

wdq10105 发表于 2012-4-7 22:17 static/image/common/back.gif
no function definition: UREAL

(defun ureal (bit kwd msg def / inp)
(if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp
    inp
    def
)
)

kwok 发表于 2012-4-8 10:46:55

冒似我用2008/2013都没有提示no function definition: UREAL
为什么?

eversky 发表于 2012-4-8 11:40:30

【KAIXIN】 发表于 2012-4-8 08:08 static/image/common/back.gif


增加上去确实好用了

wowan1314 发表于 2012-4-8 11:52:02

本帖最后由 wowan1314 于 2012-4-8 12:05 编辑

【KAIXIN】 发表于 2012-4-8 08:08 static/image/common/back.gif

谢谢补齐！ 自己没注意到。拿我用的类似的程序改得，没注意到还有其他函数。

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



能不能把小数点位数设为0
页: [1] 2 3 4 5 6 7
查看完整版本: 【源码分享】文字末尾的数字递增复制