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