文字对正方式 entmakex 如何创建

暗夜贵族

        (entmakex (list
                        (cons 0 "TEXT")
                        (cons 100 "AcDbEntity")
                        (cons 62 7);提示框字体颜色
                        (cons 100 "AcDbText")
                        (cons 72 4)
                        (cons 11 pt)
                        (cons 40 h)
                        (cons 41 WID)
                        (cons 1 txt)
                        (cons 7 style)
                        (cons 50 ang)
                )
        )


(cons 72 4)
(cons 11 pt)
这两对该如何修改？

edata

文字组码
组码	说明
100	子类标记 (AcDbText)
39	厚度（可选；默认值 = 0）
10	第一对齐点（在 OCS 中） DXF：X 值；APP：三维点
20, 30	DXF：第一对齐点的 Y 值和 Z 值（在 OCS 中）
40	文字高度
1	默认值（字符串本身）
50	文字旋转角度（可选；默认值 = 0）
41	X 相对缩放比例宽度（可选；默认值 = 1） 使用拟合类型的文字时，该值也将进行调整。
51	倾斜角（可选；默认值 = 0）
7	文字样式名（可选；默认值 = 标准）
71	文字生成标志（可选；默认值 = 0）： 2 = 文字反向（在 X 轴方向镜像） 4 = 文字倒置（在 Y 轴方向镜像)
72	文字水平对正类型（可选；默认值 = 0）整数代码（非按位编码） 0 = 左对正；1 = 居中对正；2 = 右对正 3 = 对齐（如果垂直对齐 = 0） 4 = 中间（如果垂直对齐 = 0） 5 = 拟合（如果垂直对齐 = 0） 详细信息请参见组 72 和 73 整数代码表
11	第二对齐点（在 OCS 中）（可选） DXF：X 值；APP：三维点 只有当 72 或 73 组的值非零时，该值才有意义（如果对正不是基线对正/左对正）
21, 31	DXF：第二对齐点的 Y 值和 Z 值（在 OCS 中）（可选）
210	拉伸方向（可选；默认值 = 0, 0, 1） DXF：X 值；APP：三维矢量
220, 230	DXF：拉伸方向的 Y 值和 Z 值（可选）
100	子类标记 (AcDbText)
73	文字垂直对正类型（可选；默认值 = 0）：整数代码（非按位编码）： 0 = 基线对正；1 = 底端对正；2 = 居中对正；3 = 顶端对正 详细信息请参见组 72 和 73 整数代码表

下表详细说明了组码 72（水平对齐）和组码 73（垂直对齐）。

组 72 和 73 整数代码
组 73	组 72 0	1	2	3	4	5
3（顶端对正）	左上	中上	右上
2（居中对正）	左中	正中	右中
1（底端对正）	左下	中下	右下
0（基线对正）	左	中心	右	对齐	中间	拟合

如果组 72 和/或 74 值非零，则第一对齐点值被忽略，并且 AutoCAD 根据第二对齐点和文字字符串本身的长度和高度（在应用文字样式之后）计算新值。如果 72 和 74 值为零或缺失，则第二对齐点将没有意义。

暗夜贵族

edata 发表于 2015-7-23 17:53
下表详细说明了组码 72（水平对齐）和组码 73（垂直对齐）。
如果组 72 和/或 74 值非零，则第一对齐 ...

非常感谢

alexmai

发现组码  51   倾斜角（可选；默认值 = 0） 设置后没有反应?

(defun c:std ()
    (entmakex (list '(0 . "STYLE")
                 '(100 . "AcDbSymbolTableRecord")
                 '(100 . "AcDbTextStyleTableRecord")
                  (cons 2 "_DIM");;字体文字
                 '(70 . 0)
                 (cons 40 2.2);;文字高度
                 (cons 41 0.7);;文字高度宽度
                 (cons 51 20);;文字倾斜角度
                 '(3 . "archs.shx")
                 '(4 . "Hztxt.shx")
            )
    )
  (princ)
)

YueFeng

alexmai 发表于 2021-10-3 13:00
发现组码  51   倾斜角（可选；默认值 = 0） 设置后没有反应?

(defun c:std ()

50 倾斜角度