正打算写一个使单行文字“表格”内居中的程序……希望大家不吝指教！

epsdzero

正打算写一个使单行文字“表格”内居中的程序…这里的“表格”是指用若干横、竖直线画的，每行不一定等高，每列也不一定等宽。程序的大致流程为，对选择集中的每个单行文字，找到单行文字所在的“格子”，然后让它在“格子”里居中。

至于如何找到单行文字所在的“格子”，我的方法是：先求出单行文字几何图形的中心点，再作过此中心点的辅助垂直线（水平线），找出与辅助垂直线（水平线）相交的且离单行文字几何图形的中心点最近的上下（左右）两条水平线（垂直线），这两对水平和垂直线就是构成单行文字所在的“格子”的直线了！

不知有没有其它更好的办法求出单行文字所在的“格子”？另外，辅助垂直线（水平线）的长短确定只能靠估算，太短则够不到“格子”的上下水平线（左右垂直线），太长则可能碰到过多的相邻行（相邻列）的其它水平线（垂直线），影响程序执行效率。

希望大家不吝指教！

Andyhon

....单行文字所在的“格子”....

(setq pt 单行文字几何图形的中心点)
=========>

Command: (bpoly pt)
<Entity name: 7ef53f80>   ; 单行文字所在的“格子”