社区 › AutoCAD工具插件 › 单多行数字复制递进

669423907 发表于 2012-4-7 19:09:52

wowan1314 发表于 2012-4-7 16:24 static/image/common/back.gif
搞定了！ 论坛上东拼西凑了！基本满足要求

wowan1314兄，你好，08使用出现以下提示：
命令: t11 ; 错误: no function definition: UREAL
不知何故？

hpy 发表于 2012-4-7 20:17:10

出现同样的问题。

669423907 发表于 2012-4-7 21:24:38

好像是“UREAL”没放出来

wowan1314 发表于 2012-4-7 23:38:08

所有东西都发了，我cad04。08没玩过。还有必须选末尾带数字的文字。

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

669423907 发表于 2012-4-7 21:24 static/image/common/back.gif
好像是“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
)
)

wowan1314 发表于 2012-4-8 11:51:19

【KAIXIN】 发表于 2012-4-8 08:06 static/image/common/back.gif
补上函数：

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

xiaxiang 发表于 2012-4-8 18:43:57

不错，老兄，有源码会更好！

ps122hb 发表于 2012-4-9 12:43:28

wowan1314 发表于 2012-4-7 16:24 static/image/common/back.gif
搞定了！ 论坛上东拼西凑了！基本满足要求
还有个函数！？



谢谢分享，支持源码

zhb236623 发表于 2012-4-13 17:48:16

支持源码。…。…。………。…。………

迷雾水珠 发表于 2012-4-14 17:15:53

下载后怎么用？？？

查看完整版本: 单多行数字复制递进