插入多个块

Luís Augusto · 发表于 2022-7-5 23:39:40

大家好。
在论坛的研究中，我发现了一个由Lee Mac编写的lisp程序，该程序可以插入图形中的所有块，并要求插入点。我发现它非常有用。
可以适应插入从csv文件读取的块，并带来值属性？
块未加载到图形中，因此目录先前加载到Suppot文件搜索路径中。

这就是上面提到的程序。

copy


(DEFUN C:BLKINS  (/ pt name)
 (vl-load-com)
 
 (setq *acad* (vla-get-ActiveDocument
                (vlax-get-acad-object)))
 (setq *ms*   (vla-get-ModelSpace *acad*))
 (vlax-for item (vla-get-Blocks *acad*)
   (if (and (not (eq "*" (substr (setq name (vla-get-Name item)) 1 1)))
            (setq pt (getpoint "\nSelect Point for Block: ")))
     
     (vlax-invoke-method *ms* 'InsertBlock (vlax-3d-point pt) name 1.0 1.0 1.0 0.0)))
 (princ))

提前谢谢你。

你好，路易斯·奥古斯托。

BIGAL · 发表于 2022-7-5 23:44:27

如果您有一个csv文件，那么只需在excel中打开并制作一个脚本，您可以使用excel中的连接命令来连接列。

你需要这样的线路

插入块1 x，y 1 0 asdf ghjk。。。。两个属性

Luís Augusto · 发表于 2022-7-5 23:47:31

对不起，比格尔。我想你误解了我。
我打算找到一个例程，询问包含这些值的表的位置然后插入块，询问插入位置，不必提供坐标x、y、z。
我找到了类似以下主题的内容，但无法重用代码。

http://www.cadtutor.net/forum/showthread.php?53100-使用LISP插入块和属性

我请求了持有人的代码，但没有成功，所以我请求帮助。
我从事agriculas机器电气线束的设计，在连接器中插入带有大量插脚的属性相当费力。
今天我使用了李大师的优秀程序批处理属性编辑器，但在导入属性之前仍然需要插入所有连接器。我想完全自动化这项任务。

有人知道在哪里找东西吗？

谢谢你的帮助。