[求助]：如何用entmake生成尺寸标注?

浪奔

如何用entmake生成尺寸标注?

在当前图形中通过entget获得一个尺寸标注的数据,
然后在另一图形中通过entmake此生成尺寸标注,

(EntMake '((0 . "DIMENSION") (102 . "{ACAD_XDICTIONARY") (102 . "}") (102 . "{ACAD_REACTORS") (102 . "}") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension") (2 . "*D11") (10 3731.98 -5975.37 0.0) (11 3729.9 -5943.69 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 31.6814) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "ISO-25") (100 . "AcDbAlignedDimension") (13 3708.26 -5912.01 0.0) (14 3708.26 -5975.37 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 1.5708) (100 . "AcDbRotatedDimension")))

结果以失败告终.

????

taner

问题应该在（1.　＂＂），应该先用vla-get-measurement 求得＂＂的实际值。

雪山飞狐(lzh)

组码2去掉

浪奔

最初由 lzh741206 发布
[B]组码2去掉 [/B]

怎样去掉??

用ssdel可以吗?

aeo

vla-copyobjects

cy956

dxf11是文字位置，你不要定，entmake时会自动按cad的设定生成；
如果已定义而且不在设定的位置上，dxf70要加128；
具体的你看看dimension实体的帮助。
即dxf11改为(11 0 0 0) 或者dxf70改为 (70 . 160) 即可

_$

((0 . "DIMENSION") (102 . "{ACAD_XDICTIONARY") (102 . "}") (102 . "{ACAD_REACTORS") (102 . "}") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension") (10 3731.98 -5975.37 0.0) (11 0 0 0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 31.6814) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "d100") (100 . "AcDbAlignedDimension") (13 3708.26 -5912.01 0.0) (14 3708.26 -5975.37 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 1.5708) (100 . "AcDbRotatedDimension"))
_$

浪奔

说到底还是要替换指定的组码,

也就是将2组码替换为空,同时将11组码替换为(11 0 0 0)或将7组码替换为(70 . 160)

但我不知道什么函数可以实现,请各位指点一下

cy956

有没有dxf2没关系，entmake成功会自动赋予新的图元柄；
  
我们通常在cad中标注样式中都是这样默认的——文字在横线的上中处；
  
如果你默认这个位置，你可以定(11 0 0 0)，entmake成功会自动赋予新dxf11值；
  
如果你要求的标注文字不在默认位置，比如你上面定的(11 3729.9 -5943.69 0.0)，
你就还要改dxf70，即加上128，32＋128＝160，entmake才能成功；

你看帮助就明白了：

dxf70        标注类型：
整数值 0 - 6 表示标注类型。
位值 32、64 和 128 则添加到整数值后（在 R13 和更高版本中设置值 32）。
0 = 转角标注、水平标注或垂直标注；1 = 对齐标注；
2 = 角度标注；3 = 直径标注；4 = 半径标注；
5 = 角度三点标注；6 = 坐标标注；
32 = 表示块引用（组码 2）只被此标注引用；
64 = 坐标标注类型，此位值（位 7）只与类型 6 一起使用，如果设置，坐标类型为 X 型，否则为 Y 型；
★★★128 = 如果标注文本位于用户指定的位置而不是缺省位置，此位值（位 7）将添加到其他的组码 70 的值中。

浪奔

8楼cy956版主可能没理解我的意图,
其实我是想通过entget 得到DIMENSION的数据,
然后在以后需要时在其他图中entmake出来.

3楼去掉dxf2的方法我测试过,是可以的.
不过很惭愧,我是用手工去掉dxf2的.
用lisp有什么方法可以去掉列表中的dxf2吗??

cy956

想当然了，抱歉，以为是你的11错的原因。


(defun list_del_dxfdb0(b dxf0)
  (setq a(car (member (assoc dxf0 b) b) )
        b1(append (reverse (cdr (member a (reverse b)))) (cdr (member a b) )))
)

(list_del_dxfdb0 b 2)

浪奔

entmake 尺寸标注(dimension)已解决

再请教entmake 标注样式(dimstyle)??

(entmake '((0 . "DIMSTYLE") (2 . "STANDARD") (70 . 0) (3 . "") (4 . "") (5 . "") (6 . "")(7 . "") (40 . 1.0) (41 . 0.18) (42 . 0.0625) (43 . 0.38) (44 . 0.18) (45 . 0.0) (46 . 0.0) (47 . 0.0) (48 . 0.0) (140 . 0.18) (141 . 0.09) (142 . 0.0)(143 . 25.4) (144 . 1.0) (145 . 0.0) (146 . 1.0) (147 . 0.09) (71 . 0) (72 . 0) (73 . 1) (74 . 1) (75 . 0) (76 . 0) (77 . 0) (78 . 0) (170 . 0) (171 . 2) (172 . 0) (173 . 0) (174 . 0) (175 . 0) (176 . 0) (177 . 0) (178 . 0) (270 . 2) (271 . 4) (272 . 4) (273 . 2) (274 . 2) (340 . <图元名: 7ef6d170>) (275 . 0) (280 . 0) (281 . 0) (282 . 0) (283 . 1) (284 . 0) (285 . 0) (286 . 0) (287 . 3) (288 . 0)))

结果失败!!

xdto

<图元名: 7ef6d170> ?????

YueFeng

浪奔 发表于 2008-1-21 22:21
entmake 尺寸标注(dimension)已解决

再请教entmake 标注样式(dimstyle)??

非实体对象，用ENTMAKEX而非ENTMAKE