分享一个曲线元素值标注函数

13648893846

如题
;;;(setq pt5 (getpoint "\n 请指定绘制标注点"))
;创建曲线元素标注
;;;(LC-MAK-QXBZ-TEXT (setq pt5 (getpoint "\n 请指定绘制标注点")))
(defun LC-MAK-QXBZ-TEXT (pt5 / pt6 pt7 pt8 pt9 pt10
                         pt11 pt12 pt13 pt14 pt15 pt16
                         xA xR xT xL xE)
  (setq        pt6 (polar pt5 0 14.233)
        pt7 (polar pt6 1.5708 13.562)
        pt8 (polar pt5 1.5708 13.562)
        pt9 (polar pt5 1.5708 2.625)
        pt10 (polar pt6 1.5708 2.625)
        pt11 (polar pt5 1.5708 5.25)
        pt12 (polar pt6 1.5708 5.25)
        pt13 (polar pt5 1.5708 7.875)
        pt14 (polar pt6 1.5708 7.875)
        pt15 (polar pt5 1.5708 10.5)
        pt16 (polar pt6 1.5708 10.5))
(setq        xA  (strcat "a=" (rtos 107.5232 2 4))
        xR  (strcat "R= " (rtos 15 2 3))
        xT  (strcat "T= " (rtos 20.599 2 3))
        xL  (strcat "L= " (rtos 28.242 2 3))
        xE  (strcat "E= " (rtos 10.481 2 3))
        )        
  (entmake (list '(0 . "LWPOLYLINE");创建多段线
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                  (cons 90 4)
                  (cons 10 pt5)
                  (cons 10 pt6)
                  (cons 10 pt7)
                  (cons 70 1)
                  (cons 10 pt8)
                  (cons 8 "曲线元素标注")
                  (cons 62 6)
           )
  )
  (entmake (list '(0 . "LWPOLYLINE");创建多段线
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                  (cons 90 2)
                  (cons 10 pt9)
                  (cons 10 pt10)
                  (cons 8 "曲线元素标注")
                  (cons 62 6)
           )
  )
  (entmake (list '(0 . "LWPOLYLINE");创建多段线
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                  (cons 90 2)
                  (cons 10 pt11)
                  (cons 10 pt12)
                  (cons 8 "曲线元素标注")
                  (cons 62 6)
           )
  )
  (entmake (list '(0 . "LWPOLYLINE");创建多段线
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                  (cons 90 2)
                  (cons 10 pt13)
                  (cons 10 pt14)
                  (cons 8 "曲线元素标注")
                  (cons 62 6)
           )
  )
  (entmake (list '(0 . "LWPOLYLINE");创建多段线
                 '(100 . "AcDbEntity")
                 '(100 . "AcDbPolyline")
                  (cons 90 2)
                  (cons 10 pt15)
                  (cons 10 pt16)
                  (cons 8 "曲线元素标注")
                  (cons 62 6)
           )
  )
   (entmake (list '(0 . "TEXT");创建外距E值字体
                  '(102 . "{ACAD_REACTORS")
                  (cons 1 xE)
                  (cons 10 (polar (polar pt5 0 1.295) 1.5708 0.562))
                  (cons 40 1.5)
                  (cons 62 6)
                  (cons 8 "标注")))
   (entmake (list '(0 . "TEXT");创建弧长L值字体
                  '(102 . "{ACAD_REACTORS")
                  (cons 1 xL)
                  (cons 10 (polar (polar pt5 0 1.295) 1.5708 3.062))
                  (cons 40 1.5)
                  (cons 62 6)
                  (cons 8 "标注")))
  (entmake (list '(0 . "TEXT");创建切线T值字体
                 '(102 . "{ACAD_REACTORS")
                  (cons 1 xT)
                  (cons 10 (polar (polar pt5 0 1.295) 1.5708 5.69))
                  (cons 40 1.5)
                  (cons 62 6)
                  (cons 8 "标注")))
  (entmake (list '(0 . "TEXT");创建半径R值字体
                 '(102 . "{ACAD_REACTORS")
                  (cons 1 xR)
                  (cons 10 (polar (polar pt5 0 1.295) 1.5708 8.437))
                  (cons 40 1.5)
                  (cons 62 6)
                  (cons 8 "标注")))
  (entmake (list '(0 . "TEXT");创建转角a值字体
                 '(102 . "{ACAD_REACTORS")
                  (cons 1 xa)
                  (cons 10 (polar (polar pt5 0 0.331) 1.5708 11.281))
                  (cons 40 1.5)
                  (cons 62 6)
                  (cons 8 "标注")))

  (princ)
  )

song宋_74729

命令 是甚么

技术工作室

谢谢分享学习了