我们一起学习lisp开发(第五辑)

yrgui

Visual LISP是AutoCAD第三代开发语言，它与AutoLISP完全兼容，相比之下功能增强许多，主要有ActiveX、反应器等。ActiveX接口使得VB可以操纵ACAD，这也就是AutoCAD VBA。如今扩展的LISP也有了一系列相应函数，如VL-开头的Visual LISP扩展函数、VLAX-开头的ActiveX函数、VLR-开头的反应器函数、最多而常用的是以VLA-开头的，它们多数在AutoLISP中能找到原型。（前面三类函数在开发人员帮助手册里可以找到，第四类多为"VLA-对应的AutoLISP函数的组合"）
对ActiveX 需要知道几个重要概念：
! _0 _. T- X; c3 `" r/ U1.对象，他是个广泛的概念，AutoCAD本身、图纸空间、图层、文本样式、一个图元等等都是对象，学习过程中可以理解到。
) t5 S3 Y# N1 D; A) }: S% r2.属性，对象具有属性，属性用于描述对象。比如一个圆具有半径、面积、线型等属性。
2 z1 o( B8 F8 u" P3 _3.方法，方法为对特定对象的操作，镜像（图元）、缩放（视图）、加载（应用程序）等等都叫方法。
4.集合，是对象的分组。
0 L- D' z+ ~. k( \! N8 g0 w0 }4 v' ]' Q5.事件，用于反应器。
8 G% B' y1 x1 u# P1 t下面从创建和修改基本对象练习开始：
;;;c:aline函数用Active方法绘制一条直线和一个圆
(defun c:aline(/ doc mspace uti p1 p2 line);定义命令aline
8 F9 k; f, O7 X: s5 N0 F   (vl-load-com);加载扩展函数
   ;获取AutoCAD应用程序的当前活动文档对象
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq mspace (vla-get-modelspace doc));获取模型空间对象
" u7 O8 v& o0 q- n5 w+ I) [9 J3 }   (setq uti (vla-get-utility doc));获取命令行实用程序对象
   (setq p1 (vla-getpoint uti nil"\n输入直线的起点: "));和getpoint类似，uti(命令行)
$ c/ g9 l8 ~. a7 ]6 f6 i8 K  R7 s9 b   (setq p2 (vla-getpoint uti p1 "\n输入直线的终点: "))
* ~& C" o: P/ z1 f& `& h4 a0 K; K   (setq line (vla-addline mspace p1 p2));在模型空间中添加直线
3 G: M, j  D. u0 Z, f   (vla-addcircle mspace p1 (vla-get-Length line));以p1为圆心，line长为半径画圆
   (princ)
)
4 A+ d) \  J; R7 T* H% L3 X;;;c:alt函数用Active方法对一个圆进行操作
8 L% s+ H* {% Y! A& F(defun c:alt(/ doc mspace uti e1 e2 dis color);定义命令alt
   (vl-load-com);加载扩展函数
5 {! e+ G7 [: b4 k, P2 G: T  v6 Y   ;获取AutoCAD应用程序的当前活动文档对象
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
! S- V7 `: R- X. E8 ^0 A   (setq mspace (vla-get-modelspace doc));获取模型空间对象
   (setq uti (vla-get-utility doc));获取命令行实用程序对象
   (vla-getentity uti 'e1 'e2 "\n选择一个圆: ");参数带回返回值(特别)，类似于entsel
   (setq dis (vla-getdistance uti nil "\n输入圆的新周长: "));相当于getreal
   (setq color (vla-getinteger uti "\n输入新的颜色号: "));相当于getint
   ;(vlax-dump-object e1 t)这一句用于查询vla对象(e1)的属性和可用方法,下面的三种方法都支持
  _- j. X% H& N4 B) K   (vla-put-Circumference e1 dis);e1是vla-getentity返回的圆对象，vla-put-area对它赋新值
8 R9 Z5 E5 L0 G/ n% p; A   (vla-put-color e1 color);更改对象e1颜色
: r/ F5 k: U) {+ h# F; a   (vla-Arrayrectangular e1 10 8 1 2 2 0);矩形阵列e1对象
)
: \$ f0 U+ N$ l  P: C" ^( s! W注意：程序里提到的对象都是VLA对象，和图元对象是不兼容的，这里用的都是纯VLISP函数语法，一般习惯AutoLISP的会将两者结合转换使用，比如：
(setq e1 (car (entsel)));点选图元，图元名给e1
(setq v_e1 (vlax-ename->vla-object e1));将e1转换为VLA对象（转换回来用vlax-vla-object->ename)
2 }3 r5 L; p  z
4 Q. r6 X$ z, x$ D- |) Y3 I(vla-getentity uti 'e1 'e2 "\n选择一个圆: ");参数带回返回值(特别)，类似于entsel
上面这一句比较特别，一些像vla-getentity这样的函数能自带参数返回值，无须用setq，它将vla图元名直接传给e1，拾取点直接传给e2,后面直接用就是了，这一点我喜欢。

3 D! E) e6 l4 F* ]3 s
* M5 S# _6 F7 X0 B; l+ l1 m
; d' g1 A( s$ v8 `2 E

[ 本帖最后由 yrgui 于 2008-10-13 17:31 编辑 ]

baller

占个沙发

xuehong51

越来越深了，不好消化

jxlsp

ActiveX比较难了.

kent1968

越来越深了越来越深了

yrgui

呵呵，是有点，慢慢来嘛，反正这帖子一直都在。我会考虑贴几辑补充的

xuehong51

楼主帮看看这个
% I6 U2 m$ X3 t! p& v
http://www.askcad.com/bbs/thread-25712-1-1.html

jiaochen1988

看来知识是越来有深度啦，好好学习啊

rioy

好深奥呀，不懂

wylong2009

知识是越来有深度啦，好好学习

刹那惊鸿

很漂亮 很漂亮 很漂亮