sunqv 发表于 2021-7-7 12:19:12

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

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

lee50310 发表于 2021-7-7 19:31:55



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



;;;文字加範圍框
   來源: https://eakyle.blogspot.com/2018/08/autolisp-acet-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)
   );結束






页: [1]
查看完整版本: 怎么用lisp画文字的外接圆？