entmake 使用样式替换标注问题

易云网络 · 发表于 2014-12-11 23:52:17

entmake 直接用的是标注样式标注的，直接跳过样式替换了，搞了好久都搞不定
师兄们帮我看看

((-1 . <图元名: 7ff7f4b05db0>) (0 . DIMENSION) (5 . 253) (102 .
{ACAD_XDICTIONARY) (360 . <图元名: 7ff7f4b05e60>) (102 . }) (102 . {ACAD_REACTORS)
(330 . <图元名: 7ff7f4b05ee0>) (102 . }) (330 . <图元名: 7ff7f4b039f0>) (100 .
AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbDimension) (280 . 0) (2 .
*D6) (10 2322.89 1224.04 0.0) (11 2349.0 1229.1 0.0) (12 0.0 0.0 0.0) (70 . 36)
(1 . ) (71 . 5) (72 . 1) (41 . 1.0) (42 . 0.1) (73 . 0) (74 . 0) (75 . 0) (52 .
0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . lgbz) (100 .
AcDbRadialDimension) (13 0.0 0.0 0.0) (14 0.0 0.0 0.0) (15 2322.99 1224.06 0.0)
(16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (-3 (ACAD (1000 . DSTYLE) (1002 . {)
(1070 . 40) (1040 . 6.0) (1070 . 288) (1070 . 1) (1002 . }))))

(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
(cons 10 pt) (cons 11 pt3 ) '(70 . 164) '(100 . "AcDbRadialDimension")

'(1001 . 'ACAD) '(1000 ."DSTYLE")
'(1002 . "{") '(1070 . 40) '(1040 . 1.0) '(1070 . 288) '(1070 . 1) '(1002 . "}")

(cons 15 PT2)))

易云网络 · 发表于 2014-12-14 21:32:46

本帖最后由易云网络于 2014-12-14 21:33 编辑

自己搞定了，留给跟我一样的新手

(setq KZSJ (list '("ACAD" (1000 . "DSTYLE") (1002 . "{")
(1070 . 40) (1040 . 5.0) ;;标注全局比例5倍
(1070 . 41) (1040 . 0.04) ;;箭头大小
(1070 . 141) (1040 . 0.02) ;;圆心大小
(1070 . 140) (1040 . 2.00) ;;文字大小
(1070 . 178) (1070 . 3) 　　;;文字颜色
(1070 . 176) (1070 . 1) 　　;;尺寸线色
(1070 . 74) (1070 . 0) ;控制标注文字在尺寸界线外的位置外部水平
(1070 . 271) (1070 . 3) ;标注的主单位设置显示时的小数位数
(1002 . "}"))
) )
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
(cons 10 pt) (cons 11 pt3 ) '(70 . 164) '(100 . "AcDbRadialDimension")
(cons 15 PT2)(cons -3 KZSJ )))
)

易云网络 · 发表于 2014-12-12 16:42:29

啥情况呀，怎么搞呀

鱼与熊掌 · 发表于 2014-12-13 15:22:46

组码 3..................................

易云网络 · 发表于 2014-12-13 19:24:24

鱼与熊掌发表于 2014-12-13 15:22
组码 3..................................

(setq KZSJ (list  'ACAD '(1000 . DSTYLE) '(1002 . {) '(1070 . 40) '(1040 . 1.0) '(1070 . 288) '(1070 . 1) '(1002 . })))

  (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
(cons 10 pt) (cons 11 pt3 )  '(70 . 164)  '(100 . "AcDbRadialDimension")
(cons 15 PT2) (cons -3 kzsj )))
这样为什么还是不行，真的没法子了

账号		自动登录	找回密码
密码			注册

[已解答] entmake 使用样式替换标注问题

浏览过的版块