怎样取得"DIMENSION"的子图元?

lazybug

怎样取得"DIMENSION"的子图元?

作用:用r14画的图,"DIMENSION"的组码42后面的值为-1.我想获得标注的数值,希望可以通过取"DIMENSION"子图元的内容来达到目的.

请高手指点一下!!

ljpnb

先将标注用"标注更新"处理一下

lazybug

dimstyle?

没用过这个命令。我不想改变标注内容及样式，只是想取得标注的数值，用这个可以做到么？另外，有很多标注时会不会运行时间很长？

xyp1964

(cdr (assoc 42 (entget (car (entsel)))))

ljpnb

xyp1964发表于2006-3-7 21:45:00(cdr (assoc 42 (entget (car (entsel)))))

xyp1964版，1楼已经说明了，42组码取出来是-1，你还用这格式啊！这是旧版本格式的关系。不知道为什么另存为新版本后也不行，42对应的还是-1，但是用“标注更新”处理一下，就可以取出实际的尺寸值了。不知道还有没有别的办法。

xyp1964

没有R14版，2004测试都没有问题！

谁能提供R14版dwg文件？

(vla-get-Measurement (vlax-ename->vla-object (car(entsel))))

ZZXXQQ

R14版的数据中没有42组码

((-1 . <Entity name: 3e00590>)
 (0 . "DIMENSION")
 (5 . "5A")
 (100 . "AcDbEntity")
 (67 . 0)
 (8 . "0")
 (100 . "AcDbDimension")
 (2 . "*D0")
 (10 10.9445 6.01676 0.0)
 (11 6.67071 6.01676 0.0)
 (12 0.0 0.0 0.0)
 (70 . 32)
 (1 . "")
 (52 . 0.0)
 (53 . 0.0)
 (54 . 0.0)
 (51 . 0.0)
 (210 0.0 0.0 1.0)
 (3 . "STANDARD")
 (100 . "AcDbAlignedDimension")
 (13 2.3969 5.20478 0.0)
 (14 10.9445 4.94494 0.0)
 (15 0.0 0.0 0.0)
 (16 0.0 0.0 0.0)
 (40 . 0.0)
 (50 . 0.0)
 (100 . "AcDbRotatedDimension"))

ljpnb

不好意思，XYP1964版，这个格式也是一样，取出来的值也是-1，我试过了。

ZZXXQQ

楼上老玩童：你发的是R14版文件吗？

qjcpj

......

(setq selc_dim_object (vlax-ename->vla-object selc_ys))
                    ;vlax-ename->vla-object 将实体转换为VLA象
   (vla-update selc_dim_object)   ;加上此句是更新AutoCAD 2000以下版本标注实体，否则运行该程
                    ;序时会出错,如果AutoCAD 2000以上版本标注实体则不需要加此句

......