-
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 "文字內容")