多行

j_spawn_h · 发表于 2022-7-6 07:07:14

有人能帮我吗。如果我使用ssget选择多行。如何让它知道哪一行是选择的第一行和最后一行？有Lisp程序的人已经在这样做了吗？我有检测点的代码，只需要知道确定第一个和最后一个的代码。

Tharwat · 发表于 2022-7-6 07:19:42

例如


(if (setq ss (ssget '((0 . "LINE"))))
 (progn
   (setq first-line (ssname ss 0))
   (setq last-line (ssname ss (1- (sslength ss))))
   )
 )

j_spawn_h · 发表于 2022-7-6 07:29:14

谢谢塔瓦。这是我要求的，但似乎我没有我想的那么好。我找不到第一条线的中点。你能给我一个建议或帮助吗。以下是我试图做的。

copy

(defun c:matt (/)
 (setq ss (ssget "_:L" '((0 . "LINE"))))
 (setq first-line (ssname ss 0))
 (setq last-line (ssname ss (1- (sslength ss))))
(command "select" last-line "")
 (setq ed (entget en))
           (setq p10 (cdr (assoc 10 ed)))
           (setq p11 (cdr (assoc 11 ed)))
           (setq mpt (mapcar '(lambda (a b) (* (+ a b) 0.5)) p10 p11))
           (setq d2d (distance (cdr (reverse p10)) (cdr (reverse p11))))
           (setq d1d (/ d2d 12.))
 (command "_dimlinear" last-line "-mid")
 )

Tharwat · 发表于 2022-7-6 07:36:48

不客气。。

看看这个。。。

copy


(if (setq ss (ssget '((0 . "LINE"))))
 (progn
   (setq first-line (ssname ss 0))
   (setq mid-point (mapcar '(lambda (q p) (/ (+ q p) 2.))
                           (cdr (assoc 10 (entget first-line)))
                           (cdr (assoc 11 (entget first-line)))
                   )
   )
 )
)

marko_ribar · 发表于 2022-7-6 07:40:33

抱歉打扰了，但是（ssname（ssget“_X”）0等同于（entlast），因此如果您想要上次创建的对象，可以使用索引0，如果您想要首次使用：（（sslength（ssget））1）作为ssname函数中的索引。。。

M、 R。

Lee Mac · 发表于 2022-7-6 07:48:50

如果您在一个选择中的一组行上打开窗口，您将什么分类为选择中的“第一个”和“最后一个”？
离窗户边缘最近的那条线？
x/y/z坐标最低/最高的线？
在数据库中按顺序排列的行？

当使用选择模式字符串而不是扫描整个数据库（“U X”模式）时，不能依赖选择集中图元的顺序-“U X”模式将按图元在图形数据库中的显示顺序检索图元，即按图元在图形中的创建顺序。