[原创] 变Vlisp为函数形式 提高开发效率
<p>我们在写vlisp的时候</p><p>往往要写很多代码来实现一个方法或者得到一个属性</p><p>例如:新建立一个名为"new"的图层</p><p>(Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'Add "new" )</p><p>其实若定义函数则可以简化</p><p><font color="#ff0000">(setq App (Vlax-Get-Acad-Object))<br/>(setq Adoc (Vlax-Get App 'ActiveDocument))<br/>(setq Layers (Vlax-Get Adoc 'Layers))</font></p><p><font color="#ff0000">(defun AddLayer (LayerName)<br/> (Vlax-Invoke-Method Layers 'Add LayerName)<br/>)</font></p><p><font color="#ff0000">(AddLayer "new");我只想要这句话</font></p><p>这样我就可以用(AddLayer "new")建立图层了</p><p>但是我更希望这个AddLayer函数是已经存在CAD里面的:</p><p>若能定义全部的vlisp方法为函数 属性为变量</p><p>则开发起来就不再需要VLA- 函数了 直接就像普通的函数那样使用</p><p>vlisp立刻就简单多了吧 呵呵....</p><p>----------------------------</p><p>观众A: 这个也算是想法? 我们平时也是这样写的!</p><p>观众B: 先不说定义全部的vlisp要多大的工作量,一旦加载数千个变量和函数会影响程序效率的!</p><p>观众C: 而且有很多重名的属性和方法,定义这些变量和函数我平时写会冲突的.</p><p>观众D : (手里已经准备好了砖头...)</p><p>-----------------------------</p><p>慢! 我还没说完呢!</p><p>1 既然函数多,就找方法来简化,可以让程序自己分析完成函数定义(临时生成函数).</p><p>2 自己定义函数变量当然可以加前缀了,重复的函数也加特殊前缀区分(这个就自己看着办了)</p><p>3 不必加载所有的函数和变量,我需要什么就加载进来什么,这样不影响效率(类似C语言里面的#include)</p><p>程序简化如下:</p><p>(include "O_APP")</p><p>(include "O_ADOC")</p><p>(include "O_Layers")</p><p>(include "M_AddLayer")</p><p>(M_AddLayer "new")</p><p>这样include函数将帮我自动分析后面的参数并自动生成加载下面几句话(其他的不加载)</p><p>(setq O_App (Vlax-Get-Acad-Object))<br/>(setq O_Adoc (Vlax-Get O_App 'ActiveDocument))<br/>(setq O_Layers (Vlax-Get O_Adoc 'Layers))</p><p>(defun M_AddLayer (LayerName)<br/> (Vlax-Invoke-Method O_Layers 'Add LayerName)<br/>)</p><p>如此对整个程序的效率就没有影响了 而我的新程序将直接得到3个变量和1个函数!</p><p>其实最终我的代码可以简化如下:</p><p>(include "M_AddLayer")<br/>(M_AddLayer "new")</p><p>此2句代码即可自动实现完全等价于上面红色部分的代码(包括生成3个对象变量和一个函数)</p><p>这些都是完全可以实现的.</p> <p>友情提示 自己思考:</p><p>简化开发代码 /= 降低执行效率</p> 呵呵，灵活之处。 不必加载所有的函数和变量,我需要什么就加载进来什么,这样不影响效率(类似C语言里面的#include)顶一下是不是有点 autoload 的概念，那 include 函数如何使用呢
include函数是个关键. 猫这个问题后来没有下文了，我之所以还是不怎么用vlisp，尽量用autolisp，还是有用vlisp代码太繁琐了。好像看到过哪说过，目前autolisp函数很多已经底层是用vlx方法编制的了，所以这个工作是否没有必要再研究？ 还是没有下文了。。。 启发，下文是自己的
页:
[1]