如何插入动态块

言戲無軍

目前无法用lisp生成动态块，只能先定义好再插入
如何用lisp插入呢，这个就是代码，我是搬运工。

2. [code=lisp](setq dwg "D:\\tested_dwg.dwg")
   
3. (defun eea-3d-add-del  ()
   
4.   (if (tblobjname "layer" "3D")
   
5.     (command "_.-laydel" "_Name" "3D" "" "_Yes")
   
6.     (command "_.-insert"
   
7.        (strcat (vl-filename-base dwg) "=" dwg)
   
8.        nil)
   
9.     )
   
10.   (princ)
    
11.   )
    
12. (eea-3d-add-del)

[code=lisp](setq dwg "D:\\tested_dwg.dwg")<br /> (defun eea-3d-add-del  ()<br />   (if (tblobjname "layer" "3D")<br />     (command "_.-laydel" "_Name" "3D" "" "_Yes")<br />     (command "_.-insert"<br />        (strcat (vl-filename-base dwg) "=" dwg)<br />        nil)<br />     )<br />   (princ)<br />   )<br /> (eea-3d-add-del)

[/code]

li18153832202

你这个插件，只能一插入一个指定好的图块，其它的块，又要新建一个，LISP文件及新的命令。
能不能改一下呀，输入命令后，通过输入【字母+数字】，来选择，定义好的其它的多个不同用途的块。
最后在指定插入点。完成。

言戲無軍

li18153832202 发表于 2019-8-18 18:07
你这个插件，只能一插入一个指定好的图块，其它的块，又要新建一个，LISP文件及新的命令。
能不能改一下呀 ...

这个只是把图纸中的块定义插到当前图形，并不是直接插块，你要插入块，直接insert+块名 插入

li18153832202

哦。理解错误，不好意思。