将多个选择集设置为一个

mbrandt5 · 发表于 2022-7-5 18:47:33

有谁知道lisp，我可以让多个选择集与一行对齐？

例如，您可以选择多个组并使用组指定相应的点。沿y轴选择垂直线具有所有选择集，并且这些选定点捕捉到该线。

包括示例开始和结束结果
ObjectLineUp。pdf

pBe · 发表于 2022-7-5 18:58:53

我们有一个想法如何做到这一点。如何张贴一个绘图样本，让我们看看。pdf并没有真正解释“组”是什么。

tombu · 发表于 2022-7-5 19:08:48

更多信息：http://forums.augi.com/showthread.php?162393-多个选择集到一行Lisp

mbrandt5 · 发表于 2022-7-5 19:15:41

这是一张图纸。pdf的。还有更多的信息
SSL阵容。图纸

mbrandt5 · 发表于 2022-7-5 19:19:09

有谁知道Lisp程序会做这样的事情，或者愿意帮我写吗？

Tharwat · 发表于 2022-7-5 19:32:10

这

copy


(defun c:Test (/ s e p ss bs)
 (if (and (setq s (car (entsel "\nSelect Vertical Line :")))
          (eq (cdr (assoc 0 (setq e (entget s)))) "LINE")
          (equal (car (setq p (cdr (assoc 10 e))))
                 (car (cdr (assoc 11 e)))
                 1e-4
          )
     )
   (progn
     (princ "\nSelect objects to move ")
     (while
       (and (setq ss (ssget "_:L"))
            (setq bs (getpoint "\nSpecify base point for objects :"))
       )
        (command "_.move"
                 ss
                 ""
                 "_none"
                 bs
                 "_none"
                 (list (car p) (cadr bs) 0.)
        )
     )
   )
 )
 (princ)
)