-
autolisp程序表現還是不錯的，生成圖元的話，使用entmake函數簡單。
-
文字居中的話，寫一個文字，并居中，entget函數查看，代碼72為4，那么簡單的可以寫出文字。
-
寫文字居中代碼如下：
-
- (setq #k "文字內容")
(setq H 200);文字高度
(setq L 0.7);文字寬度因子
(setq ang1 0);文字角度【弧度】
(setq pt '(0 0));文字坐標
(entmake (list '(0 . "TEXT") (cons 1 #k) (cons 40 H) (cons 41 L) (cons 10 pt) (cons 51 ang1) '(72 . 4) (cons 11 pt)))
- (setq #k "文字內容")