如何用LISP编写适合自己的绘图程序
liyusshn
liyusshn Lv.3
2005年08月23日 17:01:25
只看楼主

在绘图时,你一定会为专业的重复工作而痛苦。其实没必要这样。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

在绘图时,你一定会为专业的重复工作而痛苦。其实没必要这样。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就可以查询到上面的那些东东了!
免费打赏

相关推荐

APP内打开