[编程申请]：lisp程序：已有两条线，画中心线

温柔女神

现在有的LISP程序，能画中心线，但是要两条直线。
其实在具体的图纸中，我们的线多是折线，曲线。
现在求助，大家有没有LISP程序，能在选择的任意两线形间画中间线？比如，我选的两线都是曲线或折线，怎么画？
如果你有源程序，请发一个上来吧，给个联结也好，谢谢

轻舟望月

我也在求索中,希望能早些见到.

jinsong-liao

这个程序实用性较大，希望有心人编写。

jinsong-liao

这个程序实用性较大，希望有心人编写。

whxiwei

对阿，这样的插件很有用，望专业人士帮忙编制一个阿

温柔女神

大家怎么不帮一下啊，
我现在从零开始学LISP，所以不会才问

轻舟望月

此类作图也想知道,也真心希望早是见到此类程序!

dhcad

这个东西晓东工具中有，曲线一\绘中轴线

温柔女神

没有啊，哪有，给个连接

papayaa

;;从中点画线
(DEFUN C:SF (/ pt1 pt2 pt1x pt1y pt2x pt2y ptm ptmx ptmy)
  (SETQ PT1 (GETPOINT "Select first point :"))
  (SETQ PT2 (GETPOINT "Select second point :"))
  (SETQ PT1X (car PT1)) ;;取PT1的X坐标
  (SETQ PT1y (cadr PT1));;取PT1的Y坐标

  (SETQ PT2x (car PT2));;取PT2的X坐标
  (SETQ PT2y (cadr PT2));;取PT2的Y坐标

  (SETQ PTmx (/ (+ pt1x PT2x) 2))
  (SETQ PTmy (/ (+ pt1y PT2y) 2))
  (SETQ PTm (list ptmx ptmy));;计算中点坐标
  (COMMAND "line" ptm)
  (princ)
)

算法很简单，求中点，一般只用在直线中，在两直线上随便各选一点。可能不能满足你们得全部要求

寒光四射

其实上面的程序修改一下，比较有用的，
大家看一下，怎么写：
意思就是让下面的程序重复，直到用户点右键确定或别的什么方式，才开始连线。
(SETQ PT1 (GETPOINT "Select first point :"))
(SETQ PT2 (GETPOINT "Select second point :"))
(SETQ PT1X (car PT1)) ;;取PT1的X坐标
(SETQ PT1y (cadr PT1));;取PT1的Y坐标

(SETQ PT2x (car PT2));;取PT2的X坐标
(SETQ PT2y (cadr PT2));;取PT2的Y坐标

(SETQ PTmx (/ (+ pt1x PT2x) 2))
(SETQ PTmy (/ (+ pt1y PT2y) 2))
(SETQ PTm (list ptmx ptmy));;计算中点坐标

接受用户停止命令，最后连线：
(COMMAND "line" ptm1 ptm2 ptm3 ptm4......)
(princ)
请高手指点一下

papayaa

不用连那么多点，连出来的都是断线，两点就取一条直线了。把上面程序再循环一下。我会编各新的上来。

寒光四射

最初由 papayaa 发布
[B]不用连那么多点，连出来的都是断线，两点就取一条直线了。把上面程序再循环一下。我会编各新的上来。 [/B]

回楼上的，你把“LINE”改成“PLINE”就不是断线了，
而是一根长折线，如果你有循环的好想法，请发出来，
比如，可以循环画500个点，但是在500个点以内，用户可以结束而进行连线，在500个点以外，自动连线。
前几天，我试了一下，循环出问题了，结束取点的想法是：当用户在最后一个点旁边（很近）点击时表示结束；
当坐标 | Xm - Xn |  < 3  AND  | Ym - Yn |  < 3  时，连线，退出循环
个人想法，也许大家还有更好的想法