跪求用ENTMAKE生成半径标注尺寸，谢谢

qjchen

:)

3. ;;by qjchen
4. (entmake (list '(0 . "DIMENSION")
5.                '(100 . "AcDbEntity")
6.         '(100 . "AcDbDimension")
7.         '(10 0.0 0.0 0.0) ;;圆心
8.         '(11 110 110 0.0);;文字中心夹点
9.         '(70 . 36)        
10.         '(100 . "AcDbRadialDimension")
11.         '(15 100 100 0.0);;箭头起点
12.   )
13. )
14.       

;;by qjchen (entmake (list '(0 . "DIMENSION")                '(100 . "AcDbEntity")         '(100 . "AcDbDimension")         '(10 0.0 0.0 0.0) ;;圆心         '(11 110 110 0.0);;文字中心夹点         '(70 . 36)                 '(100 . "AcDbRadialDimension")         '(15 100 100 0.0);;箭头起点   ) )       

qjchen

这我也不是很熟悉
问了朋友，说可以如下, 1070
这个数，甚至可以到 15位 （不过随着 assoc 11的整数位数增大，小数位数也会相应减小，整数和小数的位数总和最多16位就是了。

3. (entmake (list
4.   '(0 . "DIMENSION")
5.   '(100 . "AcDbEntity")
6.   '(100 . "AcDbDimension")
7.          '(10 0.0 0.0 0.0)
8.          '(11 110 110 0.0)
9.          '(70 . 36)
10.          '(100 . "AcDbRadialDimension")
11.          '(15 100 100 0.0)
12.          '(-3 ("ACAD" (1000 . "DSTYLE")
13.            (1002 . "{")
14.            (1070 . 271)
15.            (1070 . 5)
16.            (1002 . "}")
17.         )
18.    )
19.   )
20. )

(entmake (list   '(0 . "DIMENSION")   '(100 . "AcDbEntity")   '(100 . "AcDbDimension")          '(10 0.0 0.0 0.0)          '(11 110 110 0.0)          '(70 . 36)          '(100 . "AcDbRadialDimension")          '(15 100 100 0.0)          '(-3 ("ACAD" (1000 . "DSTYLE")            (1002 . "{")            (1070 . 271)            (1070 . 5)            (1002 . "}")         )    )   ) )