leaderzhou 发表于 5 天前

自动标高绘制

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


by361973435 发表于 5 天前

感谢楼主分享

lt1058479745 发表于 5 天前


感谢楼主分享

Qwer1243 发表于 5 天前

感谢分享~~~~~~~

hnzx 发表于 4 天前

感谢楼主分享

F-K 发表于 4 天前

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

leaderzhou 发表于 4 天前

(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"))

F-K 发表于 3 天前

leaderzhou 发表于 2025-12-30 17:34
(setq target-num (+ final-distance baseline-elevation)
                  abs-num (abs target-num) ...

大佬威武，非常感谢，厉害

F-K 发表于 3 天前

leaderzhou 发表于 2025-12-30 17:34
(setq target-num (+ final-distance baseline-elevation)
                  abs-num (abs target-num) ...

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

F-K 发表于 3 天前

F-K 发表于 2025-12-31 09:10
大佬，刚刚试了一下，还是不行，不知道怎么回事

已经改好了哈，非常感谢大佬提供的代码
页: [1] 2
查看完整版本: 自动标高绘制