从两里中间画一条线

Lee Mac · 发表于 2022-7-6 08:39:11

(defun midp3 ( pt1 pt2 / )
   (list
       (/ (+ (car   pt1) (car   pt2)) 2.0)
       (/ (+ (cadr  pt1) (cadr  pt2)) 2.0)
       (/ (+ (caddr pt1) (caddr pt2)) 2.0)
   )
)

copy

Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):
   (MIDP3 P1 P2)......1045 / 10.21 <fastest>
   (MIDP1 P1 P2)......1185 / 9
   (MIDP2 P1 P2)......1248 / 8.55
   (MIDPT P1 P2).....10670 / 1 <slowest>

copy

Benchmarking ..................Elapsed milliseconds / relative speed for 32768 iteration(s):
   (MIDP3 P1 P2).....1029 / 1.2 <fastest>
   (MIDP1 P1 P2).....1201 / 1.03
   (MIDP2 P1 P2).....1232 / 1 <slowest>

Comatosis · 发表于 2022-7-6 08:45:30

这可能比目前建议的速度还要慢，但autoCAD（至少2010年）已经有一个名为“中点之间”（Mid Between 2 Points）（_m2p）的捕捉选项，可以在shift+右键单击菜单中选择（无论称为什么，呵呵）。我不知道它是否可以通过AutoLISP访问，或者它是否有助于清理代码/减少资源消耗，但呃，我想我还是把它扔出去以防万一吧，哈哈。

MSasu · 发表于 2022-7-6 08:45:59

@比尔·蒂尔曼：当然，你已经收到了一系列很好的解决方案。我将试着对你的第一种方法发表一些评论。
如果要使用OSNAP模式定位点，则应匹配提示器上的操作（即它提供选择点，而不是实体名称），或使用OSNAP AutoLISP函数。

copy

(command "_LINE" "_MID" pt1 "_MID" pt3 "")

或

copy

(command "_LINE" (osnap pt1 "_MID") (osnap pt3 "_MID") "")

但是，这不是推荐的解决方案，因为它可能会受到缩放级别、该区域中图形的拥挤程度和拾取框的大小以及实体是否在屏幕上可见的影响-存在选择其他项目或根本没有选择的风险。

MSasu · 发表于 2022-7-6 08:51:26

@昏迷：AutoCAD将M2P或MTP列为命令修改器；它也可以用于AutoLISP代码中。

copy

 (command "_LINE" "_M2P" pt1 pt2 "_M2P" pt3 pt4 "")

irneb · 发表于 2022-7-6 08:54:01

太棒了但是2D点呢？

Lee Mac · 发表于 2022-7-6 08:57:54

诚然，所需的条件可能会抵消使用此方法比mapcar在性能上的任何增益。。

irneb · 发表于 2022-7-6 09:02:27

还不错：

copy

(defun midp4 (pt1 pt2 / z1 z2)
 (append (list (/ (+ (car   pt1) (car   pt2)) 2.0)
               (/ (+ (cadr  pt1) (cadr  pt2)) 2.0))
         (if (and (setq z1 (caddr pt1)) (setq z2 (caddr pt2)))
           (list (/ (+ z1 z2) 2.0)))))

copy

irneb · 发表于 2022-7-6 09:06:13

实际上，godofcad的想法更快：

copy

[编程交流] 从两里中间画一条线

发表回复

精选推荐