lisp 表格 文字的字高、字体如何修改

lanyf

Autocad中，绘制表格后，字体的高度、字体如何利用lisp进行修改?

marting

1、用 表格  搜索论坛

2、vla-setcelltextheight


具体用法看ActiveX 参考手册

lanyf

marting 发表于 2017-5-23 15:08

(defun C:ttt (/ tableobj def_clms def_width_list clms col width rows row height);设置明细栏的宽度
  (Vl-Load-Com)
  (setq def_clms 8);默认总列数为8
  (setq def_width_list (list 7.5 7.5 33 8 36 46 16 26));A4列宽度列表
  ;(setq def_width_list (list 7.5 7.5 33 8 45 47 17 33));A3~A0列宽度列表
  (setq def_height_list (list 6))
  (setq def_cellheight_list (list 4))
  (setq tableobj (get-tableobj))
  (setq clms (vla-get-columns tableobj))
  (setq col 0)
    (repeat clms
   (setq width (nth col def_width_list))
          (vla-SetColumnWidth tableobj col width)
     (setq col (1+ col))
   
    );end repeat
  (setq rows (vla-get-rows tableobj))
  (setq row 0)
    (repeat rows
   (setq height (nth 0 def_height_list))
          (vla-SetRowHeight tableobj row height)
     (setq cellheight (nth 0 def_cellheight_list))
     (vla-SetTextHeight tableobj row cellheight);这样子吗？无法改变，什么原因呢？【表格数据由excel导入的】
     (setq row (1+ row))
   
    );end repeat
  
);end of Set_table_width
(defun get-tableobj ()
  (if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
    (vlax-ename->vla-object (ssname e 0))
  )
)