lisp 表格自动设置列宽

lanyf · 发表于 2017-5-22 22:03:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:Set_table_width (/ tableobj def_clms def_width_list clms col width);设置明细栏的宽度
  (Vl-Load-Com)
  (setq def_clms 8);默认总列数为8
  (setq def_width_list (list 8 40 42 8 38 12 12 20))
  (setq tableobj (get-tableobj))
  (setq clms (val-get-columns tableobj))
  (if (= clms def_clms)
(progn
(setq col 0)
      (repeat clms
(setq width (nth col def_width_list))
         (vla-SetColumnWidth tableobj col width)
      (setq col (1+ col))

   );end repeat
   )

  );end if

);end of Set_table_width

自动设置表格列宽
运行提示：“no function definition: GET_TABLEOBJ”，如何解决？
如何选中表格呢？

marting · 发表于 2017-5-22 22:15:08

你的代码缺函数啊，所以提示错误了

试试定义个

(defun get-tableobj ()
(if (setq e (ssget ":E:N" '((0 . "ACAD_TABLE"))))
(vlax-ename->vla-object (ssname e 0))
)
)

lanyf · 发表于 2017-5-22 22:21:00

marting 发表于 2017-5-22 22:15

谢谢您的帮助
上面的函数可以了
不过又提示“no function definition: VAL-GET-COLUMNS”，缺少“VAL-GET-COLUMNS”函数
能否再帮忙写一下
目前对lisp刚有点了解，其他都还不会呢，谢谢帮助了

lanyf · 发表于 2017-5-22 22:32:45

marting 发表于 2017-5-22 22:15

追加一个问题：一般列是固定的，就算不用判断也可以写成固定的数字
但行的个数不是固定，想要将所有的行的高度设置成固定的高度，有什么办法吗？

newer · 发表于 2017-5-22 23:03:56

本帖最后由 newer 于 2017-5-22 23:10 编辑

lanyf 发表于 2017-5-22 22:32

给你提供个解决方案吧，与其在这纠结这么多，不如直接找个库，现成的函数直接用就是了

加载XDRX API
不管什么表格，执行一句代码，自动给你调整成最合适的大小

(xdrx_setpropertyvalue (car (entsel)) "autosize")

自动表格.gif

Lisphk · 发表于 2017-5-22 23:25:31

VAL-GET-COLUMNS 这个笔误了吧？

应该是 vla-get-columns

lanyf · 发表于 2017-5-23 07:21:47

Lisphk 发表于 2017-5-22 23:25

谢谢，检查了一下，是笔误！改过了变蓝色了，估计可以了

账号		自动登录	找回密码
密码			立即注册

[求助] lisp 表格自动设置列宽

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。