本帖最后由 guosheyang 于 2022-11-12 10:08 编辑
CAD的lisp所提供的函数中没有常用对数函数,只有自然对数函数,在明经和晓东上搜了下也没找到,这里根据数学公式写了一个,请大家测试并反馈,谢谢!
依据的数学公式为 log(a) b=log (c) b÷log (c) a ;常用对数函数log10
;;参数: x 为大于0的实数
;;返回值:x的常用对数值
(defun log10(x)(/(log x)(log 10)))
(log10 7) 返回 0.845098
|