请高手帮忙注释一下该程序

leeyuan

zhe


由于刚学习lisp语言，该程序有多处不明白，希望大家能解释一下，谢谢！

meflying

那为什么不把看不明白的地方注明一下？这么多，要都解释，要累死别人啊

leeyuan

问题在附加中，请飞哥帮忙简要说明一下各自定义函数的作用，不必详细说明各条语句！


在此谢谢先

meflying

rtoz是转换函数，将一个数字转换成高程（不知道是不是）字符串，你代个数字进去运行一下就知道结果了。。。这个函数太
烦琐，我改了一下，如后面。。。
subl是去除列表中某个元素，为rtoz函数调用，别的地方没用，使用我这个rtoz之后，这个函数也就
没用了
jhbz及zout都是一些计算方面的函数，比较容易理解，由于不是很清楚这个程序的整个过程，所以很难明白这些计算的意义，这个
就你自己去看了 (defun rtoz(r / n nr)
(setq n (fix (/ r 1000.0)))
(setq nr (- r (* n 1000.0)))
(cond
((< nr 10) (setq nr (strcat "00" (rtos nr))))
((< nr 100) (setq nr (strcat "0" (rtos nr))))
(t (setq nr (rtos nr)))
)
(strcat (rtos n) "+" nr)
)

leeyuan

谢谢飞哥，我先调换一下试试，有问题再请教

leeyuan

飞哥：


                                                 为什么主程序运行到输入桩号的时候就提示如下，


输入第一个桩号&lt;实数&gt;:1.0 ; 错误: 没有为参数定义函数: -14824.0





这是何原因？

meflying

这样的问题你应该去问写这个程序的人。。。如果这个程序你用不了，为什么要用它？？？


到不如说说你的要求，让别人重新给你写一个

leeyuan

这个程序不是用不了，而是程序本身有些地方缺少必要的说明，使得程序在输入要求上只有写程序的人本身清楚，我原想对程序做些修改，使其能被大多数专业人员使用