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

entmake 使用样式替换标注问题

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 static/image/common/back.gif
组码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 )))
这样为什么还是不行，真的没法子了
页: [1]
查看完整版本: entmake 使用样式替换标注问题