<p>好建议</p><p>这样会给初学vlisp的人提供很大方便</p><p>以后也可以写一个自动生成lisp代码的lisp程序</p>
<p>Translate VBA to lisp </p><p><a href="http://carrot1983.blog.sohu.com/106140640.html">http://carrot1983.blog.sohu.com/106140640.html</a></p>
<p>果然有人玩过</p><p>谢谢<strong><font face="Verdana" color="#61b713">carrot1983</font></strong>的资料</p>
不错,严重关注中.
<p>感谢关注 </p><p>这里分享一点经验</p><p>关于解释()里面的内容</p><p>里面可能是item的参数(参数包括实数 字符串 变量)或者是方法的参数</p><p>虽然能够完全写好判断()内到底是什么</p><p>但是不可避免使解释效率下降</p><p>为了解释较长的代码而使解释程序变的臃肿难以维护 不如多次调用</p><p>以下代码是今天的测试调整</p><p>(defun test1 ()(print "ok"))<br/>(setq str "VL.Application.16" func "test1")</p><p>;VL对象的运行测试<br/>(setq ob (vba "ThisDrawing.Application.GetInterfaceObject(str)"))<br/>(vba "ob.ActiveDocument.Functions.item(func).funcall")</p><p>;item测试</p><p>(setq i 0)<br/>(vba "thisdrawing.blocks.item(i)")<br/>(vba "thisdrawing.blocks.item(\"a\")")<br/>(vba "thisdrawing.blocks.item(0)")</p>
很好，学习一下，谢谢！
VBA代码-->LISP转换器，则不受效率影响。能实现吗？
<p><font face="Verdana">有些可以直接用getvar函数，又何必舍近求远？！</font></p>
<p> </p>
<p><font face="Verdana">(foreach a '("TEXTSTYLE" ;当前文本样式的名称<br/> "CLAYER" ;当前图层<br/> "CECOLOR" ;当前颜色<br/> "CELTSCALE" ;当前对象的线型比例因子<br/> "CELTYPE" ;当前线型<br/> "DWGNAME" ;当前图形名<br/> )<br/> (princ "\n")<br/> (princ (getvar a))<br/>)</font></p>
虽然不懂但是觉得该支持
该支持