AutoLISP acet-geom-textbox 取得文字範圍的點座標

如何取得單行文字(TEXT)或多行文字(MTEXT)的文字範圍，
可以利用acet-geom-textbox這個指令，
利用這個指令可以取得該文字的範圍四周的四個點座標。

(acet-geom-textbox [圖元串列] 倍數)

回傳：
點座標串列
依序是左下點-右下點-右上點-左上點

((0.0 -51.7053 0.0) (140.859 -51.7053 0.0) (140.859 0.0 0.0) (0.0 0.0 0.0))

文字範圍框及所取得4個點

範例1：

(vl-load-com)
(acet-geom-textbox (entget (car (entsel "\n 選擇一個物件："))) 0)

範例2：

(vl-load-com)
(acet-geom-textbox (entget (Ssname (ssget "L") 0)) 0)

範例3：

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

相關連結

AutoCAD 如何載入LISP