liminnet 发表于 2009-7-7 11:34:00

qjchen 发表于 2009-7-7 13:24:00

:)

;;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);;箭头起点
)
)
      

liminnet 发表于 2009-7-7 14:25:00

qjchen 发表于 2009-7-7 17:24:00

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

(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 . "}")
      )
   )
)
)

liminnet 发表于 2009-7-7 17:35:00

页: [1]
查看完整版本: 跪求用ENTMAKE生成半径标注尺寸，谢谢