【原创】提供简化编程的一个思路-完美提高lisp开发效率-VBA语句的lisp解释函数

nonsmall · 发表于 2008-12-6 17:19

好建议

这样会给初学vlisp的人提供很大方便

以后也可以写一个自动生成lisp代码的lisp程序

carrot1983 · 发表于 2008-12-9 09:08

Translate VBA to lisp

http://carrot1983.blog.sohu.com/106140640.html

nonsmall · 发表于 2008-12-9 10:12

果然有人玩过

谢谢carrot1983的资料

jxlsp · 发表于 2008-12-11 13:34

不错,严重关注中.

nonsmall · 发表于 2008-12-11 15:22

感谢关注

这里分享一点经验

关于解释()里面的内容

里面可能是item的参数(参数包括实数字符串变量)或者是方法的参数

虽然能够完全写好判断()内到底是什么

但是不可避免使解释效率下降

为了解释较长的代码而使解释程序变的臃肿难以维护不如多次调用

以下代码是今天的测试调整

(defun test1 ()(print "ok"))
(setq str "VL.Application.16" func "test1")

;VL对象的运行测试
(setq ob (vba "ThisDrawing.Application.GetInterfaceObject(str)"))
(vba "ob.ActiveDocument.Functions.item(func).funcall")

;item测试

(setq i 0)
(vba "thisdrawing.blocks.item(i)")
(vba "thisdrawing.blocks.item(\"a\")")
(vba "thisdrawing.blocks.item(0)")

yxyfy · 发表于 2008-12-24 11:18

很好，学习一下，谢谢！

cumtjh · 发表于 2010-8-23 13:31

VBA代码-->LISP转换器，则不受效率影响。能实现吗？

xyp1964 · 发表于 2010-8-23 13:51

有些可以直接用getvar函数，又何必舍近求远？！

(foreach a '("TEXTSTYLE"  ;当前文本样式的名称
      "CLAYER"   ;当前图层
      "CECOLOR"   ;当前颜色
      "CELTSCALE"  ;当前对象的线型比例因子
      "CELTYPE"   ;当前线型
      "DWGNAME"   ;当前图形名
           )
(princ "\n")
(princ (getvar a))
)

nuts26173802 · 发表于 2010-8-27 10:26

虽然不懂但是觉得该支持

tdwtdw · 发表于 2010-8-29 21:37

该支持

账号		自动登录	找回密码
密码			注册

[【不死猫】] 【原创】提供简化编程的一个思路-完美提高lisp开发效率-VBA语句的lisp解释函数