求大神写个Lisp，批量插入块！

mokson

我有一个 “SST_Draw.dwg” 文件，是由其它软件自动生成的三视图，它有固定的模式：
1. 三视图中的每个视图均为图块，并且块名是以固定的前辍（Sanshitu_）开头的，
    如前视图的块为 Sanshitu_F，俯视图为Sanshitu_T，左视图为Sanshitu_L
2. 每个块的插入点坐标均为原点坐标（即：0,0,0）


我想在另一个图形文件里，通过加载一个 Lsp文件：
一次性批量插入该文件里所有块名只包含“Sanshitu_”字样的块，
并且它们的插入点保持不变，也是在原点上。
我不会用 Lisp 遍历另一个文件的所有块并插入，又涉及到正则表达式匹配的问题，真棘手。
求助大家帮忙。谢谢。

参考附件：

pengfei2010

就一个图纸，整体插入炸开不就行了

664571221

改头像了？？？？？

mokson

pengfei2010 发表于 2019-1-15 13:30
就一个图纸，整体插入炸开不就行了

不是一张，而是程序会自动生成很多部件的图纸，想提高工作效率，所以想要一个lisp程序。

zixuan203344

老哥，你08年就注册了，这都10年了，多少应该自己学点知识啊

血司

不如选择块名“Sanshitu_*”，复制过去

maiko

(defun c:tt ( / doc x )
        (setq doc (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
  (foreach x (list "Sanshitu_F" "Sanshitu_T" "Sanshitu_L")
    (if (tblsearch "BLOCK" x)
      (vla-insertblock doc (vlax-3d-point (trans '(0 0 0) 1 0)) x 1 1 1 0)
    )
  )
)

mokson

maiko 发表于 2020-7-9 19:48
(defun c:tt ( / doc x )
        (setq doc (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-objec ...

我测试一下。感谢大哥的帮助。