请问在lisp中如何取得文字的长度和高度？

qijiun

DIMENSION,TEXT,MTEXT,ATTDEF


请问这几种文字在CAD中的长度和高度是如何取得的呢？

lzy9788

TEXT,MTEXT可用组码1提取文字内容，再用STRLEN求得文字长度.


字高组码为40

qijiun

组码？◎－◎


对不起哈，我刚学lisp


能给个例子吗？


谢谢

lzfat

(setq ent (car (nentsel "\n请选择文本:")))


(setq zf (cdr (assoc 1 (entget (ent))))); 提取文本得字符


(setq zg (cdr (accos 40 (entget (ent)))));提取字符得字高


(setq len (strlen zf));文本字符串的长度


如果是想计算出字符长度（多少毫米）的话，同理，讲字符的宽度系数提取出来，乘以字高与字符个数几个。

shun

no

无痕

有空问不如看看cad帮助，有dxf的详细介绍

ljcgq

属性定义组码
组码	说明
100	子类标记 (AcDbText)
39	厚度（可选；默认值 = 0）
10	第一对齐点（在 OCS 中） DXF：X 值；APP：三维点
20, 30	DXF：文字起点的 Y 值和 Z 值（在 OCS 中）
40	文字高度
1	默认值（字符串）
100	子类标记 (AcDbAttributeDefinition)
50	文字旋转角度（可选；默认值 = 0）
41	X 相对缩放比例（宽度）（可选；默认值 = 1）。使用拟合类型的文字时，该值也将进行调整
51	倾斜角（可选；默认值 = 0）
7	文字样式名（可选；默认值 = 标准）
71	文字生成标志（可选；默认值 = 0）；参见 MSITStore:C:\sjc\ljc.lsp\acad_dxf.chm::/dxf_0641.html#895924" target="_blank" >TEXT 组码
72	文字水平对正类型（可选；默认值 = 0）；参见 MSITStore:C:\sjc\ljc.lsp\acad_dxf.chm::/dxf_0641.html#895924" target="_blank" >TEXT 组码
11	第二对齐点（在 OCS 中）（可选） DXF：X 值；APP：三维点 仅当 72 或 74 组值非零时才有意义
21, 31	DXF：第二对齐点的 Y 值和 Z 值（在 OCS 中）（可选）
210	拉伸方向（可选；默认值 = 0, 0, 1） DXF：X 值；APP：三维矢量
220, 230	DXF：拉伸方向的 Y 值和 Z 值
100	子类标记 (AcDbAttributeDefinition)
3	提示字符串
2	标记字符串
70	属性标志： 1 = 属性不可见（不出现） 2 = 固定属性 4 = 输入属性时要求进行验证 8 = 属性为预置（插入时无提示）
73	字段长度（可选；默认值 = 0）（当前未使用）
74	文字垂直对正类型（可选；默认值 = 0）；参见 MSITStore:C:\sjc\ljc.lsp\acad_dxf.chm::/dxf_0641.html#895924" target="_blank" >TEXT 中的组码 73

iamhuangjinming

非常有用,学习学习学习