四舍五入到最近的一英尺

LISP2LEARN · 发表于 2022-7-6 09:11:49

这让我抓狂。我怎样才能把它四舍五入到最近的英尺？我只需要去掉英寸。谢谢

(defun C:test (/) 
(defun LM:Round ( n ) (fix (- n (if (minusp n) -0.5 0.5))))
(setq pt1 (getpoint "\n Pick first point:" ))
(setq pt2 (getpoint "\n Pick second point:"))
(command ".dist" pt1 pt2 )
(setq #dist (rtos (lm:round (getvar 'distance))))
(princ #dist)
(princ)
)

Lee Mac · 发表于 2022-7-6 09:33:40

要始终四舍五入，可能：

copy

(fix (/ (distance p1 p2) 12.0))

copy

(defun c:test ( / p1 p2 )
 (if
   (and
     (setq p1 (getpoint "\nFirst Point: "))
     (setq p2 (getpoint "\nSecond Point: " p1))
   )
   (princ (strcat (itoa (fix (/ (distance p1 p2) 12.0))) "'"))
 )
 (princ)
)

LISP2LEARN · 发表于 2022-7-6 10:02:14

再次感谢李

Lee Mac · 发表于 2022-7-6 10:20:54

别担心，伙计

[编程交流] 四舍五入到最近的一英尺

发表回复

精选推荐