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

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

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

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

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

(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
)
)

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
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

增加上去确实好用了

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

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

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

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

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

能不能把小数点位数设为0

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

本帖被以下淘专辑推荐:

点评

点评

点评

本帖子中包含更多资源