[求助]：在LISP中怎样控制字符实际显示宽度

橄榄滋味

大家知道，经常在表格中用LISP输入一些字符，可是每个单元表格宽度都是固定的，而字符却有多有少，当然如果字符少不能充满表格时，字体宽度因子应该为1，可是如果充满而且超过表格，字体宽度就应该小于1才能放在表格里了。如果让字符采用“调整”模式，当然不会超出表格，可是如果字符少，字符就会显得太宽。请问高手，这种情况应该怎样控制字符实际显示宽度。

eachy

先“ 预测字符长度”

橄榄滋味

谢谢斑竹。如果是在属性块中又当如何呢，用LISP在属性块中添加属性值时会不会有更好的控制字符显示长度办法

eachy

最初由 橄榄滋味 发布
[B]谢谢斑竹。如果是在属性块中又当如何呢，用LISP在属性块中添加属性值时会不会有更好的控制字符显示长度办法 [/B]

预测长度同样适用属性

橄榄滋味

请问斑竹，如何预测长度，是不是根据字符的个数来调整，当字符个数不超过规定某个数时，宽度因子为1，当超过时根据字符个数除以规定个数来定义宽度因子，是不是这样？

eachy

查找 函数库 论坛相关函数及讨论

橄榄滋味

对不起，我实在没有找到这样的材料，请求斑竹帮助

xyp1964

最初由 橄榄滋味 发布
[B]谢谢斑竹。如果是在属性块中又当如何呢，用LISP在属性块中添加属性值时会不会有更好的控制字符显示长度办法 [/B]

用 F 选项。

命令: text
当前文字样式:  HZDX  当前文字高度:  700.000
指定文字的起点或 [对正(J)/样式(S)]: f
指定文字基线的第一个端点:
指定文字基线的第二个端点:
指定高度 <700.000>:

zhang8755

用 textbox 函数
Measures a specified text object, and returns the diagonal coordinates of a box that encloses the text

(textbox elist)

Arguments

elist

An entity definition list defining a text object, in the format returned by entget.

If fields that define text parameters other than the text itself are omitted from elist, the current (or default) settings are used.

The minimum list accepted by textbox is that of the text itself.

Return Values

A list of two points, if successful; otherwise nil.

The points returned by textbox describe the bounding box of the text object as if its insertion point is located at (0,0,0) and its rotation angle is 0. The first list returned is generally the point (0.0 0.0 0.0) unless the text object is oblique or vertical, or it contains letters with descenders (such as g and p). The value of the first point list specifies the offset from the text insertion point to the lower-left corner of the smallest rectangle enclosing the text. The second point list specifies the upper-right corner of that box. Regardless of the orientation of the text being measured, the point list returned always describes the lower-left and upper-right corners of this bounding box.

Examples

The following command supplies the text and accepts the current defaults for the remaining parameters:

Command: (textbox '((1 . "Hello world.")))

((0.000124126 -0.00823364 0.0) (3.03623 0.310345 0.0))

橄榄滋味

谢谢，只是这个宽度是根据当前默认字体，默认高度，默认宽度因子，默认斜度计算出来的，没办法，我只好事先设置系统默认值，可是默认宽度因子和斜度的变量是什么？

yuer0103

请ea斑竹帮你做个专用工具得了，他很热心的！

zhang8755

系统变量 textstyle中保存着当前字形
在通过下面的例子得到宽度因子和角度
Command: (tblsearch "style" "standard")

((0 . "STYLE") (2 . "STANDARD") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.3) (3 . "txt") (4 . ""))

点对表中41 对应着宽度因子，50对应角度，是弧度