关于创建块的三种方法

hubeiwdlue

关于创建块，最常用的方法是command方法，简单，实用：

2. (command "_.block" blkname "non" pt ss "")
   
3. (command "_.insert" blkname "x" 1 "y" 1 "z" 1 "r" 0 "non" inspt);插入块  

(command "_.block" blkname "non" pt ss "")<br /> (command "_.insert" blkname "x" 1 "y" 1 "z" 1 "r" 0 "non" inspt);插入块  

另外一种常用的方法是entmake方法创建块：

2. (defun MAKE-BLOCK (ss pt blkName / i num)
   
3.     (if (/= (getvar "HANDLES") 1)
   
4.       (command "HANDLES" "ON")
   
5.     ) ;_ 结束if
   
6.     (entmake (list '(0 . "BLOCK")
   
7.                (cons 2 blkName)
   
8.                '(70 . 0)
   
9.                (cons 10 PT)
   
10.              ) ;_ 结束list
    
11.     ) ;_ 结束entmake
    
12.     (setq i -1)
    
13.     (repeat (sslength ss)
    
14.       (entmake (cdr (entget (ssname ss (setq i (1+ i))))))
    
15.     ) ; repeat     
    
16.     (setq num (entmake '((0 . "ENDBLK"))))
    
17.     (entmake
    
18.       (list '(0 . "INSERT")
    
19.         (cons 2 num)
    
20.         (cons 10 pt)
    
21.       ) ;_ 结束list
    
22.     ) ;_ 结束entmake
    
23.     (command "erase" ss "")
    
24.     (entlast)
    
25.   )
    
26. (setq ss (ssget))
    
27. (setq pt (getpoint))
    
28. (setq name (getstring))
    
29. (MAKE-BLOCK ss pt name)

(defun MAKE-BLOCK (ss pt blkName / i num)<br />     (if (/= (getvar "HANDLES") 1)<br />       (command "HANDLES" "ON")<br />     ) ;_ 结束if<br />     (entmake (list '(0 . "BLOCK")<br />                (cons 2 blkName)<br />                '(70 . 0)<br />                (cons 10 PT)<br />              ) ;_ 结束list<br />     ) ;_ 结束entmake<br />     (setq i -1)<br />     (repeat (sslength ss)<br />       (entmake (cdr (entget (ssname ss (setq i (1+ i))))))<br />     ) ; repeat     <br />     (setq num (entmake '((0 . "ENDBLK"))))<br />     (entmake<br />       (list '(0 . "INSERT")<br />         (cons 2 num)<br />         (cons 10 pt)<br />       ) ;_ 结束list<br />     ) ;_ 结束entmake<br />     (command "erase" ss "")<br />     (entlast)<br />   )<br /> (setq ss (ssget))<br /> (setq pt (getpoint))<br /> (setq name (getstring))<br /> (MAKE-BLOCK ss pt name)

vla的方法创建块，论坛上没找到完整的例子，问了一下ai，整理了一个vla创建块的代码，如下：

2. (defun CreateBlockByVLA (ss basePt blkName / acadDoc blkCol blkInsert blockObj UniqueBlockName modelSpace obj)
   
3.   (vl-load-com)
   
4.   ;; 生成唯一块名
   
5.   (defun UniqueBlockName (name / blockTable count newname)
   
6.     (setq blockTable (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
   
7.     (setq count 1
   
8.       newname name)
   
9.     (while (not (vl-catch-all-error-p
   
10.                   (vl-catch-all-apply 'vla-Item (list blockTable newname))))
    
11.       (setq newname (strcat name "$" (itoa count)))
    
12.       (setq count (1+ count))
    
13.     )
    
14.     newname
    
15.   )
    
16.   (setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
17.   (setq blkCol (vla-get-Blocks acadDoc))
    
18.   (setq modelSpace (vla-get-ModelSpace acadDoc))
    
19.   ;; 处理重命名，确保块名唯一
    
20.   (setq blkName (UniqueBlockName blkName))
    
21.   ;; 创建新块
    
22.   (setq blockObj (vlax-invoke blkCol 'Add basePt blkName))
    
23.   ;; 复制对象到块定义
    
24.   (and ss (= 'pickset (type ss))
    
25.     (progn
    
26.       (vl-cmdf "SELECT" ss "")
    
27.       (ssget "P")
    
28.     )
    
29.   )
    
30.   (vlax-for obj (vla-get-ActiveSelectionSet acadDoc)
    
31.     (vla-CopyObjects acadDoc
    
32.       (vlax-make-variant
    
33.         (vlax-safearray-fill
    
34.           (vlax-make-safearray vlax-vbObject '(0 . 0))
    
35.           (list obj)
    
36.         )
    
37.       )
    
38.       blockObj
    
39.     )
    
40.     (vla-Delete obj)
    
41.   )
    
42.   ;; 在模型空间插入块
    
43.   (setq blkInsert (vla-InsertBlock modelSpace
    
44.                   (vlax-3d-point basePt) ; 插入点（与块基点相同）
    
45.                   blkName                 ; 块名
    
46.                   1.0 1.0 1.0              ; X/Y/Z比例
    
47.                   0.0                       ; 旋转角度
    
48.                 ))
    
49.   blkInsert
    
50. )
    
51. (defun c:tt ()
    
52.   (setq ss (ssget))
    
53.   (if ss
    
54.     (progn
    
55.       (setq basePt (getpoint "\n选择块的基点: "))
    
56.       (setq blkName (getstring "\n输入块名: "))
    
57.       (CreateBlockByVLA ss basePt blkName)
    
58.     )
    
59.     (princ "\n未选择对象，操作取消。")
    
60.   )
    
61.   (princ)
    
62. )

(defun CreateBlockByVLA (ss basePt blkName / acadDoc blkCol blkInsert blockObj UniqueBlockName modelSpace obj)<br />   (vl-load-com)<br />   ;; 生成唯一块名<br />   (defun UniqueBlockName (name / blockTable count newname)<br />     (setq blockTable (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))))<br />     (setq count 1<br />       newname name)<br />     (while (not (vl-catch-all-error-p<br />                   (vl-catch-all-apply 'vla-Item (list blockTable newname))))<br />       (setq newname (strcat name "$" (itoa count)))<br />       (setq count (1+ count))<br />     )<br />     newname<br />   )<br />   (setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq blkCol (vla-get-Blocks acadDoc))<br />   (setq modelSpace (vla-get-ModelSpace acadDoc))<br />   ;; 处理重命名，确保块名唯一<br />   (setq blkName (UniqueBlockName blkName))<br />   ;; 创建新块<br />   (setq blockObj (vlax-invoke blkCol 'Add basePt blkName))<br />   ;; 复制对象到块定义<br />   (and ss (= 'pickset (type ss))<br />     (progn <br />       (vl-cmdf "SELECT" ss "")<br />       (ssget "P")<br />     )<br />   )<br />   (vlax-for obj (vla-get-ActiveSelectionSet acadDoc)<br />     (vla-CopyObjects acadDoc<br />       (vlax-make-variant<br />         (vlax-safearray-fill<br />           (vlax-make-safearray vlax-vbObject '(0 . 0))<br />           (list obj)<br />         )<br />       )<br />       blockObj<br />     )<br />     (vla-Delete obj)<br />   )<br />   ;; 在模型空间插入块<br />   (setq blkInsert (vla-InsertBlock modelSpace<br />                   (vlax-3d-point basePt) ; 插入点（与块基点相同）<br />                   blkName                 ; 块名<br />                   1.0 1.0 1.0              ; X/Y/Z比例<br />                   0.0                       ; 旋转角度<br />                 ))<br />   blkInsert<br /> )<br /> (defun c:tt ()<br />   (setq ss (ssget))<br />   (if ss<br />     (progn<br />       (setq basePt (getpoint "\n选择块的基点: "))<br />       (setq blkName (getstring "\n输入块名: "))<br />       (CreateBlockByVLA ss basePt blkName)<br />     )<br />     (princ "\n未选择对象，操作取消。")<br />   )<br />   (princ)<br /> )

hubeiwdlue

这里有一点需要注意的是，vla方法创建块，如果块重名，会往块里面添加图元，而不是替换。

1028695446

我一般用两种方法，在位编辑和块编辑器中，用vla方法；正常情况下用command命令；
然后entmeke不好用，因为对建属性块不友好

hubeiwdlue

1028695446 发表于 2025-4-2 18:13
我一般用两种方法，在位编辑和块编辑器中，用vla方法；正常情况下用command命令；
然后entmeke不好用，因 ...

请教，在位编辑应该怎么写呢？

Bao_lai

1028695446 发表于 2025-4-2 18:13
我一般用两种方法，在位编辑和块编辑器中，用vla方法；正常情况下用command命令；
然后entmeke不好用，因 ...

属性也是可以一起entmake进去的