图块打包生成lsp程序 ss2lsp

KO你

KO你 发表于 2025-6-18 01:03
思路是对的。怎么实践，云大师不妨操作一下看看能否实现。
我是完全不懂怎么折腾了

我就是想用这个思路打包一些常用的图块(包含动态块做成插件)，以后经过命令插入进来，懒得再去找图库。这个问题困扰我很久了

树櫴希德

请问是先加载那个FAS文件吗？

kozmosovia

KO你 发表于 2025-6-15 13:08
我也是这样想的，有什么方法把DWG文件打包在fas文件或vlx文件里，再输入命令运行插入。我记得论坛有打包 ...

更简单的处理方式，将一个或多个图块保存为DXF文件，然后修改后缀为TXT，将其作为资源文件添加到VLX中，运行时先vl-getresource提取TXT内容，写入保存为DXF文件，然后insert DXF就有了图块定义，包括动态块。

KO你

kozmosovia 发表于 2025-8-28 10:51
更简单的处理方式，将一个或多个图块保存为DXF文件，然后修改后缀为TXT，将其作为资源文件添加到VLX中， ...

思路正确，但我不懂怎么操作，你能用LISP写一个程序出来吗

或者把步骤过程演变出来

阿猪蛋

这是好东西啊，谢谢楼主分享。

kozmosovia

KO你 发表于 2025-8-28 10:53
思路正确，但我不懂怎么操作，你能用LISP写一个程序出来吗

或者把步骤过程演变出来

把多个动态块直接DXFOUT导出为WRAPDBLK.DXF，然后重命名为WRAPDBLK.TXT。创建VLX时，在资源文件那里选TXT文件并将WRAPDBLK.TXT加入。

将代码中的DYN1修改为其中一个动态块的块名，编译为VLX后，执行IMDB即可导入所有动态块定义。

2. (Defun C:IMDB (/ SaveDXF DAT DOC DXF FNN OLD)
   
3.   (Defun SaveDXF (dat fnn / ADO)
   
4.     (setq ado (vlax-create-object "ADODB.Stream"))
   
5.     (vlax-put-property ado "Type" 1)
   
6.     (vlax-invoke ado "Open" nil nil nil nil nil)
   
7.     (vlax-invoke-method
   
8.       ado
   
9.       "Write"
   
10.       (vlax-make-variant
    
11.   (vlax-safearray-fill
    
12.     (vlax-make-safearray
    
13.       17
    
14.       (cons 0 (1- (length dat)))
    
15.     )
    
16.     dat
    
17.   )
    
18.       )
    
19.     )
    
20.     (vlax-invoke-method ado "saveToFile" fnn 2)
    
21.     (vlax-invoke-method ado "Close")
    
22.     (vlax-release-object ado)
    
23.     (findfile fnn)
    
24.   )
    
25.   (and (null (tblsearch "Block" "DYN1"))
    
26.        (setq dat (vl-catch-all-apply 'vl-get-resource (list "WRAPDBLK")))
    
27.        (not (vl-catch-all-error-p dat))
    
28.        (setq dxf (SaveDXF (vl-string->list dat)
    
29.         (strcat (car (fnsplitl (vl-filename-mktemp)))
    
30.           "WRAPDBLK.dxf"
    
31.         )
    
32.      )
    
33.        )
    
34.        (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    
35.        (progn
    
36.    (setq old (entlast))
    
37.    (vla-import doc dxf (vlax-3d-point '(0. 0. 0.)) 1.)
    
38.    (if old
    
39.      (while (setq old (entnext old)) (entdel old))
    
40.      (while (setq old (entlast)) (entdel old))
    
41.    )
    
42.    (vl-file-delete dxf)
    
43.    (and (tblsearch "Block" "WRAPDBLK")
    
44.         (vla-erase (vla-item (vla-get-blocks doc) "WRAPDBLK"))
    
45.    )
    
46.        )
    
47.   )
    
48.   (tblsearch "Block" "DYN1")
    
49. )

(Defun C:IMDB (/ SaveDXF DAT DOC DXF FNN OLD)<br />   (Defun SaveDXF (dat fnn / ADO)<br />     (setq ado (vlax-create-object "ADODB.Stream"))<br />     (vlax-put-property ado "Type" 1)<br />     (vlax-invoke ado "Open" nil nil nil nil nil)<br />     (vlax-invoke-method<br />       ado<br />       "Write"<br />       (vlax-make-variant<br />   (vlax-safearray-fill<br />     (vlax-make-safearray<br />       17<br />       (cons 0 (1- (length dat)))<br />     )<br />     dat<br />   )<br />       )<br />     )<br />     (vlax-invoke-method ado "saveToFile" fnn 2)<br />     (vlax-invoke-method ado "Close")<br />     (vlax-release-object ado)<br />     (findfile fnn)<br />   )<br />   (and (null (tblsearch "Block" "DYN1"))<br />        (setq dat (vl-catch-all-apply 'vl-get-resource (list "WRAPDBLK")))<br />        (not (vl-catch-all-error-p dat))<br />        (setq dxf (SaveDXF (vl-string->list dat)<br />         (strcat (car (fnsplitl (vl-filename-mktemp)))<br />           "WRAPDBLK.dxf"<br />         )<br />      )<br />        )<br />        (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />        (progn<br />    (setq old (entlast))<br />    (vla-import doc dxf (vlax-3d-point '(0. 0. 0.)) 1.)<br />    (if old<br />      (while (setq old (entnext old)) (entdel old))<br />      (while (setq old (entlast)) (entdel old))<br />    )<br />    (vl-file-delete dxf)<br />    (and (tblsearch "Block" "WRAPDBLK")<br />         (vla-erase (vla-item (vla-get-blocks doc) "WRAPDBLK"))<br />    )<br />        )<br />   )<br />   (tblsearch "Block" "DYN1")<br /> )