(setq row (length blknum_list))
(setq pp(getpoint "\n表格左上角點:"))
(command "-table" 3 row "w" 40 "h" 1 pp)
(setq en (entlast))
(setq enx (vlax-ename->vla-object en));轉換為Activex物件
(setq row 0 column 0)
(vla-settext enx row column "數量統計表") ;在0列0行寫文字
(vla-setcellalignment enx row column 5) ;4左中,5正中,6右中
(vla-settext enx 1 0 "圖塊") ;在1列1行寫文字
(vla-settext enx 1 1 "圖示") ;在1列2行寫文字
(vla-settext enx 1 2 "數量") ;在1列3行寫文字
(setq ii 2)
(foreach lista blknum_list
-------------------------------
...
↧