[求助]██ LISP修改标注文字位置时遇到的奇怪问题 ██

santalin

我用群码修改法修改标注文字的位置时遇到的问题:
我想把标注文字全部改为置中,
以下一个标注是被移动标注文字过后的
从(70 . 160)可以看出来.想把(70 . 160)改为(70 . 32)
用群码修改法修改不了,在属性窗口里也修改不了,
难道是被锁定了吗,只读之类的
请高手帮忙看看怎么修改啊?
在CAD里也不能修改,如下图:
红圈内的内容无法修改,怎么回事啊?
其实就是,想把

2. ((-1 . <图元名: 7ed46868>) (0 . "DIMENSION") (330 . <图元名:
3. 7e8f4cb8>) (5 . "9D9AD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
4. "标注") (6 . "Continuous") (100 . "AcDbDimension") (2 . "*D81") (10 -91.8603
5. 65846.6 0.0) (11 -102.51 65850.0 0.0) (12 0.0 0.0 0.0) (70 . 160) (1 . "") (71
6. . 5) (72 . 1) (41 . 1.0) (42 . 23.84) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 .
7. 0.0) (210 0.0 0.0 1.0) (3 . "LSD1000") (100 . "AcDbAlignedDimension") (13
8. -115.7 65846.6 0.0) (14 -91.8603 65846.6 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0)
9. (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

((-1 . <图元名: 7ed46868>) (0 . "DIMENSION") (330 . <图元名: 7e8f4cb8>) (5 . "9D9AD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "标注") (6 . "Continuous") (100 . "AcDbDimension") (2 . "*D81") (10 -91.8603 65846.6 0.0) (11 -102.51 65850.0 0.0) (12 0.0 0.0 0.0) (70 . 160) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 23.84) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "LSD1000") (100 . "AcDbAlignedDimension") (13 -115.7 65846.6 0.0) (14 -91.8603 65846.6 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

改成:

2. ((-1 . <图元名: 7ed46868>) (0 . "DIMENSION") (330 . <图元名:
3. 7e8f4cb8>) (5 . "9D9AD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
4. "标注") (6 . "Continuous") (100 . "AcDbDimension") (2 . "*D81") (10 -91.8603
5. 65846.6 0.0) (11 -103.78 65847.9 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 .
6. 5) (72 . 1) (41 . 1.0) (42 . 23.84) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0)
7. (210 0.0 0.0 1.0) (3 . "LSD1000") (100 . "AcDbAlignedDimension") (13 -115.7
8. 65846.6 0.0) (14 -91.8603 65846.6 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 .
9. 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

((-1 . <图元名: 7ed46868>) (0 . "DIMENSION") (330 . <图元名: 7e8f4cb8>) (5 . "9D9AD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "标注") (6 . "Continuous") (100 . "AcDbDimension") (2 . "*D81") (10 -91.8603 65846.6 0.0) (11 -103.78 65847.9 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 23.84) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "LSD1000") (100 . "AcDbAlignedDimension") (13 -115.7 65846.6 0.0) (14 -91.8603 65846.6 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))

YDPLDL

这个是不能改的，它表示的是标注形式

santalin

我知道怎么改了

dabingrain

知道了也不说一下方法！

ly8zx2109

(vla-put-HorizontalTextPosition Object Value)
Object  Dim3PointAngular, DimAligned, DimAngular,
DimDiametric, DimRadial, DimRotated
  这个属性适用的对象。
Value acDimHorizontalJustification 列举; 读/写
  acHorzCentered: 文字放置在界线之间并沿着标注线向中心对齐
acFirstExtensionLine: 文字在第一条界线旁边
acSecondExtensionLine: 文字沿着第二条界线
acOverFirstExtension: 文字在上方并和第一条界线对齐
acOverSecondExtension: 文字在上方并和第二条界线对齐