[求助]：请教!为什么第二段距离及面积值是错的?

bolixin

(defun c:test ()
  (if (and (setq pt1 (getpoint "\n起点<退出> : "))
           (setq pt2 (getpoint pt1 "\n下一点<退出> : "))
      )
    (progn
      (setq dist (rtos (distance pt1 pt2) 2 3))
      (command "area" pt1)
      (while (setq pt2 (getpoint pt2 "\n下一点<退出> : "))
        (command pt2)
        (setq dist12 (distance pt1 pt2)
              pt1    pt2
              dist   (strcat dist "+" (rtos dist12 2 3))
        )
      )
    )
  )
  (command)
  (setq dist (strcat dist "=" (rtos (getvar "area") 2 3)))
  (princ dist)
  (princ)
)

david96007

是不是右的点z值不为0啊?!

我也遇到过类似问题,后来发现我点取的点不在一个平面上!

舟自横

(defun c:test ()
(if (and (setq pt1 (getpoint "\n起点<退出> : "))
(setq pt2 (getpoint pt1 "\n下一点<退出> : "))
)
(progn
(setq dist (rtos (distance pt1 pt2) 2 3))
(command "area" pt1)
(while pt2 ;;;此处你重复定义了PT2所以PT2已经跳到第三点去了,故错!!
(command pt2)
(setq dist12 (distance pt1 pt2)
pt1 pt2
dist (strcat dist "+" (rtos dist12 2 3))
)
(setq pt2 (getpoint pt2 "\n下一点<退出> : "))
)
)
)
(command "");;;少""
(setq dist (strcat dist "=" (rtos (getvar "area") 2 3)))
(princ dist)
(princ)
)