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

这
 

(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)
)

Commandobill 发表于 2022-7-5 19:36:56

 
Tharwat发布的内容似乎对您的要求非常有效。

mbrandt5 发表于 2022-7-5 19:40:12

谢谢，非常感谢

Tharwat 发表于 2022-7-5 19:47:47

 
不客气。
页: [1]
查看完整版本: 将多个选择集设置为一个