(entmod el2)更新数据

ymcui

((-1 . <图元名: 7ec5e4d8>) (0 . DIMENSION) (330 . <图元名:
7efb8d08>) (5 . 1D663) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . DIE_Dim)
(100 . AcDbDimension) (2 . *D189) (10 3716.03 -574.116 0.0) (11 3738.42
-585.354 0.0) (12 0.0 0.0 0.0) (70 . 230) (1 . ) (71 . 5) (72 . 1) (41 . 1.0)
(42 . 20.2904) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3
. 毅正V3) (100 . AcDbOrdinateDimension) (13 3736.32 -568.091 0.0) (14 3738.92
-579.945 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))


((-1 . <图元名: 7ec5ef18>) (0 . DIMENSION) (330 . <图元名:
7efb8d08>) (5 . 1D8D3) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . DIE_Dim)
(100 . AcDbDimension) (2 . *D205) (10 3716.03 -574.116 0.0) (11 3706.38
-566.616 0.0) (12 0.0 0.0 0.0) (70 . 166) (1 . ) (71 . 5) (72 . 1) (41 . 1.0)
(42 . 4.51832) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3
. 毅正V3) (100 . AcDbOrdinateDimension) (13 3722.44 -569.597 0.0) (14 3710.74
-566.116 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))


(setq el2 (subst (list '14 (nth 1 (assoc '14 el1)) (+ (nth 2 (assoc '14 el1)) 5) (nth 3 (assoc '14 el1))) (assoc '14 el2) el2))
为何上面两个选择集没法用(entmod el2)更新数据
下面的可以更新

((-1 . <图元名: 7ec5e328>) (0 . DIMENSION) (330 . <图元名:
7efb8d08>) (5 . 1D615) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . DIE_Dim)
(100 . AcDbDimension) (2 . *D187) (10 3716.03 -574.116 0.0) (11 3728.83
-584.954 0.0) (12 0.0 0.0 0.0) (70 . 102) (1 . ) (71 . 5) (72 . 1) (41 . 1.0)
(42 . 12.8) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 .
毅正V3) (100 . AcDbOrdinateDimension) (13 3728.83 -570.116 0.0) (14 3720.03
-579.945 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))

自贡黄明儒

上面的不能更新，下面的可以。那么上面的和下面的有什么区别？是否图示说明

ymcui

自贡黄明儒 发表于 2015-5-6 10:17
上面的不能更新，下面的可以。那么上面的和下面的有什么区别？是否图示说明

(70 . 166)
(70 . 230)
(70 . 102)

ymcui

自贡黄明儒 发表于 2015-5-6 10:17
上面的不能更新，下面的可以。那么上面的和下面的有什么区别？是否图示说明

2. (defun c:cv ()
   
3.      (setq el1 (entget (car (entsel))))
   
4. (princ el1)
   
5. (princ)
   
6. )

(defun c:cv ()<br />      (setq el1 (entget (car (entsel))))<br /> (princ el1)<br /> (princ)<br /> )

ymcui

((-1 . <图元名: 7d299850>) (0 . DIMENSION) (330 . <图元名: 7d28ccf8>)
(5 . 1F2) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . dim) (100 .
AcDbDimension) (2 . *D39) (10 825.803 554.343 0.0) (11 814.44 568.607 0.0) (12
0.0 0.0 0.0) (70 . 166) (1 . ) (71 . 5) (72 . 1) (41 . 1.0) (42 . 12.7924) (52
. 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . 毅正V3) (100 .
AcDbOrdinateDimension) (13 837.118 567.135 0.0) (14 818.45 568.607 0.0) (15 0.0
0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))

我对了一下区别在70(70 . 166)

(cdr (assoc '70 el1))

ymcui

我是要移动尺寸文字的位置
(setq el2 (subst (list '14 (nth 1 (assoc '14 el1)) (+ (nth 2 (assoc '14 el1)) 5) (nth 3 (assoc '14 el1))) (assoc '14 el2) el2))

ymcui

(defun c:cv ()
     (setq el1 (entget (car (entsel))))
(princ (cdr (assoc '70 el1)))
(princ)
)

ivde

不如去看看 ActiveX 中 Dimension 对象的 TextPosition 属性

ymcui

自贡黄明儒 发表于 2015-5-6 10:17
上面的不能更新，下面的可以。那么上面的和下面的有什么区别？是否图示说明

当我手动移动过后它就和其它尺寸一样了230=>102

自贡黄明儒

ymcui 发表于 2015-5-6 13:39
当我手动移动过后它就和其它尺寸一样了230=>102

看不出你的动是什么作用。
你试试同时修改10组码试试。