如何用LISP编写适合自己的绘图程序

在绘图时，你一定会为专业的重复工作而痛苦。其实没必要这样。AUTOCAD提供了个易懂的语言：AUTOLISP。你完全可以利用它来编写适合自己的绘图程序。

首先，我们先来看一下图形每个元素的构成：
比如说文字a：
((-1 . <Entity name: 38d0500>) (0 . "TEXT") (5 . "20") (100 .
"AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbText") (10 172.813 136.27 0.0) (40
. 2.5) (1 . "a") (50 . 1.5708) (41 . 0.8) (51 . 0.0) (7 . "STANDARD") (71 . 0)
(72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
其中对我们比较有用的是：
文字起始点：(10 172.813 136.27 0.0)
文字高度：(40 . 2.5)
文字内容：(1 . "a")
文字角度：(50 . 1.5708)
文字高宽比：(41 . 0.8)
文字字体：(7 . "STANDARD")
如何取得这些东东呢？
给大家一个小程序：
(DEFUN C:QQ (/ a)(SETQ A (ENTGET (CAR (ENTSEL)))))
以后执行QQ就可以查询到上面的那些东东了！