将线的端点存储到

motee-z · 发表于 2022-7-5 20:00:15

请帮个小忙
有什么想法吗
我想选择一条特定的线，然后将这些线的端点存储在一个列表中
塔克斯

David Bethel · 发表于 2022-7-5 20:16:46

基本引擎可能如下所示：


[b][color=BLACK]([/color][/b]defun c:linepl [b][color=FUCHSIA]([/color][/b]/ pl ss i en ed[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]foreach g '[b][color=GREEN]([/color][/b]10 11[b][color=GREEN])[/color][/b]
               [b][color=GREEN]([/color][/b]setq pl [b][color=BLUE]([/color][/b]cons [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc g ed[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] pl[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]and pl [b][color=MAROON]([/color][/b]alert [b][color=GREEN]([/color][/b]rtos [b][color=BLUE]([/color][/b]length pl[b][color=BLUE])[/color][/b] 2 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

Tharwat · 发表于 2022-7-5 20:24:21

变量“lst”保存选定线的端点坐标列表。

copy


(defun c:Ends (/ ss lst)
 (if (setq ss (ssget '((0 . "LINE"))))
   ((lambda (i / sn)
      (while (setq sn (ssname ss (setq i (1+ i))))
        (setq lst (cons (cdr (assoc 11 (entget sn))) lst))
      )
    )
     -1
   )
 )
 (if lst lst (princ))
)

motee-z · 发表于 2022-7-5 20:27:22

谢谢david谢谢tharwat

BIGAL · 发表于 2022-7-5 20:35:01

当你用另一种方式画一条线时，会发生什么？你可能需要额外的一点，就像我在检查你选择哪一端时使用的那样，因此交换10和11个答案，以获得我想要的开始-结束。

David Bethel · 发表于 2022-7-5 20:44:02

虽然我经常使用sp（start\u pt）和ep（end\u point）作为线的点值，但AutoCAD实际上使用了From和To提示，从不真正指定起点和终点。

OP从未真正说明需要哪些分数。（所有直线点）（所有直线点的对）（所有直线点的对及其反向）

我经常使用这些对和它们的反面（对于过度杀戮类型的函数）

copy


(defun vld_deldup (/ ss i ll en ed p10 p11 mln)
 (setq mln 0.003)
 (princ (strcat "\nSearching " (getvar "CLAYER") "...  "))
 (and (setq ss (ssget "X" (list (cons 0 "LINE")(cons 8 (getvar "CLAYER")))))
      (setq i 0)
      (while (setq en (ssname ss i))
             (setq ed (entget en)
                  p10 (cdr (assoc 10 ed))
                  p11 (cdr (assoc 11 ed)))
             (if (or (< (distance p10 p11) mln)
                     (member (list p10 p11) ll)
                     (member (list p11 p10) ll))
                  (entdel en)
                  (setq ll (cons (list p10 p11) ll)))
             (setq i (1+ i)))
       (if ll (princ (strcat (rtos (length ll) 2 0) " Of " (rtos i 2 0) " LINEs Remain"))
              (princ "- No Duplicates Found")))
 (prin1))