请问在表格单元格里插入块用什么lisp语句?
请问在表格单元格里插入块用什么lisp语句?
http://bbs.mjtd.com/thread-181516-1-1.html (defun Table:setblock (tb row column blockname)
(vla-setblocktablerecordid
tb
row
colomn
(vla-get-objectid (vla-item (vla-get-blocks(vla-get-activedocument (vlax-get-acad-object))) blockname)):vlax-true)
;;或(vla-get-objectid (vlax-ename->vla-object(cdr (assoc 330(entget (tblobjname "block" blk)))))):vlax-true)
)
页:
[1]