lisp如何获取图纸内的所有图块名称

要获取图纸内的所有图块名称，可以使用 AutoLISP 编写一个程序。以下是一个示例程序，它会列出当前图纸中所有图块的名称：

(defun c:list-all-block-names ()
  (setq block-names '())
  (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (setq block-names (cons (strcase (vla-get-name block)) block-names))
  )
  (prompt (strcat "\nAll Block Names: " (apply 'strcat (mapcar '(lambda (x) (strcat "\n" x)) block-names))))
)

(c:list-all-block-names)

这个程序首先定义了一个名为 `c:list-all-block-names` 的函数，它会使用 `vlax-for` 循环遍历当前图纸中的所有图块，并将它们的名称存储在一个列表中。然后，程序使用 `prompt` 函数将所有图块名称输出到 AutoCAD 命令行。

要运行这个程序，只需要在 AutoCAD 命令行中输入 `c:list-all-block-names`，然后按下 Enter 键即可。程序将会列出当前图纸中所有图块的名称。

相关问题

lisp如何获取图纸内的所有外部参照名称

要获取图纸内的所有外部参照名称，可以使用 AutoLISP 的图形界面操作函数来实现。以下是一个获取图纸内所有外部参照名称的示例代码：

(defun get-xref-names ( / ss xref-names)
  (setq ss (ssget "X" '((0 . "INSERT"))))
  (if ss
    (progn
      (setq xref-names '())
      (repeat (sslength ss)
        (setq name (cdr (assoc 2 (entget (ssname ss (setq i (1+ i)))))))
        (if (member (strcase name) xref-names)
          (setq xref-names xref-names)
          (setq xref-names (cons (strcase name) xref-names)))))
    (princ "\nNo external references found."))
  (reverse xref-names))

在这个函数中，首先使用 `ssget` 函数获取所有的外部参照（即插入实体），然后遍历这些实体并使用 `entget` 函数获取它们的属性列表。在属性列表中，参照名称的属性代码为 2，因此可以使用 `assoc` 函数找到这个属性并获取其值。最后，使用 `member` 函数检查这个名称是否已经被记录，如果没有，就将其添加到名称列表中。最终函数返回的是一个反转后的名称列表，这是因为在添加名称时使用的是 `cons` 函数，所以名称的顺序是反向的。

lisp如何获取图纸内的所有参照文件名称

在Lisp中，可以使用vlisp提供的(vla-get-ExternalReferences)函数来获取图纸内的所有参照文件名称。以下是示例代码：

(defun get-all-xrefs (doc)
  (setq xref-names '())
  (vlax-for blk (vla-get-Blocks doc)
    (vlax-for xref (vla-get-ExternalReferences blk)
      (setq xref-names (cons (vla-get-Name xref) xref-names))
    )
  )
  xref-names
)

在上述代码中，我们定义了一个名为get-all-xrefs的函数，它接受一个doc参数，该参数表示当前打开的AutoCAD文档。函数首先初始化一个空列表xref-names，然后使用vlax-for循环遍历所有块，再在每个块中查找所有参照文件。找到参照文件后，将其名称添加到xref-names列表中。最后，函数返回xref-names列表，其中包含图纸内的所有参照文件名称。

您可以将此函数保存到Lisp文件中，并使用(load)函数加载它。然后，您可以在AutoCAD命令行中调用此函数，并传递当前文档对象作为参数。例如，以下命令将获取当前文档中的所有参照文件名称：

(get-all-xrefs (vla-get-ActiveDocument (vlax-get-acad-object)))

希望这可以帮助到您。