求助实现以下功能

kele99kele

求大神实现以下功能
1.框选任意矩形网格
2.两两打断矩形网格，画矩形网格交点连线，提示并设置连线中点的Z轴偏移距离
3.新做正交矩形网格连接刚画出的交点

kele99kele

求大神光顾，悬赏虽少，已是半数身家了，还有一个问题需要提问，待这个问题解决了就把另外半数身家奉上[em0]

kele99kele

求大神解答，谢谢

cable2004

做网架呀，软件都很发达了呀！

kele99kele

异形网架，现成的模板用不了，得自己在cad里一根一根的画，一旦有交点点错位一点，模型就是废的了，所以想弄个程序可以减小错误发生的概率，现在有一点点思路，但是水平不够，几个程序拼不起来

kele99kele

以下这个程序已经做的很不错了，只需要在这个的基础上改进一点就更好了，求大神帮忙

下面的程序需要改进的地方是起始输入的点不要由鼠标指定，而是指定Z坐标偏移量，xy坐标由型心计算得出，另外最好能批量框选，型心连线的问题可以放到最后解决。另外型心计算的程序我找到了很多，但都是要求是闭合曲线或者面域的，线段交点的型心计算也是个需要解决的问题。

1. (defun c:tt ()  (while (setq p1 (getpoint "\n基点<退出>: "))
   
2.     (setq s1 (entlast))    (bpoly p1)
   
3.     (setq s2 (entlast))    (if (not (equal s1 s2))
   
4.       (progn (foreach pt (xyp-get-Vertexs s2 0)
   
5.    (command "line" p1 pt "") )
   
6. (command "erase" s2 "")
   
7.       )
   
8.     )
   
9.   )
   
10.   (princ))

(defun c:tt ()  (while (setq p1 (getpoint "\n基点<退出>: "))<br />     (setq s1 (entlast))    (bpoly p1)<br />     (setq s2 (entlast))    (if (not (equal s1 s2))<br />       (progn (foreach pt (xyp-get-Vertexs s2 0)<br />    (command "line" p1 pt "") )<br /> (command "erase" s2 "")<br />       )<br />     )<br />   )<br />   (princ))

此程序原作者是xyp1964，原帖在这里