怎么用lisp画文字的外接圆？

sunqv

怎么用lisp画文字的外接圆？

lee50310

1.繪出文字的外圍框
2.由外圍框的中心點至另一長邊的角點為半徑 R 及可求出文字的外接圓



;;;文字加範圍框
   來源: https://eakyle.blogspot.com/2018 ... t-geom-textbox.html

   (defun C:BoxText (/ tbox)
   (setq Tbox (acet-geom-textbox (entget (car (entsel))) 0))
   (command ".rectangle" (nth 0 Tbox) (nth 2 Tbox))
   (princ)
   );結束