freeok 发表于 2015-8-12 19:00:02

取X Y向大值

请教：
(setq list1 (distance apt1 (list (car apt2) (cadr apt1))));返回量取的X轴的值

想改成返回X Y值中的大值怎么改啊？谢谢


http://bbs.mjtd.com/thread-169075-1-1.html

xyp1964 发表于 2015-8-13 08:14:18

(defun abc (p1 p2 / dx dy)
(setq dx (abs (- (car p2) (car P1)))
      dy (abs (- (cadr p2) (cadr p1)))
)
(max dx dy)
)

freeok 发表于 2015-8-13 11:05:55

谢谢你们！
页: [1]
查看完整版本: 取X Y向大值