用鼠标框选二平行线，利用lisp获取平行线距离

raolun

用鼠标框选后用lisp获取平行线距离？

Lisphk

善用论坛搜索， 搜索  点到直线

• 点到直线距离
  1 个回复 - 328 次查看
  (defun point_dist (pt p1 p2 / dist) (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2) x (car pt) y (cadr pt) dist 0.0 ) (setq dist (/ (+ (- (* x (- y2 y1)) ( ...
  2017-8-2 16:34 - wrsxed - 开源函数库
• 点到直线的距离
  11 个回复 - 471 次查看
  (defun c:ddzx ();点到直线的距离 (setq pt0 (getpoint "\n请选择直线起点：")) (setq pt1 (getpoint "\n请选择直线第二点：")) (setq pt2 (getpoint "\n请输入待求点：")) (setq y0 (car pt0));获取 ...
  2017-6-20 20:02 - 老仓测绘上班记 - 每日插件
• 用数学的方法求点到直线的距离
  11 个回复 - 2567 次查看
  
  
  2013-6-13 21:48 - Lispboy - 开源函数库
  
  

raolun

我想用框选获取平行线的距离

原地踏步

先取其中一条线的起点或终点，再用它来求到另一条线的距离就可以了。