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

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

用到的函数都是论坛上找的。在此一并谢过。
看到有人发个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 ": ")
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
)



**** Hidden Message *****

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

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

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

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

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

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

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

多谢楼主分享！！！

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

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

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

no function definition: UREAL

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

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

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


(defun ureal (bit kwd msg def / inp)
(if def
    (setq msg (strcat "\n" msg ": ")
          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:00

冒似我用2008/2013都没有提示no function definition: UREAL
为什么?
页: [1] 2
查看完整版本: 【源码分享】文字末尾的数字递增复制