单多行数字复制递进

669423907

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

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

hpy

出现同样的问题。

669423907

好像是“UREAL”没放出来

wowan1314

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

【KAIXIN】

669423907 发表于 2012-4-7 21:24
好像是“UREAL”没放出来

补上函数：

2. (defun ureal (bit kwd msg def / inp)
   
3.   (if def
   
4.     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
   
5.           bit (* 2 (fix (/ bit 2)))
   
6.     )
   
7.     (setq msg (strcat "\n" msg ": "))
   
8.   )
   
9.   (initget bit kwd)
   
10.   (setq inp (getreal msg))
    
11.   (if inp
    
12.     inp
    
13.     def
    
14.   )
    
15. )

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

wowan1314

【KAIXIN】 发表于 2012-4-8 08:06
补上函数：

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

xiaxiang

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

ps122hb

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

谢谢分享，支持源码

zhb236623

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

迷雾水珠

下载后怎么用？？？