如何以编程方式显示/h

nik600 · 发表于 2022-7-6 08:38:16

尊敬的各位

我试图编写一个lisp函数，允许我使用其名称作为选择器来显示/隐藏块。

我在网上找到了一些例子，但所有的例子都需要用户手动选择对象，我想使用simpy块的名称来选择它，而不是在窗口中选择什么。

我尝试了以下代码：


(defun c:test_show ()
   (setq selezione (ssget "X" '((2 . "test1"))))
   (redraw selezione 1)
 (princ))
(defun c:test_hide ()
   (setq selezione (ssget "X" '((2 . "test1"))))
   (redraw selezione 2)
 (princ))

但是，当我在F2控制台中键入“test\u show”时，我得到：

copy


Command: test_show
; error: argument type error: lentityp <Selection set: 80>

我已经看到redraw函数需要一个ENAME参数，所以我的问题可能是如何获得具有其名称的块的ENAME，有人可以帮我吗？

提前感谢

marko_ribar · 发表于 2022-7-6 08:43:26

尝试：

copy


(tblobjname "block" "bname")

键入而不是“bname”-您的“test1”块。。。

David Bethel · 发表于 2022-7-6 08:48:09

您需要单步通过选取集。该过程有许多变体：

copy


(and (setq ss (ssget "X" '((2 . "TEST1")))
    (while (setq en (ssname ss 0))
           (redraw en 2)
           (ssdel en ss)))

HTH-David

Lee Mac · 发表于 2022-7-6 08:55:51

以下是我可能如何完成任务：

两个命令（“test\u hide”和“test\u show”）都调用定义的函数“RedrawSelectionSet”，这需要一个用于redraw函数的SelectionSet参数（ss）和整数参数（mode）。

然后，“重画选择集”将逐步通过提供的选择集并重画每个实体。

我还将SelectionSet过滤器限制为活动空间（模型/布局/通过VPort）中的块（插入）。

BlackBox · 发表于 2022-7-6 08:58:04

为了好玩。。。

copy


(defun c:HIDE_TEST1 ( / ss i e)
 (if (and (setq ss (ssget "_X" '((0 . "INSERT") (2 . "TEST1"))))
          (setq i -1))
   (while (setq e (ssname ss (setq i (1+ i)))) (redraw e 2))
   (prompt "\n** Block not found ** "))
 (princ))
(defun c:SHOW_TEST1 ( / ss i e)
 (if (and (setq ss (ssget "_X" '((0 . "INSERT") (2 . "TEST1"))))
          (setq i -1))
   (while (setq e (ssname ss (setq i (1+ i)))) (redraw e 1))
   (prompt "\n** Block not found ** "))
 (princ))