Flter非均匀缩放blo

DuanJinHui · 发表于 2022-7-5 17:43:32

使用“ssget”，我想过滤非均匀缩放块。

(setq ss (ssget (list '(0 . "INSERT"))))

有什么好主意吗？谢谢

Tharwat · 发表于 2022-7-5 17:49:38

你好

您可能需要将1.0的值更改为所需的值。

copy


(setq ss (ssget '((-4 . "<NOT")
                 (-4 . "<AND")
                 (0 . "INSERT")
                 (41 . 1.0)
                 (42 . 1.0)
                 (43 . 1.0)
                 (-4 . "AND>")
                 (-4 . "NOT>")
                 )
               )
     )

DuanJinHui · 发表于 2022-7-5 17:52:26

谢谢塔瓦。
但这不是我需要的。
我需要选择均匀缩放的块。
例（41.1.0）（42.1.0）（43.1.0）
(41 . 2.0)(42 . 2.0)(43 . 2.0)
(41 . 3.0)(42 . 3.0)(43 .3.0).... 等

DuanJinHui · 发表于 2022-7-5 17:55:10

我知道使用“entsel”函数可以做到这一点：

copy

(setq blkref (car (entsel "\n>>>Choose a block:")))

copy


(if (not(= (cdr(assoc 41 (entget blkref))) (cdr(assoc 42 (entget blkref))) (cdr(assoc 43 (entget blkref)))))
                                (progn
                                        (alert "\nNOT support　non-uniformly scaled block.")
                                        t
                                )
                                (progn

Tharwat · 发表于 2022-7-5 17:57:37

我真的不确定你能用不同的X、Y和Z比例值过滤许多块，但你只能有一个，正如我在第一个回复中所演示的那样。

否则，您可以创建一个块选择集，然后在每个块对象之间循环，并在其比例X、Y、Z匹配时将对象添加到列表中。

DuanJinHui · 发表于 2022-7-5 18:00:24

可能需要编写一个子函数。

Tharwat · 发表于 2022-7-5 18:04:58

试试看，如果你需要帮助，请告诉我。

DuanJinHui · 发表于 2022-7-5 18:08:22

可能需要1天或更长时间。我会努力的。

Tharwat · 发表于 2022-7-5 18:11:50

不，很简单。

如果你不尝试给出至少75%的代码正确，我将不再回复你的任何帖子。

DuanJinHui · 发表于 2022-7-5 18:12:14

这有什么建议吗？谢谢

copy


(defun newss(/ ss i ename )
(while 
        (if (null(setq ss (ssget (list '(0 . "INSERT")))))
                (progn
                        (alert "\nNothing select. Try again.")
                        t
                )
                (progn
                        (repeat (setq i (sslength ss))
                                (setq ename (ssname ss (setq i (1- i))))
                                (if
                                        (not
                                                (= (cdr(assoc 41 (entget ename)))(cdr(assoc 42 (entget ename)))(cdr(assoc 43 (entget ename))))
                                        )
                                        (setq ename(ssdel ename ss))
                                )
                        )
                        nil
                )
        )
)
ename
)

因此，如果需要，请使用此新选择集。

copy


; test
(setq en (newss))
(command "_.move" en "")

[编程交流] Flter非均匀缩放blo

发表回复

精选推荐