10_在AutoLISP中使用ActiveX对象.pptVIP

10.3.2 将Visual Basic环境下的语句改写为AutoLISP表达式 先分析Visual Basic环境下的语句： RetVal = object.AddLine(StartPoint,EndPoint) RetVal是返回值，object是AddLine的上一级对象，StartPoint和EndPoint是AddLine函数的参数。 在VLISP ActiveX环境下，模型空间是直线对象的上一级对象，模型空间对象作为AddLine的第一个参数，StartPoint和EndPoint作为AddLine 的其余参数。返回值赋给变量myline。 valx-3d-point是VLISP ActiveX的函数，其功能是将AutoLISP的3维点转换为ActiveX要求的变体类型的数据。 采用AutoLISP表达式为： (setq myline(vla-addline myms (vlax-3d-point (10 20)) (vlax-3d-point (80 30)))) 其中myms是模型空间对象的指针，获取该指针的表达式如下： (setq myacad (vlax-get-acad-object)) (setq mydoc(vla-get-ActiveDocument myacad)) (setq myms(vla-get