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

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

用到的函数都是论坛上找的。在此一并谢过。
看到有人发个VLX的此程序。于是无聊的也搞了一个！程序只对文本类末尾的数字的有效。
程序只实现了基本的功能。可能流程控制还不够好。水平有限！
还有如下函数，谢谢KAIXIN 补上！
(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

登录/注册后可看大图

)

登录/注册后可看大图

)

0kbuzabj44w.gif

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

copy


(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
为什么?

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

发表回复

精选推荐