请问在表格单元格里插入块用什么lisp语句？

liucheng2028825

请问在表格单元格里插入块用什么lisp语句？

lisperado

http://bbs.mjtd.com/thread-181516-1-1.html

渠辉

1. (defun Table:setblock (tb row column blockname)
   
2.   (vla-setblocktablerecordid
   
3.     tb
   
4.     row
   
5.     colomn
   
6.     (vla-get-objectid (vla-item (vla-get-blocks(vla-get-activedocument (vlax-get-acad-object))) blockname)):vlax-true)
   
7.     ;;或(vla-get-objectid (vlax-ename->vla-object(cdr (assoc 330(entget (tblobjname "block" blk)))))):vlax-true)
   
8. )
   

(defun Table:setblock (tb row column blockname)<br />   (vla-setblocktablerecordid<br />     tb<br />     row<br />     colomn<br />     (vla-get-objectid (vla-item (vla-get-blocks(vla-get-activedocument (vlax-get-acad-object))) blockname)):vlax-true)<br />     ;;或(vla-get-objectid (vlax-ename->vla-object(cdr (assoc 330(entget (tblobjname "block" blk)))))):vlax-true)<br /> )<br />