关于在CAD2022中通过entmake插入属性块

weilu

现在这种方法是否有问题？记得之前在2012版本可以实现，现在却不行了，调试过程中有时会提示创建了无效的复杂对象，有时连基本的块都显示不出。
(defun D-MakeAttInsert(name0 pt0 ang sc pt1 text1 font hei wid hori vert flag layer ltype colar / );制作插入属性块
  (entmake (list '(0 . "INSERT") '(66 . 1);采用'(66 . 1)，伴随属性
          (cons 2 name0) (cons 10 pt0) (cons 50 ang);块名、插入点、角度
          (cons 41 sc) (cons 42 sc) (cons 43 sc);x、y、z比例
          (cons 8 layer) (cons 6 ltype) (cons 62 colar)));线型随层"BYLAYER";颜色随层256
  (entmake (list '(0 . "ATTRIB") '(100 . "AcDbEntity") '(100 . "AcDbText")  
          (cons 10 pt1) (cons 11 pt1) (cons 1 text1) (cons 2 "标高") (cons 50 ang);第二对齐点;内容、角度
          (if (tblsearch "style" font) (cons 7 font) (cons 7 "standard"));字体
          (cons 40 (* hei sc)) (cons 41 wid);字高、字宽
          (cons 72 hori) (cons 74 vert);水平竖直对正类型
         '(100 . "AcDbAttribute") (cons 70 flag);属性标志;可见性、预设等
          (cons 8 layer) (cons 6 ltype) (cons 62 colar)));线型随层"BYLAYER";颜色随层256
  (entmake '((0 . "SEQEND")));结束标志
  ;(entlast);返回
);~defun
;(D-MakeAttInsert "zb-标高" (list 0 0 0) 0 1 (list 4 4 0) "45.123" "standard" 2.5 0.75 0 0 0 "0" "BYLAYER" 256)

llsheng_73

除非DWG中没有"zb-标高"这个块定义，不然不应该出现这个情况

weilu

llsheng_73 发表于 2025-1-5 16:05
除非DWG中没有"zb-标高"这个块定义，不然不应该出现这个情况

我给CAD文件里有这个块，您可以试一下，插入函数已经附在结尾了。

黄翔

创建块应该用block 不是insert

2. (If (Not (TblSearch "BLOCK" "test123"))
   
3.     (progn
   
4.          (EntMake '((0 . "BLOCK")(2 . "test123")(8 . "0") (100 . "AcDbBlockReference")(70 . 0)(10 0.0 0.0 0.0)))   
   
5.      (EntMake
   
6.         (list
   
7.             '(0 . "CIRCLE")
   
8.             '(8 . "0")
   
9.             '(10 0.0 0.0 0.0)
   
10.             (cons 40 100)            
    
11.           )
    
12.       )      
    
13. (EntMakex
    
14.     (list
    
15.       (cons 0 "attdef")
    
16.       (cons 10   (list 0 0 0))
    
17.       (cons 40  300)
    
18.       (cons 1   "1")      
    
19.       (cons 2   "1")
    
20.       (cons 3   "1")
    
21.       (cons 70  0)
    
22.     )
    
23.   )
    
24.       (EntMake '((0 . "ENDBLK")))
    
25.      
    
26.     )
    
27. )

(If (Not (TblSearch "BLOCK" "test123")) <br />     (progn<br />          (EntMake '((0 . "BLOCK")(2 . "test123")(8 . "0") (100 . "AcDbBlockReference")(70 . 0)(10 0.0 0.0 0.0)))   <br />      (EntMake <br />         (list<br />             '(0 . "CIRCLE") <br />             '(8 . "0")<br />             '(10 0.0 0.0 0.0)<br />             (cons 40 100)            <br />           )<br />       )      <br /> (EntMakex <br />     (list <br />       (cons 0 "attdef")<br />       (cons 10   (list 0 0 0))<br />       (cons 40  300)<br />       (cons 1   "1")      <br />       (cons 2   "1")<br />       (cons 3   "1")<br />       (cons 70  0)<br />     )<br />   )<br />       (EntMake '((0 . "ENDBLK"))) <br />      <br />     )<br /> )

weilu

黄翔 发表于 2025-1-6 00:25
创建块应该用block 不是insert

您误会我的意思了，我就是要插入属性块

黄翔

插入属性块要这样做干什么?插入块,再修改属性值不就好了.  (entmake '((0 . "SEQEND")));只有定义块的时候才会用的.

weilu

黄翔 发表于 2025-1-6 21:13
插入属性块要这样做干什么?插入块,再修改属性值不就好了.  (entmake '((0 . "SEQEND")));只有定义块的时候 ...

好像不是吧······

黄翔

用测试.dwg里面运行

2. (setq *acad* (vlax-get-acad-object))
   
3. (setq *doc* (vla-get-activedocument *acad*))
   
4. (setq *ms* (vla-get-modelspace *doc*))
   
5. (setq _pt1 (getpoint))
   
6. (setq _obj (vla-InsertBlock *ms* (vlax-3d-point _pt1) "zb-标高" 1 1 1 0))
   
7. (mapcar
   
8. '(lambda (_Att)   
   
9.    (cond
   
10.      ((= (vla-get-TagString _Att) "标高") (vla-put-TextString _Att "新值"))
    
11.    )      
    
12. )
    
13. (vlax-invoke _Obj "GetAttributes")
    
14. )

(setq *acad* (vlax-get-acad-object))<br /> (setq *doc* (vla-get-activedocument *acad*))<br /> (setq *ms* (vla-get-modelspace *doc*))<br /> (setq _pt1 (getpoint))<br /> (setq _obj (vla-InsertBlock *ms* (vlax-3d-point _pt1) "zb-标高" 1 1 1 0))<br /> (mapcar<br /> '(lambda (_Att)   <br />    (cond<br />      ((= (vla-get-TagString _Att) "标高") (vla-put-TextString _Att "新值"))<br />    )      <br /> )<br /> (vlax-invoke _Obj "GetAttributes")<br /> )