按比例计算距离，指定基准线，自动标注高度




网友答: 感谢楼主分享

网友答:
感谢楼主分享

网友答: 感谢分享~~~~~~~

网友答: 感谢楼主分享

网友答: 大佬，怎么改成保留2位小数呢？该哪个参数？谢谢指导

网友答: (setq target-num (+ final-distance baseline-elevation)
                    abs-num (abs target-num)
                    int-part (fix abs-num)
                    ;; dec-part (fix (+ (* (- abs-num int-part) 1000.0) 0.0005)));;三位小数
                    dec-part (fix (+ (* (- abs-num int-part) 100.0) 0.005))) ; 两位小数
另一个地方
              (if (equal target-num 0.0 0.001)
                  (setq str2 "%%p0.00"))

网友答:
大佬威武，非常感谢，厉害

网友答:
大佬，刚刚试了一下，还是不行，不知道怎么回事

网友答:
已经改好了哈，非常感谢大佬提供的代码