四舍五入到最近的一英尺
这让我抓狂。我怎样才能把它四舍五入到最近的英尺？我只需要去掉英寸。谢谢(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)
) 要始终四舍五入，可能：
(fix (/ (distance p1 p2) 12.0))
(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)
) 再次感谢李 别担心，伙计
页:
[1]