SSGET-块，然后搜索Des

GregGleason · 发表于 2022-7-5 15:27:37

我有一个区块的SSGET，选择有效。然后，我想对每个块描述进行通配符搜索。然后我想保留带有“AAA”、“BBB”和“CCC”描述的块，并从选择中排除其他块。

一旦我有了选择，我想将选择更改为另一层。

以下是我目前掌握的情况：

(defun c:Test ( / in ss en de myco)
 (setq myco 0)
 (if (setq in -1 ss (ssget "_C" '(7.244 2.071) '(16.665 10.003) '((0 . "INSERT") (8 . "FTG-Iso"))))
   (while (setq en (ssname ss (setq in (1+ in))))
     (progn
       (setq myco (+1 myco))
       (princ (strcat "\n                      " (rtos myco 2 0) ". Hey!"))
       (setq de (entget en description))
       ; (princ (strcat "\n                            "  de))
       [color=blue]{Exclude entities that do not have valid strings in description}[/color]
     )
   )
 )
 (sssetfirst nil ss)
 (princ)
 )

Greg

Lee Mac · 发表于 2022-7-5 15:32:39

这是一个正确的方向-

copy

(defun c:test ( / i s )
   (if (setq s (ssget "_C" '(7.244 2.071) '(16.665 10.003) '((0 . "INSERT") (8 . "FTG-Iso"))))
       (repeat (setq i (sslength s))
           (print (cdr (assoc 4 (entget (tblobjname "block" (cdr (assoc 2 (entget (ssname s (setq i (1- i)))))))))))
       )
   )
   (princ)
)

GregGleason · 发表于 2022-7-5 15:35:27

李，我运行了这个，我得到的只是文本窗口中的一串“nil”。这是应该发生的吗？

格雷格

BIGAL · 发表于 2022-7-5 15:40:20

格雷格·格里森我很困惑？你是说区块名吗？

copy

lee ?
(entget (tblobjname "block" (cdr (assoc 2 (entget (car (entsel)))))))
is ok 
returns nil no (assoc 4

copy


(setq s (ssget "_C" '(7.244 2.071) '(16.665 10.003) '((0 . "INSERT") (8 . "FTG-Iso"))))
(repeat (setq x (sslength s))
(setq obj (vlax-ename->vla-object (ssname s (setq x (- x 1)))))
(princ "\n")
(princ (vla-get-name obj))
; put a cond here check for aaa bb ccc and change obj layer
; (vla-put-layer obj newlay)
)