VisualLISP入门课件..pptVIP

3. 用函数调用、查询反应器 VLISP还提供了可在应用程序或控制台提示处查看反应器定义的函数： （1）vlr-type函数返回指定反应器的类型，例如： (vlr-type circleReactor) ；返回 :VLR-Object-Reactor（对象反应器） （2）vlr-current-reaction-name 函数返回当前反应器触发回调函数的事件名称。例如： (vlr-current-reaction-name) ；返回nil （3）vlr-data 返回附着到反应器的特定应用程序数据，可用该数据区分链接在同一个对象上的多个反应器。例如： (vlr-data circleReactor) ；返回 Circle Reactor“ （4）vlr-owners函数返回向某对象反应器发出通报的AutoCAD图形中的对象（反应器所有者）列表，下述函数调用将列出 circleReactor 的所有者： (vlr-owners circleReactor) ；返回 (#VLA-OBJECT IAcadCircle 03ad077c) （5）vlr-reactions函数返回指定反应器的回调条件－回调函数列表，下例将返回 circleReactor 的相关信息。例如： (vlr-reactions circleReactor) ；返回 ((:VLR-modified . PRINT-RADIUS)) 11.4.2 修改反应器 1 添加或替换反应器的回调函数 通过函数vlr-reaction-set可以添加或替换反应器中的一个回调函数。该函数的调用格式如下： (vlr-reaction-set reactor event function) 参数reactor为反应器 对象。event为符号，表示该反应器类型可用的事件之一。Function为要添加或替换的AutoLISP函数名。返回值未确定。 例如，下面的命令使反应器circleReactor在修改对象时调用print-area函数： (vlr-reaction-set circleReactor :vlr-modified print-area) ；返回PRINT-AREA 2. 修改与反应器相关联的数据 通过函数vlr-data-set可以修改与反应器相关联的数据。该函数的调用格式如下： (vlr-data-set obj data) 参数obj为反应器对象，表示要修改数据的反应器对象。data为新数据。返回值为参数data。 例如，查看附着到反应器circleReactor的数据值： (vlr-data circleReactor) 返回Circle Reactor 用字符串Circle Area Reactor替换反应器circleReactor的原有数据Circle Reactor： (vlr-data-set circleReactor Circle Area Reactor) ;返回Circle Area Reactor 验证是否有了改变： (vlr-data circleReactor) ;返回Circle Area Reactor 注意，应小心使用vlr-data-set函数，以免构成循环结构。 3. 将一个数据库对象添加到反应器的所有者列表内 通过函数vlr-owner-add可以将一个数据库对象添加到指定反应器的所有者列表内。该函数的调用格式如下： (vlr-owner-add reactor owner) 参数reactor为反应器对象。owner为要添加到反应器所有者列表中的VLA对象。返回值为已添加了反应器的VLA对象。 例如，在下例中，名为archie的圆弧对象被添加到反应器circleReactor的所有者列表中： (vlr-owner-add circleReactor archie) ；返回 #vla-OBJECT IAcadArc 03ad0bcc 可通过检验该反应器来验证这点：更新反应器 circleReactor 的检验窗口，用鼠标双击检验窗口的{Owners}开头的条目，将弹出图11－3所示的反应器所有者检验窗口。 图11－3反应器所有者的检验窗口 4. 从反应器所有者列表中删除某所有者对象 通过函数vlr-owner-remove可以从反应器所有者列表中删除某所有者对象。该函数的调用格式如下： (vlr-owner-remove reactor owner) 参数reactor为反应器 对象。owner为要从反应器所有者列表中删除的VLA对象。返回值为被删除的VLA对象。例如： (vlr-owner-rem