请问大神SetBlockTableRecordId方法怎么用？

liucheng2028825

请问大神SetBlockTableRecordId方法怎么用？

lisperado

把 Block（方块）插入Table表所指定的格子位置

(SetBlockTableRecordId TABLE 行数 列数 objectID 自动比例)；自动=1 否=0

lisperado

如果没人回帖你自己可以顶上，就不需要再发太多同样帖子因为会很产生混乱！
建议把之前帖子删除掉 因为同样问题只可以回答一个

liucheng2028825

lisperado 发表于 2020-5-14 22:46
把 Block（方块）插入Table表所指定的格子位置

(SetBlockTableRecordId TABLE 行数 列数 objectID 自动 ...

(vl-load-com)
(setq tbl        (vla-addtable
          (vla-get-modelspace
            (vla-get-activedocument (vlax-get-acad-object))
          )
          (vlax-3d-point '(0 15 0))
          (+ 2 (length l))        ; ADD ROWS
          3                        ; ADD COLUMNS
          2                        ; ROW HEIGHT
          10                        ; COLUMN WIDTH
        ))

(setq ec (car (entsel "\n选择一个块:")))

(setq blk2 (vlax-ename->vla-object ec))

(setq blk2id (vla-get-ObjectID blk2))
(vla-SetBlockTableRecordId tbl 1 0 blk2id 1)


大神，我写了这么一段代码，结果运行完以后显示 “Automation 错误。 类无效”是怎么回事呀。

lisperado

liucheng2028825 发表于 2020-5-15 12:27
(vl-load-com)
(setq tbl        (vla-addtable
          (vla-get-modelspace

你所选取blk2之ObjectID是来自物体名称（ObjectName）是参考块（AcDbBlockReference）而不是AcDbBlockTableRecord

2. 
   
3. (defun btrec (bname / l blk)
   
4.   (setq blk (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
   
5.   (vlax-for x blk
   
6.     (if
   
7.      (= (vla-get-Name x) bname)
   
8.       (setq l (cons x l))
   
9.       )
   
10.     )
    
11.   (car l)
    
12.   )
    

<br /> (defun btrec (bname / l blk)<br />   (setq blk (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (vlax-for x blk<br />     (if <br />      (= (vla-get-Name x) bname)<br />       (setq l (cons x l))<br />       )<br />     )<br />   (car l)<br />   )<br />

试试看
(setq blk2id (vla-get-ObjectID (btrec (vla-get-name blk2 ))))

liucheng2028825

lisperado 发表于 2020-5-15 20:22
你所选取blk2之ObjectID是来自物体名称（ObjectName）是参考块（AcDbBlockReference）而不是AcDbBlockTab ...

多谢大神解决了在下的一个疑惑，大恩无以为报